【VBA】全てのシートを完全一致でPDF保存する方法

日々の業務の中で、大量のデータを扱う際には効率的な作業が求められます。特に、特定の条件に合致するシートだけを選んでPDF形式で保存することは、報告書や資料作成において非常に便利です。この記事では、Excel VBAを使用して、全てのシートを完全一致でPDF保存する方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub SaveSheetsAsPDF()
    Dim ws As Worksheet, pdfPath As String
    Dim sheetName As String
    sheetName = "特定のシート名" ' 完全一致で指定したいシート名を入れる
    Application.ScreenUpdating = False ' 画面更新を停止する
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name = sheetName Then ' シート名が完全一致の場合
            pdfPath = "C:\Users\YourUsername\Desktop\" & ws.Name & ".pdf"
            ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath
        End If
    Next ws
    Application.ScreenUpdating = True ' 画面更新を再開する
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

シート名や列番号が正しいか確認してください。また、ファイルパスに問題がないかも確認してみてください。