Excelの特定シートをPDF出力するにはどうすればいいですか？

ネットトラブルサーチ

Excelの特定シートをPDF出力するにはどうすればいいですか？

Excelの特定シートだけをまとめてPDFに出力する方法

ポイントは、**表示・非表示**を活用して必要なシートだけをビューにし、その状態で一気にPDFに出力することです。これによりエラーも少なく、安全に作業を進めることができます。

サンプルコード例

Sub PDF出力_特定シート()

    Dim ws As Worksheet

    Dim targetSheets As Variant

    Dim i As Long
    ' 出力したいシートの名前を配列に格納

    targetSheets = Array("シートA", "シートB", "シートC", "シートD")
    ' まず全てのシートを非表示にする

    For Each ws In ThisWorkbook.Worksheets

        ws.Visible = xlSheetHidden

    Next ws
    ' 指定したシートだけ表示状態にする

    For i = LBound(targetSheets) To UBound(targetSheets)

        On Error Resume Next ' シート名が間違っていてもエラー回避

        ThisWorkbook.Worksheets(targetSheets(i)).Visible = True

        On Error GoTo 0

    Next i
    ' PDFとして保存

    Dim savePath As String

    savePath = ThisWorkbook.Path & "" & ""出力結果.pdf"" ' ファイル名を設定