【VBA】開いている全ブックを確認メッセージを出さずに転記する方法

日々の業務で大量のエクセルファイルを扱っていると、同じようなデータを複数のワークブックから集約する作業が発生することがあります。この作業は手作業では時間がかかるだけでなく、ミスも多発します。そこで、開いている全てのワークブックから特定のシートのデータを一括で転記し、効率化を図るVBAマクロを作成しました。

サンプルコード

VBA

Option Explicit
Sub CopyDataFromAllBooks()
    Dim wb As Workbook, ws As Worksheet
    Dim targetWs As Worksheet
    Set targetWs = ThisWorkbook.Sheets("TargetSheet")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each wb In Workbooks
        If Not wb Is ThisWorkbook Then
            On Error Resume Next
            Set ws = wb.Sheets("SourceSheet")
            If Not ws Is Nothing Then
                lastRow = targetWs.Cells(targetWs.Rows.Count, "A").End(xlUp).Row + 1
                ws.UsedRange.Copy Destination:=targetWs.Cells(lastRow, 1)
            End If
            On Error GoTo 0
        End If
    Next wb
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。