VBA之获取目录（二）

最新推荐文章于 2025-05-24 07:30:52 发布

原创

最新推荐文章于 2025-05-24 07:30:52 发布 · 923 阅读

0 ·

CC 4.0 BY-SA版权

在VBA中，获取目录后，通常会进一步操作，例如生成新的工作表。本文将继续上一节的内容，介绍如何利用VBA创建新工作表并依据目录内容进行填充。

接上一篇，如果我们获取完目录，需要生成新的sheet页

Sub main()
    Dim line As Integer
    Dim row As Integer
    Dim dic_arr(0 To 10) As String
    Dim dic_index As String
    Dim sheetname As String
    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
        
        If Worksheets("sheet1").Cells(line, row) <> "" Then
            dic_arr(dic_index) = Worksheets("sheet1").Cells(line, row)
            dic_index = dic_index + 1
            If Worksheets("sheet1").Cells(line + 1, row + 1) <> "" Then
                If Worksheets("she