【VBA】複数のcsvファイルを一括読み込みするサンプルコード

「csv形式で取得した大量の実験データを分析したい。」

この記事ではこんな状況で役に立つ、

【複数のcsvファイルを開いているエクセルシートに一括読み込みする】

サンプルコードをご紹介していきます。

あなたの状況に応じて修正すればどんな状況にも対応できるはずです。

それでは早速やっていきましょう！

紹介するスキルの概要説明
複数のcsvファイルを一括読み込みするVBAコード
サンプルコードの実行結果
おわりに

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

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

今回は以下の画像のように、A２セルからA4セルに記入された３つのcsvファイルを９行目以降に順番に読み込んでいくという作業を行ってみます。

今回読み込むcsvファイルは以下のように２列の単純な時系列データです。

また読み込むcsvファイルは以下のように、VBAを実行するファイルと同じフォルダに格納されている状況を想定してコードを書いています。

状況説明はこのくらいにして、さっそくVBAコードを記述していきます。

複数のcsvファイルを一括読み込みするVBAコード

Sub open_csv()
    '変数の型を宣言
    Dim base_file As String
    Dim file_name As String
    Dim end_row As Integer
    Dim i As Integer
    'このファイルを記憶させる
    base_file = ThisWorkbook.Name
    '開きたいファイル名を指定
    i = 0
    Do Until Cells(2 + i, 1) = ""
        'これから開くファイルを記憶させる
        file_name = Cells(2 + i, 1)
        '指定したファイルを開く（ファイルがなかったら処理をとめる）
        If Dir(ThisWorkbook.Path & "\" & file_name) <> "" Then
            Workbooks.Open (ThisWorkbook.Path & "\" & file_name)
        Else
            MsgBox "指定ファイルがありません。"
            Exit Sub
        End If
        '開いたファイルからデータをコピー
        end_row = Range("A1").End(xlDown).Row
        Range(Cells(1, 1), Cells(end_row, 2)).Copy
        'ベースファイルに張り付ける
        Windows(base_file).Activate
        Cells(9, 3 * i + 1).Select
        ActiveSheet.Paste
        '指定したcsvファイルを閉じる
        Application.CutCopyMode = False
        Windows(file_name).Close
        i = i + 1
    Loop
End Sub

基本的には

①エクセルファイルに記述してあるファイル名のcsvファイルを開く

②データの一番下の行までをコピーする（今回A列とB列をコピー）

③もともとのファイルに戻る

④コピーしたcsvファイルのデータを張り付ける

という作業を３回繰り返しているだけです。

※ひとつひとつの作業にコメントをつけておりますので、どこでどんな作業を行っているかは理解できるはずです。あなたの状況に応じて、適宜修正してご活用ください。

◆合わせて読みたい

csvファイルの読み込み方法についてもう少し詳しく知りたい、という方は以下の記事が参考になるはずです。

【VBA】指定したcsvファイルを開く方法！閉じるところまで一括解説！