VBATips
パーツ化

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

2022.10.27

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

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

'■指定した年の1月から12月までのフォルダを作成する
Public Function Call_YearFolderCreate()
    Dim tmp As String
    tmp = InputBox("フォルダ生成する年は？", Default:=Year(Now) + 1)
    If tmp = "" Then End
    
    '■年フォルダ生成
    On Error Resume Next
    MkDir ThisWorkbook.Path & tmp

    '■月フォルダ生成
    Dim i As Long
    For i = 1 To 12
        MkDir ThisWorkbook.Path & tmp & "\" & Format(i, "00")
    Next
End Function

実際の使い方

Public Sub Sample
     Call Call_YearFolderCreate
End Sub

注意点

関連記事

コメント

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