【VBA】開いている全ブックを完全一致でPDF保存する方法

日々の業務で大量のExcelファイルを扱っている方にとって、手動でのPDF変換は労力がかかります。この記事では、開いているすべてのワークブックに対して指定したシート名と完全一致するシートのみをPDFに保存するVBAマクロを作成します。

サンプルコード

VBA

Option Explicit
Sub SaveSheetsAsPDF()
    Dim wb As Workbook, ws As Worksheet
    Dim sheetName As String, filePath As String
    sheetName = "Sheet1" '完全一致で指定したいシート名を入力
    filePath = "C:\Users\YourUsername\Documents\" '保存先のパスを設定
    Application.ScreenUpdating = False
    For Each wb In Workbooks
        If Not wb.Name = ThisWorkbook.Name Then
            For Each ws In wb.Sheets
                If ws.Name = sheetName Then
                    filePath = filePath & wb.Name & " - " & ws.Name & ".pdf"
                    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
                End If
            Next ws
        End If
    Next wb
    Application.ScreenUpdating = True
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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