【VBAスキル】エクセルを使って大量のフォルダを一括作成！

「データを仕分けするために大量のフォルダを作成しないといけない。でもひとつづつ作成して名前を変えるのはものずごく時間がかかりそうだ。」

この記事ではこんな悩みを解決します。

意外と知られていないのですが、エクセルでフォルダを作成したり、ファイルをコピーしたりすることは簡単にできます。

というわけでこの記事では、エクセルに備わっているVBAと呼ばれるプログラミングを用いて、任意の場所に任意の名前のフォルダを大量に一括作成する方法をご紹介します。

VBA使用環境の構築
新規作成フォルダ名を指定するエクセルファイルの編集
フォルダ一括作成のコード作成
プログラムの実行⇒結果確認
おわりに

VBA使用環境の構築

簡単にできるとはいえ、まずはエクセルでVBAを使えるようにしなければ話になりません。

まずは以下の記事を参考にVBAを使えるようにしておきましょう。

www.higashisalary.com

すでにVBAの使用方法をご存じの方は、以下の手順に進みましょう。

新規作成フォルダ名を指定するエクセルファイルの編集

本文今回はA2セルに指定したフォルダの中にA4以降のセルに記入されている名前のフォルダを作成していきます。

私の場合はデスクトップ上にある【Base_Folder】というフォルダの中に【*売上記録】というフォルダを作成していきます。

下準備はたったのこれだけ。

今回は12行目までしか記入していませんが、空欄を挟まなければ何行書いていても問題ありません。

次はいよいよコードの作成です。

フォルダ一括作成のコード作成

エクセルファイルの編集が終わったらVisual Basicを開き、以下のプログラムコードをコピペしましょう。

Sub make_folder()
    '使用する変数の型を宣言
    Dim base_fol As String
    Dim fol_name As String
    Dim fol_dir As String
    Dim new_fol_name As String
    Dim i As Integer
    '実際の処理開始
    base_fol = Cells(2, 1)
    i = 0
    Do Until Cells(4 + i, 1) = ""
        fol_name = Cells(4 + i, 1)
        new_fol_dir = base_fol & "\" & fol_name
        new_fol_name = Dir(new_fol_dir, vbDirectory)
        If new_fol_name = "" Then
            MkDir new_fol_dir
        Else
        End If
        i = i + 1
    Loop
End Sub