複数の閉じたExcelファイルからデータを集計するVBAマクロの作り方

2025年7月25日

業務で複数のExcelファイルからデータを集計する作業はよくあるものですが、すべてのファイルを手動で開いてコピー・貼り付けするのは非常に手間がかかります。本記事では、閉じたExcelブックを自動で開いてデータをまとめるVBAマクロの作成方法をご紹介いたします。

想定シナリオ

「集計マクロ.xlsm」というファイルを使用します。
同じフォルダ内の「import」フォルダに「sourceA.xlsx」「sourceB.xlsx」「sourceC.xlsx」が格納されています。
各ファイルの1行目は見出しで、2行目以降のデータを抽出します。
各ファイルの1枚目のシート（Sheet1）からデータを読み取ります。
取り込んだデータは、「集計マクロ.xlsm」の1枚目のシート（Sheet1）の末尾に順次追加します。

VBAコード例

Sub ImportDataFromClosedBooks()
    Dim targetSheet As Worksheet
    Dim importRange As Range
    Dim importBook As Workbook
    Dim fileList As Variant
    Dim fileName As Variant
    Dim folderPath As String
    
    Set targetSheet = ThisWorkbook.Worksheets(1)
    Set importRange = targetSheet.Range("A1").CurrentRegion
    folderPath = ThisWorkbook.Path & "\import\"
    
    fileList = Array("sourceA.xlsx", "sourceB.xlsx", "sourceC.xlsx")
    
    For Each fileName In fileList
        Set importBook = Workbooks.Open(folderPath & fileName)
        
        With importBook.Worksheets(1)
            Dim dataBody As Range
            Set dataBody = .Range("A1").CurrentRegion
            Set dataBody = dataBody.Offset(1).Resize(dataBody.Rows.Count - 1)
            dataBody.Copy targetSheet.Cells(targetSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
        End With
        
        importBook.Close SaveChanges:=False
    Next
End Sub