Excel VBAで簡単！フォルダ一括作成の極意

2023.09.13

Excel VBAを使用してフォルダを一括作成する方法を知りたいですか？

本記事の内容を知らない人は、「いちいち手入力なんてめんどくさい！なんかフォルダ名間違って入力してる！ちゃんと管理したいのにもうめちゃめちゃやん…。」そんなことを思っているのではないでしょうか。

こんにちは！uri uri（@Uriuri_writer）です。Excel VBAを使用してフォルダを一括作成できるようになると「業務効率化」「ミス防止」「適切なデータ管理」ができるようになります。この記事では、VBA初心者から上級者まで、誰でも簡単にフォルダを作成できる方法を紹介します。コードのコピペだけで、あなたの業務効率を飛躍的に向上させることができます。

それではいってみましょー。

MkDirステートメントの基本
フォルダ作成の応用例
一覧からのフォルダ作成
まとめ

MkDirステートメントの基本

MkDirステートメントを使用すると、指定した名前のフォルダを作成することができます。

すんごいザックリ言うとパソコンの中に新しい箱を作ることができるVBAのコードが「MkDirステートメント」って知っておけばオッケーです。箱の名前や場所を指定すると、その箱が作られます。

例えば、Cドライブに「test」というフォルダを作成する場合、以下のように使用します。

'Cドライブに「test」というフォルダを作成するコード

Sub MkDir_test()

    MkDir "C:\test"

End Sub

注意点としては、すでに存在するフォルダを指定するとエラーになる点と、既にあるフォルダの中にしか作成できない点があります。

フォルダ作成の応用例

VBAを使ってさまざまな方法でフォルダを作成することができます。以下は具体的な使用例です。

セル値からフォルダ名を取得して作成
メインフォルダ、サブフォルダ、サブサブフォルダを一括作成
日付を使ったフォルダ作成
12か月分のフォルダ一括作成

これらの方法を駆使することで、業務効率を大幅に向上させることが可能です。

一覧からのフォルダ作成

取引先名などの一覧からフォルダを一括作成することも可能です。

以下のマクロを使用すると、エクセルファイルと同じパスに、A列にある取引先別のフォルダが一瞬で作れます。

'A列にある文字列でフォルダを作るコード

Sub Createfolder()

    Dim i As Long

    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

        MkDir ThisWorkbook.Path & "\\" & Cells(i, 1)

    Next i

End Sub