Question

我正在尝试创建基本上从子文件夹“抓取”到子文件夹的代码，并查找并插入指定的图片。

我有一些工作代码，它插入了pic：

Set picture = ActiveSheet.Pictures.Insert(path & "\" & picname & ".jpg")
picture.Select

如果我把它放在一个循环中，我需要什么方法？阅读本文，我发现了很多相关的主题，但所有这些都是非常具体的案例，包含冗长的，无关的代码，这使得像我这样的初学者很难将与文件夹相关的部分隔离开来。

感谢您的时间，并提前感谢您的帮助。

Answer 1

类似的东西：

Sub CrawlFolder(ByVal path as String, ByVal picname as String)
   Dim file
   Dim fs As New FileSystemObject
   Dim subdir As Folder
   Dim thisdir As Folder

   file = Dir(path)
   While (file <> "")
     Set picture = ActiveSheet.Pictures.Insert(path & "\" & picname & ".jpg")
     picture.Select
     file = Dir
   Wend

  Set thisdir = fs.GetFolder(path)
  For Each subdir In thisdir.SubFolders
    CrawlFolder(subdir)
  End Sub

未经测试，只是根据我阅读here的内容，根据Tim的帮助，您可以根据自己的想法进行探索：）

vba - 循环遍历子目录以查找和插入pic

1 个答案: