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

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

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

上述方法对一层目录有效，并且不对子文件夹进行遍历。