Создание папок по названию ячеек

[Viktorkv]

Здравствуйте, прошу о помощи!

Возможно ли написать макрос, который бы создавал папки по названию ячеек. Папки будут храниться в одной директории, что и файл с макросом.
В интернете ничего не нашел похожего.

Спасибо.

[Watcher_1]

Если вы имеете ввиду название папок это текст в ячейках то так

Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" _
                                     (ByVal hwnd As Long, ByVal pszPath As String, _
                                      ByVal psa As Any) As Long

Sub m()
    
    For i = 1 To 3 'берем названия из ячеек А1-А3
        SHCreateDirectoryEx Application.hwnd, ActiveWorkbook.Path & "\" & Range("A" & i) & "\", ByVal 0&
    Next
End Sub

[Viktorkv]

Спасибо за помощь, макрос работает!

[Viktorkv]

А если такой вариант - выскакивает диалоговое окно : "Укажите номера названий папок и путь сохранения" вводишь допустим номера 1-10 и в указанную нам папку сохраняются папки с номерами 1, 2, 3, 4....

[Watcher_1]

Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" _
                                     (ByVal hwnd As Long, ByVal pszPath As String, _
                                      ByVal psa As Any) As Long

Sub m()
    tmp = Split(InputBox("Введите названия папок через запятые"), " ")
    For i = 0 To UBound(tmp)
        SHCreateDirectoryEx Application.hwnd, ActiveWorkbook.Path & "\" & tmp(i) & "\", ByVal 0&
    Next
End Sub

[Watcher_1]

ошибся
надо так

	
	
Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" _
                                     (ByVal hwnd As Long, ByVal pszPath As String, _
                                      ByVal psa As Any) As Long

Sub m()
    tmp = Split(InputBox("Введите названия папок через пробелы"), " ")
    For i = 0 To UBound(tmp)
        SHCreateDirectoryEx Application.hwnd, ActiveWorkbook.Path & "\" & tmp(i) & "\", ByVal 0&
    Next
End Sub

[Viktorkv]

Огромное спасибо, буду разгребать дальше

[Viktorkv]

Watcher_1, помогите решить еще 1 проблему, номер WMR я записал, сегодня пополню немного ваше материальное положение

к 1 макросу нужно дописать чтобы в каждой созданной нами папке создавались еще и подпапки МЖ и КП