【VBA】開いている全ブックをバックグラウンドでPDF保存する方法

日々の業務の中で、大量のExcelファイルを印刷やPDF化する作業は労力がかかるものです。この記事では、開いている全てのワークブックを一括でPDFに変換し、バックグラウンドで処理することで時間を大幅に節約します。

サンプルコード

VBA

Option Explicit
Sub SaveAllBooksAsPDF()
    Dim wb As Workbook
    Dim path As String
    Application.ScreenUpdating = False
    For Each wb In Workbooks
        If Not wb.Name = ThisWorkbook.Name Then
            path = wb.Path & "\" & wb.Name & ".pdf"
            wb.ExportAsFixedFormat Type:=xlTypePDF, Filename:=path, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        End If
    Next wb
    Application.ScreenUpdating = True
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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