VBA之获取目录（一）

例子

[01]一级目录

      [02]二级目录

             [3]三级目录

                  内容1

                  内容2

..............................................

...............................................

如何使用vba来获取以上的目录呢？

Sub main()
    Dim line As Integer
    Dim row As Integer

    dic_index = 0
    row = 1
    For line = 0 To 16
        line = line + 1
        If Worksheets("sheet1").Cells(line, row) = "" And Worksheets("sheet1").Cells(line, row + 1) = "" Then
            row = getback(line, row, dic_index)
            line = line - 1
        End If
        
        If Worksheets("sheet1").Cells(line, row) = "" And Worksheets("sheet1").Cells(line, row + 1) <> "" Then
            row = row + 1
            line = line - 1
        End If