1、打开Excel后按Alt+F11打开VB苇质缵爨E插入模块输入以下代码：Sub test() On Error GoTo ToEnd Dim i As Long, Hang As Long, j As Long 'i目录下标，Hang要输入到第几行的单元格的行号，j正在查找的目录下标 Dim Mulu() '存放目录的数组 Dim Tfile 'Dir查找的文件 Dim LuJing '要查找的目录地址 i = 0 Hang = 1 LuJing = "D:\VBA\《EXCEL VBA 常用代码实战大全》示例文件\" '根据需要修改此变量中的值为你的路径 ReDim Preserve Mulu(i) Mulu(0) = LuJing For i = LBound(Mulu) To UBound(Mulu)RE: LuJing = Mulu(i) '当遍历完所有文件夹后会出错，跳到最后“ToEnd” j = i Tfile = Dir(Mulu(i), vbDirectory) Do While Tfile <> "" If Tfile <> ".." And Tfile <> "." Then If GetAttr(LuJing & Tfile) And vbDirectory Then i = i + 1 ReDim Preserve Mulu(UBound(Mulu) + 1) Mulu(UBound(Mulu)) = LuJing & Tfile & "\" Else Cells(Hang, 1) = LuJing & Tfile Hang = Hang + 1 End If End If Tfile = Dir If Tfile = "" And j <= i Then i = j + 1 GoTo RE End If Loop Next iToEnd:End Sub
2、修改代码中变量“LuJing”中主字符串内容为你想要的文件夹路径如：LuJing = "D:\"点击“运行”按钮或按F5运行，会把遍历出的文件输入到Excel表中第1列中。
