【VBA】開いている全ブックをエラー処理付きでコピーする方法

日々の業務で大量のデータを扱っていると、同じ作業を何度も繰り返すことが多くなります。特に複数のブック間でのデータ移動は手間がかかるため、このマクロを使うことで効率化できます。

サンプルコード

VBA

Option Explicit
Sub CopyAllOpenBooks()
    Dim wb As Workbook, newWb As Workbook
    Application.ScreenUpdating = False '画面更新を停止
    On Error GoTo ErrorHandler 'エラー処理の開始
    For Each wb In Workbooks
        If Not wb.Name = ThisWorkbook.Name Then '現在のマクロが入っているブックは除外
            Set newWb = Workbooks.Add '新しいブックを作成
            wb.Sheets.Copy Before:=newWb.Sheets(1) 'シートをコピー
        End If
    Next wb
    Application.ScreenUpdating = True '画面更新を再開
    Exit Sub 'エラーがなければ終了
ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbExclamation 'エラーメッセージ表示
    Resume Next '次のステップへ進む
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

シート名や列番号が正しいか確認してください。また、ブックが開いていることを確認してください。