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

VBATips

2022.10.272023.01.16

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

目次

1月から12月までのフォルダを作成する処理のサンプルコード
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

注意点

年を指定しない(年フォルダは生成しない)場合はこちら
フォルダが存在しているかどうかのチェックはしていません。

関連記事

コメント