【VBA】大量のファイルを条件に応じてフォルダごとに仕分けする方法！

この記事では、大量のデータをエクセルシートに記入された情報をもとに仕分けするVBAのサンプルコードをご紹介しています。

状況に応じて微修正するだけで誰でも簡単に活用できるはずです。

それでは早速やっていきます！

紹介するスキルの概要説明
ファイルの仕分けを行うVBAコード
サンプルコードの実行結果確認
おわりに

紹介するスキルの概要説明

まずはじめに今回の記事で紹介する内容を簡単にご説明しておきます。

今回は以下の画像のように

◆あるフォルダの中に大量のテキストファイルが入っている

◆そのファイルたちを仕分けする先のフォルダも同じフォルダに入っている

◆仕分けを実行するマクロファイルも同じフォルダに入っている

という状況でスキル解説していきます。

また、これらをどのように仕分けをするかは、これから実行するマクロファイルに記入されていることとします。

（A列にファイル名が、B列に仕分けする際に使う数字が入っています。）

今回はB列が1なら01_folderというフォルダに、2なら02_folderというフォルダに3なら03_folderというフォルダにそれぞれファイルを移動させることにします。

状況説明はこのくらいにして、さっそくこれらのデータを仕分けするコードを書いていきましょう。

なお、A列の情報は自動で取得することも可能です。

興味がある方は以下の記事を参考にしてみてください。

【VBA】Dir関数を使ったフォルダ内の探索事例５つ！ファイル名をセルに一括出力！

ファイルの仕分けを行うVBAコード

さっそくですが、以下が条件に応じてファイルを仕分けするVBAサンプルコードです。

◆VBAサンプルコード

Sub shiwake()
    '変数の型を宣言
    Dim file_name As String
    Dim i As Integer
    'A列が空欄になるまで繰り返し処理を実施
    Do Until Cells(2 + i, 1) = ""
        file_name = Cells(2 + i, 1)
        '仕分け番号が1の場合
        If Cells(2 + i, 2) = 1 Then
        Name ThisWorkbook.Path & "\" & file_name As ThisWorkbook.Path & "\01_folder\" & file_name
        Else
        '仕分け番号が2の場合
        If Cells(2 + i, 2) = 2 Then
        Name ThisWorkbook.Path & "\" & file_name As ThisWorkbook.Path & "\02_folder\" & file_name
        Else
        '仕分け番号が3の場合
        If Cells(2 + i, 2) = 3 Then
        Name ThisWorkbook.Path & "\" & file_name As ThisWorkbook.Path & "\03_folder\" & file_name
        End If
        End If
        End If
        i = i + 1
    Loop
End Sub

◆サンプルコードの解説

ファイル移動スキル　Name A as B

A : 移動前のファイルのフルパス

B : 移動後のファイルのフルパス

これでファイルを移動することが出来ます。

基本的にはIF文を使い、このNameスキルの仕分け先を条件に応じて変更しているだけです。

もし仕分け先が４つ以上になる場合はその分IF文を増やしていけばOKです。