【VBA】非表示シートをバックグラウンドで別ブックとして保存する方法

手作業で非表示のワークシートを別のファイルに移動するのは時間がかかります。この記事では、VBAを使用して簡単にバックグラウンドで非表示シートを別ブックとして保存する方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub SaveHiddenSheetAsAnotherBook()
    Dim wb As Workbook, ws As Worksheet, newWb As Workbook
    Application.ScreenUpdating = False '画面更新停止
    Set wb = ThisWorkbook '現在のワークブックを取得
    For Each ws In wb.Sheets 'シートごとのループ開始
        If ws.Visible = xlSheetHidden Then '非表示のシートの場合
            ws.Copy 'シートをコピー
            Set newWb = ActiveWorkbook '新しいワークブックに設定
            newWb.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".xlsx" 'ファイル名とパスで保存
            newWb.Close SaveChanges:=False '変更なしで閉じる
        End If
    Next ws
    Application.ScreenUpdating = True '画面更新再開
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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