VBA、フォルダをつぎつぎにつくる

8月 2, 2024 8月 24, 2024

enomoto

エクセルを開き、下図のように入力する。

下記のコードを入力する。コードをどこに書いたらいいかわからない場合はこちらを参照のこと。

Sub mkdirFolder()
    Dim Path As String ' 作成予定フォルダの上位パス
    Path = Range("A2").Value
    
    Dim i As Long, FolderName As String, NewDirPath As String
    For i = 2 To Range("B2").End(xlDown).Row
        FolderName = Cells(i, 2).Value
        NewDirPath = Path & "\" & FolderName
        
        If Dir(NewDirPath, vbDirectory) = "" Then
            MkDir NewDirPath
        End If
    Next i
    
    MsgBox "できました。"
End Sub

マクロを実行するとフォルダがつぎつぎに作成される。