Excel VBA フォルダを作成する-MkDir

Excel VBAを使ってファイルを保存したりする時にフォルダがないので作りたい時があります。

VBAでフォルダを作成する方法を記録します。

フォルダを作成するには「MkDir」ステートメントを使います。

< スポンサーリンク >

構文

MkDir パス

パス ＝ 必須。作成するフォルダ名（ディレクトリ名）を文字列で指定。作成したい場所のドライブやフォルダを指定できますが、指定がない場合は現在のドライブ、フォルダに作成されます。

作成したいフォルダ名と同じ名前のフォルダがある場合はエラーになります。

VBAでフォルダを作成する例

「aiueo」というフォルダを作成してみます。下記のように書き込んで実行します。

Sub test()
    MkDir “aiueo”
End Sub

フォルダを作成する場所を指定していないので、カレントディレクトリに作成されました。

デスクトップにある「新しいフォルダー1」というフォルダの中に「aiueo」というフォルダを作成してみます。下記のように書き込んで実行します。

Sub test()
    MkDir “C:\Users\admin\Desktop\新しいフォルダー1\aiueo”
End Sub

出来ました。

自分のブックと同じフォルダに「aiueo」というフォルダを作成してみます。

Sub test()
    Dim PathTxt As String
    PathTxt = ThisWorkbook.Path

    MkDir PathTxt & “\aiueo”
End Sub

出来ました。

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします