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

日々の業務で大量のExcelファイルを扱っている方にとって、特定の条件に一致するシートだけを選別してPDF化することは非常に効率的です。この記事では、開いている全ワークブックから指定した文字列が含まれるシートのみを抽出し、個別のPDFとして保存するVBAコードを作成します。

サンプルコード

VBA

Option Explicit
Sub SavePartialMatchSheetsAsPDF()
    Dim wb As Workbook, ws As Worksheet
    Dim searchStr As String
    Dim pdfPath As String
    Dim sheetName As String
    
    ' 検索文字列と保存パスを設定
    searchStr = "部分一致する文字列"
    pdfPath = ThisWorkbook.Path & "\PDFs" ' PDFファイルの保存先フォルダ
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' フォルダが存在しない場合は作成
    If Dir(pdfPath, vbDirectory) = "" Then MkDir pdfPath
    
    For Each wb In Workbooks
        For Each ws In wb.Sheets
            sheetName = ws.Name
            ' 部分一致検索
            If InStr(1, sheetName, searchStr, vbTextCompare) > 0 Then
                ' ファイル名を生成
                Dim fileName As String
                fileName = pdfPath & "\" & wb.Name & " - " & ws.Name & ".pdf"
                ' PDF保存
                ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
            End If
        Next ws
    Next wb
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

シート名や列番号が正しいか確認してください。また、ワークブックが開かれていることを確認してください。