打开Excel后按Alt+F11打开VBE插入模块输入以下代码：

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 i

ToEnd:

End Sub

修改代码中变量“LuJing”中主字符串内容为你想要的文件夹路径如：LuJing = D:\

点击“运行”按钮或按F5运行，会把遍历出的文件输入到Excel表中第1列中。

VBA代码代码可以根据需要自行修改，可学习交流。