エクセルVBAでPDF出力を自動化！簡単コード付き解説

1. エクセルVBAでPDF出力を自動化するメリット

エクセルのデータをPDFとして保存する作業は、VBAを使えばボタン1つで自動化できます。

✅ VBAでPDF出力を自動化するメリット

• 手作業不要で、瞬時にPDFを作成！
• 指定した範囲だけをPDF化！
• 複数のシートを1つのPDFに統合！
• ファイル名を自動設定して保存！

💡 VBAを活用すれば、エクセルのPDF作成がより効率的になります！

2. VBAでPDFを出力する基本コード

🔹 ① アクティブシートをPDFに変換

📌 現在のシートをPDFとして保存する基本コード

Sub ExportActiveSheetToPDF()
    Dim ws As Worksheet
    Dim filePath As String
    
    Set ws = ActiveSheet
    filePath = "C:\Users\User\Documents\" & ws.Name & ".pdf"
    
    ws.ExportAsFixedFormat Type:=xlTypePDF, _
                            Filename:=filePath, _
                            Quality:=xlQualityStandard
    
    MsgBox "PDFを出力しました！\n保存先: " & filePath
End Sub

✅ 実行すると、現在のシートがPDFとして保存されます！

🔹 ② 指定範囲だけをPDFに変換

📌 エクセルの一部（A1:D10）をPDFに出力するコード

Sub ExportRangeToPDF()
    Dim ws As Worksheet
    Dim rng As Range
    Dim filePath As String
    
    Set ws = ActiveSheet
    Set rng = ws.Range("A1:D10")
    filePath = "C:\Users\User\Documents\選択範囲.pdf"
    
    rng.ExportAsFixedFormat Type:=xlTypePDF, _
                             Filename:=filePath, _
                             Quality:=xlQualityStandard
    
    MsgBox "指定範囲のPDFを出力しました！\n保存先: " & filePath
End Sub

✅ 実行すると、指定した範囲（A1:D10）のみがPDFとして保存されます！

🔹 ③ 複数のシートを1つのPDFにまとめる

📌 指定したシートを1つのPDFファイルにまとめるコード

Sub ExportMultipleSheetsToPDF()
    Dim filePath As String
    
    filePath = "C:\Users\User\Documents\複数シート.pdf"
    
    Sheets(Array("Sheet1", "Sheet2")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                     Filename:=filePath, _
                                     Quality:=xlQualityStandard
    
    MsgBox "複数シートを1つのPDFに保存しました！\n保存先: " & filePath
End Sub

✅ 実行すると、「Sheet1」と「Sheet2」が1つのPDFに統合されます！

🔹 ④ ファイル名を日付入りで自動設定する

📌 保存するPDFのファイル名を日付付きにするコード

Sub ExportPDFWithDate()
    Dim ws As Worksheet
    Dim filePath As String
    
    Set ws = ActiveSheet
    filePath = "C:\Users\User\Documents\" & ws.Name & "_" & Format(Date, "yyyy-mm-dd") & ".pdf"
    
    ws.ExportAsFixedFormat Type:=xlTypePDF, _
                            Filename:=filePath, _
                            Quality:=xlQualityStandard
    
    MsgBox "PDFを日付付きで保存しました！\n保存先: " & filePath
End Sub

✅ 実行すると、ファイル名に日付が追加されたPDFが保存されます！

3. VBAを活用したPDF出力の実践テクニック

💡 VBAを活用すれば、PDF作成の手間が大幅に削減できます！

4. まとめ

✅ VBAを使えば、エクセルのPDF出力を自動化できる！ ✅ シート全体・指定範囲・複数シートのPDF化が簡単！ ✅ 日付付きのファイル名やフォルダ指定も可能！ ✅ VBAを活用して、エクセルのPDF作成をよりスマートに！

💡 VBAをマスターすれば、エクセル業務の効率が劇的に向上します！🚀