VBATips
パーツ化

1月から12月までのフォルダ生成処理をパーツ化する【ExcelVBA】

2022.10.26

年度単位で、月単位のフォルダ作成をするケースがあります。
1年に1回の処理ですが手動ではなく、マクロで実行したほうが望ましいと考えます。

1月から12月までのフォルダを作成する処理のサンプルコード

'■1月から12月までのフォルダを作成する
Public Function Call_MonthFolderCreate()
    Dim i As Long
    For i = 1 To 12
        MkDir ThisWorkbook.Path & Format(i, "00")　'01フォルダ~12フォルダ
        'MkDir ThisWorkbook.Path & Format(i, "mm月")'01月フォルダ~12月フォルダ
    Next
    
End Function

実際の使い方

Public Sub Sample
     Call Call_MonthFolderCreate
End Sub

注意点

関連記事

コメント

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