VBATips

月初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

注意点

関連記事

コメント

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