Мне нужно создать папки для новых номеров работ, которые создаются в 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
Это работает, однако я хочу знать, возможно ли создать новую папку, используя папку шаблона?
Новая папка заданий содержит множество подпапок, которые должны быть там.