【VBA】特定の名前のシートを確認メッセージ無しでPDF保存する方法

手作業で特定のシートをPDFに変換するのは時間がかかる上、誤操作によるミスが発生しやすいです。この記事では、指定した名前のシートを確認メッセージ無しでPDFとして保存するVBAマクロを作成します。

サンプルコード

VBA

Option Explicit
Sub SaveSheetAsPDF()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("特定のシート名")
    Application.DisplayAlerts = False '確認メッセージを非表示にする
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\path\to\your\file.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Application.DisplayAlerts = True '確認メッセージを再表示する
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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