vba - 我如何使用 VBA 从 Excel 工作表中创建例如 5 个文件夹？

Question

我使用以下 vba 代码使用 Excel 工作表的数据创建文件夹结构:

Option Explicit

Declare Function MakePath& Lib "imagehlp.dll" Alias _
   "MakeSureDirectoryPathExists" (ByVal sPath$)

Sub CreatePaths()
Dim i&
With Tabelle1
For i = 1 To .Cells(.Rows.Count, "E").End(xlUp).Row
MakePath .Cells(i, "E").Text
Next
End With
End Sub

“C:\Users\xxxxx\Desktop\test\H01\U01\UU01”

每一行都在我选择的文件夹中创建为文件夹结构，直到这里它执行我需要的操作。 E 列添加 A-D 列并用反斜杠分隔。现在我需要在“E”列的每个文件夹中添加例如 4 个文件夹(A、B、C、D)，我尝试添加它，但它不起作用。我必须在 vba 代码中添加什么才能创建文件夹？

欢迎提问。

Answer 1

像这样怎么样:

Option Explicit

Declare Function MakePath& Lib "imagehlp.dll" Alias _
    "MakeSureDirectoryPathExists" (ByVal sPath$)

Sub CreatePaths()

Dim i&, subfolders As Variant, subfolder As Variant
subfolders = Split("A,B,C,D", ",")

With Tabelle1
    For i = 1 To .Cells(.Rows.Count, "E").End(xlUp).Row
        For Each subfolder In subfolders
            MakePath .Cells(i, "E").Text & "\" & subfolder
        Next
    Next
End With

End Sub