Чтобы создавать папки и подпапки с помощью VBA (Visual Basic для приложений), вы можете использовать FileSystemObject из библиотеки Microsoft Scripting Runtime. Вот несколько методов с примерами кода:

Метод 1. Создание одной папки и подпапок

Sub CreateFolderAndSubfolders()
    Dim fso As Object
    Dim folderPath As String

    ' Specify the path of the folder and subfolders you want to create
    folderPath = "C:\MainFolder\Subfolder1\Subfolder2\"

    ' Create the FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")

    ' Create the folder and subfolders
    fso.CreateFolder folderPath

    ' Cleanup
    Set fso = Nothing

    MsgBox "Folder and subfolders created successfully!"
End Sub

Метод 2. Динамическое создание папок и подпапок

Sub CreateDynamicFolderAndSubfolders()
    Dim fso As Object
    Dim baseFolder As String
    Dim subFolders As String
    Dim folderPath As String
    Dim folderArray() As String
    Dim i As Integer

    ' Specify the base folder and subfolders (comma-separated)
    baseFolder = "C:\MainFolder\"
    subFolders = "Subfolder1,Subfolder2,Subfolder3"

    ' Split the subfolders into an array
    folderArray = Split(subFolders, ",")

    ' Create the FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")

    ' Create the base folder
    fso.CreateFolder baseFolder

    ' Create the subfolders
    For i = LBound(folderArray) To UBound(folderArray)
        folderPath = baseFolder & folderArray(i) & "\"
        fso.CreateFolder folderPath
    Next i

    ' Cleanup
    Set fso = Nothing

    MsgBox "Folder and subfolders created successfully!"
End Sub

В этих примерах метод 1 создает одну папку и ее подпапки, а метод 2 демонстрирует динамическое создание нескольких папок и подпапок с использованием базовой папки и списка подпапок, разделенных запятыми.