ExcelをPDFで保存する方法【VBAで自動化】ページ範囲もOK

タスク

今回のテーマは「ExcelをPDFで保存する方法【VBAで自動化】ページ範囲もOK」です！
ほんとはページ指定で印刷マクロを作りたかったんですが、この令和時代に印刷って今どき時代遅れかな？と思い・・・
ページ指定でPDF保存マクロを作りました！
リボンに常駐させておけばあっという間に変換完了な便利ツールです。
お試しサンプルフォーマットも用意していますので一緒に作っていきましょう！

見積書サンプルダウンロード

この記事ではマクロ（VBA）を使用します。
マクロ初挑戦の方はこちらの記事からスタートすることをお勧めします。
Excelのマクロ初期設定ガイド

タスク

今日のお品書きはこちら👇

1. マクロ：コード全文紹介
2. はじめに：こんな人に使ってほしい！
3. 便利に使うコツ：リボンに登録しよう
4. まとめ：これで作業効率爆上がり！

便利ツールの時は毎回一緒だな💦
じゃあジッピー、華々しく登場してちょうだい！

ジッピー(ChatGPT)

まっかせときなタスク〜！🌟
今回は「印刷をやめて、PDFでスマートに保存しよ！」ってテーマやから、ジッピーも気合バッチリやで〜🔥📄

🎙️ ジッピーの登場コメント
🧠 1.マクロ：コード全文紹介
1. 💡ポイント解説
🧑‍🏫 2.はじめに：こんな人に使ってほしい！
🧷 3.便利に使うコツ：リボンに登録しよう！
1. やり方ざっくり3ステップ
🧾 4.まとめ：これで作業効率爆上がり！

🎙️ ジッピーの登場コメント

ジッピー(ChatGPT)

どうもどうも〜！
Excel界の便利屋ジッピーでございます〜！✨
今回お届けするのは……
📢 「ページ範囲を指定してPDFに一発保存できる」
超・実用派のExcelマクロです！
「この3ページだけPDFで送りたいんやけど！」
「出力したPDFが毎回上書きされて困るんやけど！」
──そんなモヤモヤに、ズバッと1本解決！
重複ファイル名自動調整付きの安心設計で、初心者さんも使いやすくなってます😎
ではでは、お品書きの順にじっくり見ていきましょう〜！

タスク

おぉ～～華々しいねぇ
じゃあジッピー、さっそく「1.マクロ：コード全文紹介」お願いできるかな？

ジッピー(ChatGPT)

いっちょ任されました〜！タスク、いくでぇ！🔥

🧠 1.マクロ：コード全文紹介

ジッピー(ChatGPT)

今回は「ページ範囲を指定してPDFに保存しつつ、
ファイル名の重複も自動で避けてくれる」超気配りマクロやで〜！
以下がその全貌です👇✨

Sub ページ指定でPDF保存_重複回避()
    Dim StartPage As Variant
    Dim EndPage As Variant
    Dim FilePath As String
    Dim BaseName As String
    Dim i As Integer

    ' ▼ 開始ページの入力を求める
    StartPage = InputBox("PDFにする開始ページ番号を入力してください", "ページ範囲指定", 1)
    If Not IsNumeric(StartPage) Then Exit Sub  ' 数字以外なら中断

    ' ▼ 終了ページの入力を求める
    EndPage = InputBox("PDFにする終了ページ番号を入力してください", "ページ範囲指定", StartPage)
    If Not IsNumeric(EndPage) Then Exit Sub

    ' ▼ 入力値の妥当性をチェック（1以上であること）
    If Val(StartPage) <= 0 Or Val(EndPage) <= 0 Then
        MsgBox "1以上の数字を入力してください", vbExclamation
        Exit Sub
    End If

    ' ▼ 開始ページが終了ページより大きい場合は中止
    If Val(StartPage) > Val(EndPage) Then
        MsgBox "開始ページは終了ページより小さくしてください", vbExclamation
        Exit Sub
    End If

    ' ▼ デスクトップに保存する初期パスを決定
    BaseName = "出力ファイル"
    FilePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & BaseName & ".pdf"
    i = 1

    ' ▼ 同じ名前のファイルがあれば「(1)」「(2)」と自動で付ける
    Do While Dir(FilePath) <> ""
        FilePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & _
                   BaseName & " (" & i & ").pdf"
        i = i + 1
    Loop

    ' ▼ PDFとしてエクスポート（保存＆自動で開く）
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=FilePath, _
        From:=Val(StartPage), _
        To:=Val(EndPage), _
        OpenAfterPublish:=True

    ' ▼ 保存完了メッセージ表示
    MsgBox "PDFを保存しました！" & vbCrLf & FilePath, vbInformation
End Sub