【VBA】全てのシートをエラー処理付きで別ブックとして保存する方法

日々の業務で大量のデータを扱う際、各シートを個々のファイルに分割したいことはありませんか？手作業では時間がかかる上、ミスも増えます。この記事では、VBAを使用して簡単に全てのシートを別ブックとして保存する方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub SaveSheetsAsSeparateWorkbooks()
    Dim wb As Workbook, ws As Worksheet, newWb As Workbook
    Set wb = ThisWorkbook
    Application.ScreenUpdating = False
    On Error GoTo ErrorHandler

    For Each ws In wb.Sheets
        ws.Copy
        Set newWb = ActiveWorkbook
        newWb.SaveAs Filename:=wb.Path & "\" & ws.Name & ".xlsx"
        newWb.Close SaveChanges:=True
    Next ws

    Application.ScreenUpdating = True
    MsgBox "全てのシートを別ブックとして保存しました。", vbInformation
    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbExclamation
    Resume Next
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

シート名や列番号が正しいか確認してください。また、保存先ディレクトリにアクセス権があるかも確認しましょう。