ExcelVBA MkDirで指定したパスにフォルダを新しく自動作成する方法

以下のようなシーンで利用されます。

1.特定のフォルダ構成を自動的に作成する。

2.日付や条件に基づいて動的にフォルダを作成し、その中にデータやファイルを保存する。

3.プログラム内で複数のレポートやデータを分けて管理するために新しいフォルダを作成する。

Excel VBA MkDirでフォルダ作成する利用｜使い方とポイント

Option Explicit

Sub CreateFolder()
    Dim folderPath As String
    folderPath = "C:\Users\User\Desktop\sourceFilemake" ' 作成したいフォルダのパス

    ' フォルダが存在しない場合のみ作成
    If Dir(folderPath, vbDirectory) = "" Then
        MkDir folderPath
        MsgBox "フォルダを作成しました: " & folderPath, vbInformation
    Else
        MsgBox "フォルダはすでに存在しています: " & folderPath, vbExclamation
    End If
End Sub

今日の日付を使用して、動的にフォルダを作成する

Option Explicit

Sub CreateFolderWithDate()
    Dim folderPath As String
     ' 今日の日付をフォルダ名にする
    folderPath = "C:\Users\User\Desktop\sourceFile\" & Format(Date, "yyyy-mm-dd")

    ' フォルダが存在しない場合のみ作成
    If Dir(folderPath, vbDirectory) = "" Then
        MkDir folderPath
        MsgBox "フォルダを作成しました: " & folderPath, vbInformation
    Else
        MsgBox "フォルダはすでに存在しています: " & folderPath, vbExclamation
    End If
End Sub

この機能を活用すれば、作業の効率化やファイルの整理が大幅に向上します。