怎么用VBA生成目录树源代码

1、打开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

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

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