【Excel VBA】フォルダ内の複数Excelファイルを順番に開いてデータを一括集計する方法

'集計ツールと同じフォルダを対象にする
folderPath = ThisWorkbook.Path & "\"

'フォルダ内のExcelファイルを最初の1件から取得する
fileName = Dir(folderPath & "*.xls*")

'ファイルが見つからなくなるまで繰り返す
Do While fileName <> ""

    'ここに各ファイルの処理を記述する

    '次のExcelファイル名を取得する
    fileName = Dir()

Loop

Sub 複数Excelファイルを一括集計する()

    '==================================================
    ' 変数を定義する
    '==================================================

    '処理対象フォルダのパス
    Dim folderPath As String

    'Dir関数で取得したファイル名
    Dim fileName As String

    '読み込み対象のExcelブック
    Dim sourceBook As Workbook

    '読み込み対象のワークシート
    Dim sourceSheet As Worksheet

    '集計結果を出力するワークシート
    Dim outputSheet As Worksheet

    '集計シートの出力行番号
    Dim outputRow As Long


    '==================================================
    ' 集計先を準備する
    '==================================================

    'このマクロが保存されているブックの「集計」シートを指定する
    Set outputSheet = ThisWorkbook.Worksheets("集計")

    '2行目以降の前回集計結果を削除する
    outputSheet.Rows("2:" & outputSheet.Rows.Count).ClearContents

    '見出しを設定する
    outputSheet.Cells(1, 1).Value = "ファイル名"
    outputSheet.Cells(1, 2).Value = "支店名"
    outputSheet.Cells(1, 3).Value = "売上"

    'データは2行目から出力する
    outputRow = 2


    '==================================================
    ' フォルダ内のExcelファイルを取得する
    '==================================================

    '集計ツールと同じフォルダを対象にする
    folderPath = ThisWorkbook.Path & "\"

    '拡張子がxlsから始まるExcelファイルを取得する
    fileName = Dir(folderPath & "*.xls*")


    '==================================================
    ' Excelファイルを1冊ずつ処理する
    '==================================================

    Do While fileName <> ""

        '集計ツール自身と一時ファイルは処理対象から除外する
        If fileName <> ThisWorkbook.Name And _
           Left(fileName, 2) <> "~$" Then

            '外部リンクを更新せず、読み取り専用で対象ブックを開く
            Set sourceBook = Workbooks.Open( _
                FileName:=folderPath & fileName, _
                UpdateLinks:=0, _
                ReadOnly:=True)

            '読込元のSheet1を指定する
            Set sourceSheet = sourceBook.Worksheets("Sheet1")

            'ファイル名を集計シートのA列へ出力する
            outputSheet.Cells(outputRow, 1).Value = fileName

            '支店名（B2セル）を集計シートのB列へ出力する
            outputSheet.Cells(outputRow, 2).Value = _
                sourceSheet.Range("B2").Value

            '売上金額（C2セル）を集計シートのC列へ出力する
            outputSheet.Cells(outputRow, 3).Value = _
                sourceSheet.Range("C2").Value

            '次の出力行へ移動する
            outputRow = outputRow + 1

            '読込元ブックは変更を保存せず閉じる
            sourceBook.Close SaveChanges:=False

            '次のファイルに備えてオブジェクトを初期化する
            Set sourceSheet = Nothing
            Set sourceBook = Nothing

        End If

        '次のExcelファイル名を取得する
        fileName = Dir()

    Loop


    '==================================================
    ' 処理完了を通知する
    '==================================================

    MsgBox "複数ファイルの集計が完了しました。", vbInformation

End Sub

'D5セルの値を取得する場合
outputSheet.Cells(outputRow, 2).Value = _
    sourceSheet.Range("D5").Value

'B2:D2の複数項目を取得する場合
outputSheet.Cells(outputRow, 2).Value = _
    sourceSheet.Range("B2").Value

outputSheet.Cells(outputRow, 3).Value = _
    sourceSheet.Range("C2").Value

outputSheet.Cells(outputRow, 4).Value = _
    sourceSheet.Range("D2").Value