【ExcelVBA】全シートをシート名でPDF保存する方法

こんなあなたにおすすめ

定型業務で、Excelでまとめた資料、請求書をPDFに変換するということがあります。

手作業でやるのが大変、面倒臭いという方のために、全シートをシート名でPDF変換する方法についてまとめましたので、ぜひ使ってみてください。

全シートをシート名でPDF保存する方法

「ExportAsFixedFormat」を使うことで、ExcelをPDF変換することができます。

以下のコードのfilePath = 「」の「」の部分は、自分がPDFファイルを保存したいフォルダを入力してください。

今回は、現在開いているブックと同じフォルダにPDFファイルを保存するようになっています。

実際にコードを見ていきましょう。

Sub convPDF()

    '変数を定義
    Dim filePath As String    'ファイルパス格納用の変数
    Dim ws As Worksheet    'ワークシートオブジェクト格納用の変数
     
    'ブックのパスを変数に格納
    filePath = ActiveWorkbook.Path & "\"
          
    '全てのシートをPDF保存する
    For Each ws In ActiveWorkbook.Worksheets
        ws.ExportAsFixedFormat Type:=xlTypePDF, _
                                Filename:=filePath & ws.Name & ".pdf"
    Next ws

End Sub