Страницы: 1
RSS
Создание папок по указанному пути
 
Здравствуйте, подскажите что поменять в макросе поменять что б он запрашивал путь где создавать папки, не в директории где находится активный файл, а в необходимую, они всегда могут быть разные
Код
Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub
Изменено: vikttur - 09.07.2021 11:55:22
 
denka1982, здравствуйте
ДИАЛОГОВОЕ ОКНО ВЫБОРА ФАЙЛОВ/ПАПКИ
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
Код
Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
'---------------------------------------------------------------
    Set folder = Application.FileDialog(msoFileDialogFolderPicker)
    folder.Show
    getpath = folder.SelectedItems(1)
'---------------------------------------------------------------
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(getpath & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (getpath & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub


Но надо проверять.
 
все работает, спасибо
Изменено: denka1982 - 09.07.2021 10:39:40
Страницы: 1
Наверх