検索結果シートをPDFとして保存

Sub SaveSearchResultAsPDF()
    Dim searchDate As String
    Dim fileName As String
    Dim filePath As String

    ' 検索日の取得
    searchDate = Format(Date, "yyyymmdd")

    ' ファイル名の作成
    fileName = "検索結果_" & searchDate & ".pdf"

    ' ファイルパスの作成（保存先を適切な場所に変更してください）
    filePath = ThisWorkbook.Path & "\" & fileName

    ' PDFとしてシートを保存
    Sheets("検索結果").ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath, Quality:=xlQualityStandard

    MsgBox "PDFファイルが作成されました: " & filePath
End Sub