Question

Excel VBA (.png图片提取) 其它方法也行，只要能达到目的即可。

我的电脑上有一个文件夹内，含有多个子文件夹，每个子文件夹中有很多.PNG图片；
如何一次性提取到一个文件夹内？

Answer 1

做好了，给你发QQ文件吧
Hi我，详细解答
Public d0

Sub iMain()
Dim iPath$, iAtt$, f$, i, tmp

iPath = ThisWorkbook.Path '搜索的总路径
iAtt = "*.txt" ' "*.png" '搜索的文件类型

'搜索所有文件夹，包括子文件夹
Set d0 = CreateObject("scripting.dictionary")
d0(iPath) = ""
Call iGetDir(iPath)
If d0.Count <= 0 Then MsgBox "没有找到子文件夹。", vbCritical: Exit Sub
MsgBox "共找到 " & d0.Count & " 个子文件夹：" & vbCrLf & vbCrLf & Join(d0.keys, vbCrLf)

'搜索所有文件
…………
……

Answer 2

直接全部阔到应该可以吧

追问

不理解哈意思，目的就是：把这些子文件夹内的图片一次性提取到一个文件夹内。

Answer 3

Answer 4

Answer 5

你说的，用WINDOWS自带的搜索不可以吗？