Мне нужно создать папки для новых номеров работ, которые создаются в Excel.

Каждый раз, когда в лист Excel добавляется новый номер работы, мне нужно создать папку в заданном месте, имя папки будет номером работы из листа Excel

Я нашел и использовал

Автоматическое создание папок с использованием записей полей Excel

Sub CreateFolders()

'Variable definations
Dim FolderListRange As Range
Dim FolderRange As Variant
Dim FolderName As String
Dim ParentFolderPath As String

On Error GoTo Handle
' Set the Folder where the individual folders should be created
ParentFolderPath = "Folders"

Set FolderListRange = ActiveSheet.Range("A2:A64000").SpecialCells(xlCellTypeConstants)

For Each FolderRange In FolderListRange
    If FolderRange.Offset(0, 1).Value = "" Then GoTo Continue

    FolderName = ParentFolderPath & "\" & FolderRange.Value & "-" & Format(FolderRange.Offset(0, 1).Value, "dd-mm-yyyy")

    If FileSystem.Dir(FolderName, vbDirectory) = vbNullString Then
        FileSystem.MkDir FolderName
    End If

Continue:
    Next

Handle:
End Sub

Это работает, однако я хочу знать, возможно ли создать новую папку, используя папку шаблона?

Новая папка заданий содержит множество подпапок, которые должны быть там.

0