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

日々の業務で大量のデータを扱う際、非表示シートを別のファイルに移動させたいことはありませんか？手作業では時間がかかる上、ミスが発生しやすいです。この記事では、VBAを使って簡単に非表示シートを別ブックとして保存する方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub SaveHiddenSheetAsNewWorkbook()
    Dim wb As Workbook, ws As Worksheet, newWb As Workbook
    Set wb = ThisWorkbook '現在のワークブック
    On Error Resume Next 'エラー処理開始
    Set ws = wb.Sheets("シート名") '非表示のシートを指定
    If ws Is Nothing Then Exit Sub '指定したシートが存在しない場合は終了
    Application.ScreenUpdating = False '画面更新停止
    On Error GoTo ErrorHandler 'エラー処理開始
    Set newWb = Workbooks.Add '新しいワークブックを作成
    ws.Copy Before:=newWb.Sheets(1) 'シートをコピー
    wb.Close SaveChanges:=False '元のワークブックは閉じる
    Application.DisplayAlerts = False '警告オフ
    newWb.SaveAs ThisWorkbook.Path & "\非表示シート.xlsx" '新しいファイル名で保存
    Application.DisplayAlerts = True '警告オン
    MsgBox "非表示シートを別ブックとして保存しました。", vbInformation
Exit Sub
ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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