月初1日~月末31日までのフォルダ生成処理をパーツ化する【ExcelVBA】

月フォルダの中に月初1日~月末31日までのフォルダを作成しないといけない場合があります。
毎月に1回の処理ですが手動ではなく、マクロで実行したほうが望ましいと考えます。

月初1日~月末31日までのフォルダを作成する処理のサンプルコード

'■月初1日から月末31日までのフォルダを作成する
Public Function Call_DayFolderCreate(sYear As Long, sMonth As Long)
    Dim i As Long
    MkDir ThisWorkbook.Path & "\" & sMonth
    
    For i = 1 To Day(DateSerial(sYear, sMonth + 1, 0))
        MkDir ThisWorkbook.Path & "\" & sMonth & "\" & Format(i, "00")  '01フォルダ～月末までのフォルダ
    Next
End Function

実際の使い方

Public Sub sample()
    Call Call_DayFolderCreate(2022, 11)'2022/11の01~30フォルダを生成する
End Sub

注意点

• フォルダが存在しているかどうかのチェックはしていません。

関連記事

• 当月末日(月の最終日)を簡単に求めたい【DateSerial関数】
• 翌月末日や翌20日を簡単に求めたい【DateSerial関数】
• 月の日数分シートを作成する(シート名はmmdd)
• 閏年(うるう年)の判定を行う【DatePart関数応用】