リスト化した名前のフォルダを一括作成 エクセルマクロ

Excel-エクセル

色々ツール類はあるけれども、やっぱり細かい事はエクセルでの作成が、他の作業と連携がしやすい!

    1. エクセルに作成したいフォルダ名一覧を記載
    2. フォルダを作成する場所を選択
    3. スタート

※同じフォルダ名のフォルダは作成されません

※既に同じフォルダがある場合は作成されません

内容

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
Path = getFolderPath

Dim i As Long
For i = 2 To Range(“A2”).End(xlDown).Row

Dim FolderName As String ‘作成フォルダ名
FolderName = Cells(i, 1).Value

Dim NewDirPath As String ‘親フォルダパス
NewDirPath = Path & “\” & FolderName

‘同名のフォルダの存在有無を確認
If Dir(NewDirPath, vbDirectory) = “” Then
MkDir Path & “\” & FolderName
End If

Next i

MsgBox “終了しました。”

End Sub

 

そのままエクセルで使いたい人はどうぞ

ダウンロードはこちら

フォルダ一括作成20190613

作成時に参考にさせて頂きました。ありがとうございます。

VBAでフォルダパスを取得する 

【ExcelVBA】Windowsのフォルダを一括作成するマクロ

動作環境

Windows 10

Excel 2007

注意点

自己作業用の物ですので、販売やエラー調整の対応はしていません。

自己責任の下でご自由にご使用ください。

 

タイトルとURLをコピーしました