色々ツール類はあるけれども、やっぱり細かい事はエクセルでの作成が、他の作業と連携がしやすい!
-
- エクセルに作成したいフォルダ名一覧を記載
- フォルダを作成する場所を選択
- スタート
※同じフォルダ名のフォルダは作成されません
※既に同じフォルダがある場合は作成されません
内容
Option Explicit
Function getFolderPath() As String
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show Then
getFolderPath = .SelectedItems(1)
End If
End With
End Function
Sub get_FolderPath() Call mkdirFolder
End Sub
Sub mkdirFolder() Dim Path As String Dim i As Long Dim FolderName As String ‘作成フォルダ名 Dim NewDirPath As String ‘親フォルダパス ‘同名のフォルダの存在有無を確認 Next i MsgBox “終了しました。” End Sub
|
そのままエクセルで使いたい人はどうぞ
ダウンロードはこちら
↓
作成時に参考にさせて頂きました。ありがとうございます。
【ExcelVBA】Windowsのフォルダを一括作成するマクロ
動作環境
Windows 10
Excel 2007
注意点
自己作業用の物ですので、販売やエラー調整の対応はしていません。
自己責任の下でご自由にご使用ください。