フォルダ内のすべてのExcelファイルから自動でデータを取り込むVBAマクロ

2025年7月25日

複数のExcelファイルが特定フォルダに格納されており、それらのデータを一括で読み込みたいというニーズは、業務の現場で非常によくあります。本記事では、指定フォルダ内のすべてのExcelブックから自動的にデータを集約するVBAマクロをご紹介いたします。

使用シナリオの概要

マクロ実行用のファイル「DataCollector.xlsm」を用意します。
同じディレクトリ内に「datafiles」フォルダを作成し、その中に複数のExcelファイル（.xlsx）を格納しておきます。
各ファイルの1行目は見出しであり、2行目以降のデータを読み取ります。
読み取ったデータは「DataCollector.xlsm」の先頭シートの末尾に追加していきます。

VBAコード：すべてのExcelファイルからデータをまとめて取り込む

Sub CollectDataFromAllFiles()
    Dim wsTarget As Worksheet
    Dim rngSource As Range
    Dim wbSource As Workbook
    Dim folderPath As String
    Dim fileName As String
    
    Set wsTarget = ThisWorkbook.Worksheets(1)
    folderPath = ThisWorkbook.Path & "\datafiles\"
    
    fileName = Dir(folderPath & "*.xlsx")
    
    Do While fileName <> ""
        Set wbSource = Workbooks.Open(folderPath & fileName)
        
        With wbSource.Worksheets(1)
            Set rngSource = .Range("A1").CurrentRegion
            Set rngSource = rngSource.Offset(1).Resize(rngSource.Rows.Count - 1)
            rngSource.Copy wsTarget.Cells(wsTarget.Cells(wsTarget.Rows.Count, 1).End(xlUp).Row + 1, 1)
        End With
        
        wbSource.Close SaveChanges:=False
        fileName = Dir
    Loop
End Sub