VBA 階層別複数フォルダを一括作成

階層別複数フォルダを一括作成

Sub test()
    ’  階層別複数フォルダを一括作成
    Dim i As Long
    Dim m As Long
    
    For i = 2021 To 2022
    
        MkDir ThisWorkbook.Path & "\" & i & "年"
        For m = 1 To 12
            MkDir ThisWorkbook.Path & "\" & i & "年" & "\" & m & "月"
        
        Next m
    Next i

End Sub

実行結果

フォルダー2021年のイメージ図

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

参考記事