如何用VBA遍历指定文件夹内的所有文件

Question

如题所述

Answer 1

用dir函数加上循环即可。比如将D:\ABC文件夹内的所有文件显示到A列，代码如下：

Sub 遍历所有文件()
Dim Fn$, N%
Fn = Dir("D:\ABC\*.*")
While Fn <> ""
   N = N + 1
   Range("A" & N) = Fn
   Fn = Dir
Wend
End Sub