VBA PDF形式で保存する

PDF形式で保存する

Sub test()
    Dim fileName As String
      ’   保存先フォルダパス＆ファイル名
    fileName = ThisWorkbook.Path & "\test1.pdf"


    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName

End Sub

※　赤文字のtest1を保存したいファイル名に変えれば、実務の資料でも対応できます。ただ、単一ファイルをこのコードだとあまり効果がないです。この場合、For～Next文と組み合わせれば、大量なファイルを一括PDF出力ができ、作業効率の向上が期待できます。