【VBA】開いている全ブックを開かずに(外部参照で)PDF保存する方法

手作業で大量のExcelファイルから個々のシートをPDFに変換するのは時間がかかります。この記事では、開いていないワークブックから特定のシートをPDFとしてエクスポートする方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub ExportSheetsToPDF()
    Dim wb As Workbook, ws As Worksheet
    Dim filePath As String, sheetName As String
    Dim i As Integer

    ' ファイルパスとシート名の設定（ここでは例として固定値を使用）
    filePath = "C:\path\to\your\workbook.xlsx"
    sheetName = "Sheet1"

    Application.ScreenUpdating = False
    Set wb = Workbooks.Open(filePath)
    For i = 1 To wb.Sheets.Count
        If wb.Sheets(i).Name = sheetName Then
            wb.Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\path\to\your\output.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        End If
    Next i
    wb.Close SaveChanges:=False
    Application.ScreenUpdating = True
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

シート名や列番号が正しいか確認してください。また、ワークブックへのアクセス権限があるかも確認してください。