【コピペOK】すべてのシートを一括でPDF保存するVBAコード｜もう選ばなくてOK！
「PDFにしたいシート名を毎回指定するのが面倒…」
そんな方におすすめなのが、このすべてのシートを自動でPDF保存するマクロです！
作業時間を大幅に削減できて、コピペだけでOK。初心者でも安心して使えます。
✨ できること：すべてのシートを自動PDF保存！
- ✅ シート名をいちいち指定しなくてOK
- ✅ ブック内すべてのシートを1つのPDFにまとめる
- ✅ デスクトップに自動保存される
📌 このコードをコピーして、Excelに貼り付ければすぐに実行可能です！
Sub ExportAllSheetsToPDF()
Dim ws As Worksheet
Dim savePath As String
savePath = Environ("USERPROFILE") & "\Desktop\全シートまとめ.pdf"
ThisWorkbook.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=savePath, _
Quality:=xlQualityStandard
MsgBox "すべてのシートをPDF保存しました！" & vbCrLf & vbCrLf & "保存場所：" & savePath, vbInformation
End Sub
🛠 応用Tips：カスタマイズの例
▶ 応用カスタマイズを開く
- 📅 ファイル名に日付を追加：
savePath = Environ("USERPROFILE") & "\Desktop\請求書_" & Format(Date, "yyyymmdd") & ".pdf" - 📁 保存先フォルダを指定：
savePath = "C:\\Users\\ユーザー名\\Documents\\PDF出力\\請求書.pdf" - 🖨️ 印刷に切り替える：
.ExportAsFixedFormatを.PrintOutに変更
💡 コードの解説ポイント（クリックで表示）
-
● ExportAsFixedFormat
→ ExcelをPDFに変換する標準メソッド。 -
● savePath
→ 出力先パスとファイル名の指定に使います。 -
● MsgBox
→ 保存完了メッセージを表示して、場所も確認可能。
📘 VBAが初めての方はこちら
やさしいステップで学べる入門シリーズ第1回へ👇
📌 まとめ：VBAでPDF出力を自動化しよう！
複数のシートを1つのPDFにまとめて保存できれば、
日々の請求書作成や報告書作成がかなり効率化できます。
特に中小企業や個人事業主の方で、手作業でPDFを保存しているなら、
一度設定すればずっとラクになるマクロです！
✨ この記事は役に立ちましたか？ ✨
よければ簡単なフィードバックをお願いします！
この記事が「ちょっと便利かも」と思ったら、
ぜひ実務で使ってみてくださいね。
ご不明点やカスタマイズのご相談も、お気軽にどうぞ 😊
