MENU
  1. ホーム
  2. VBA
  3. Excel VBAを使用して複数のPDFを結合する方法

Excel VBAを使用して複数のPDFを結合する方法

VBA

Excel VBAを利用して複数のPDFファイルを一つに結合する方法を解説します。このプロセスを自動化することで、手間を省き、効率的に作業を進めることができます。特に大量のPDFを扱う場合、この方法は非常に有用です。以下の手順に従って、簡単にPDF結合マクロを作成し、使用することができます。

目次

必要なツールと準備

VBAマクロを使用してPDFを結合するには、いくつかの準備が必要です。以下のツールと手順を確認してください。

PDF結合ツールのインストール

PDF結合には、PDFライブラリが必要です。ここでは、Adobe AcrobatまたはPDFtkを使用する方法を紹介します。

Adobe Acrobatの場合
  1. Adobe Acrobatをインストールします。Adobe Acrobat Proのライセンスが必要です。
  2. AcrobatのオブジェクトライブラリをVBAに参照設定します。
  • ExcelのVBAエディタを開きます（Alt + F11）。
  • メニューの「ツール」から「参照設定」を選択します。
  • 「Adobe Acrobat xx.x Type Library」にチェックを入れ、「OK」をクリックします。
PDFtkの場合
  1. PDFtkをインストールします。無料のPDFtk Serverを利用できます。
  2. PDFtkのインストールディレクトリをシステムのPATHに追加します。
  • Windowsのシステム環境変数を編集し、「Path」にPDFtkのインストールパスを追加します。

マクロの設定

  1. Excelファイルを開き、Alt + F11でVBAエディタを開きます。
  2. 新しいモジュールを挿入します（メニューの「挿入」→「標準モジュール」）。
  3. 次に紹介するコードをモジュールに貼り付けます。

これで、VBAマクロを使用する準備が整いました。次は、具体的なVBAコードとその解説に移ります。

VBAでPDFを結合するコードの解説

ここでは、Adobe Acrobatを使用したVBAコードを紹介します。PDFtkを使用する場合も、同様の手順で進められますが、コマンドライン操作が必要になります。

Adobe Acrobatを使用したVBAコード

まず、VBAでPDFを結合するためのコードを示します。

Sub MergePDFs_Acrobat()
    Dim AcroApp As Object
    Dim PartDocs As Object
    Dim CombinedDoc As Object
    Dim Pdf1 As String
    Dim Pdf2 As String
    Dim OutputPdf As String

    ' PDFファイルのパスを設定
    Pdf1 = "C:\path\to\your\first\pdf.pdf"
    Pdf2 = "C:\path\to\your\second\pdf.pdf"
    OutputPdf = "C:\path\to\your\output\merged.pdf"

    ' Adobe Acrobatのオブジェクトを作成
    Set AcroApp = CreateObject("AcroExch.App")
    Set PartDocs = CreateObject("AcroExch.PDDoc")

    ' 最初のPDFを開く
    If PartDocs.Open(Pdf1) Then
        ' 最初のPDFを新しいPDFドキュメントとして作成
        Set CombinedDoc = PartDocs

        ' 2番目のPDFを開く
        If PartDocs.Open(Pdf2) Then
            ' 2番目のPDFを結合
            If CombinedDoc.InsertPages(CombinedDoc.GetNumPages() - 1, PartDocs, 0, PartDocs.GetNumPages(), 0) Then
                ' 結合したPDFを保存
                If Not CombinedDoc.Save(1, OutputPdf) Then
                    MsgBox "Failed to save the merged PDF."
                End If
            Else
                MsgBox "Failed to insert pages."
            End If

            ' 2番目のPDFを閉じる
            PartDocs.Close
        Else
            MsgBox "Failed to open the second PDF."
        End If

        ' 最初のPDFを閉じる
        CombinedDoc.Close
    Else
        MsgBox "Failed to open the first PDF."
    End If

    ' Acrobatを終了
    AcroApp.Exit
    Set AcroApp = Nothing
    Set PartDocs = Nothing
    Set CombinedDoc = Nothing
End Sub

コードの解説

  • Dim AcroApp As Object: Adobe Acrobatアプリケーションのオブジェクトを作成します。
  • Dim PartDocs As Object: 個々のPDFドキュメントを管理するためのオブジェクトを作成します。
  • Dim CombinedDoc As Object: 結合されたPDFドキュメントを管理するためのオブジェクトを作成します。
  • Pdf1, Pdf2, OutputPdf: 結合するPDFファイルと出力するPDFファイルのパスを設定します。
  • Set AcroApp = CreateObject("AcroExch.App"): Adobe Acrobatアプリケーションのインスタンスを作成します。
  • Set PartDocs = CreateObject("AcroExch.PDDoc"): 個々のPDFドキュメントのインスタンスを作成します。
  • PartDocs.Open(Pdf1), PartDocs.Open(Pdf2): PDFファイルを開きます。
  • CombinedDoc.InsertPages: 最初のPDFに2番目のPDFを挿入します。
  • CombinedDoc.Save: 結合されたPDFを保存します。
  • AcroApp.Exit: Acrobatアプリケーションを終了します。

PDFtkを使用したVBAコード

次に、PDFtkを使用する場合のVBAコードを示します。

Sub MergePDFs_PDFtk()
    Dim Pdf1 As String
    Dim Pdf2 As String
    Dim OutputPdf As String
    Dim Command As String

    ' PDFファイルのパスを設定
    Pdf1 = "C:\path\to\your\first\pdf.pdf"
    Pdf2 = "C:\path\to\your\second\pdf.pdf"
    OutputPdf = "C:\path\to\your\output\merged.pdf"

    ' PDFtkコマンドを作成
    Command = "pdftk " & Pdf1 & " " & Pdf2 & " cat output " & OutputPdf

    ' シェルコマンドを実行してPDFを結合
    Shell Command, vbNormalFocus
End Sub

コードの解説

  • Pdf1, Pdf2, OutputPdf: 結合するPDFファイルと出力するPDFファイルのパスを設定します。
  • Command: PDFtkのコマンドを作成します。pdftkコマンドは、指定したPDFファイルを結合し、出力ファイルを生成します。
  • Shell Command, vbNormalFocus: シェルコマンドを実行してPDFを結合します。

これで、Excel VBAを使用して複数のPDFを結合する方法が理解できました。次に、マクロの実行手順を説明します。

マクロの実行手順

ここでは、先ほど紹介したVBAコードを使って、実際にExcelでマクロを実行し、PDFを結合する手順を説明します。

マクロの設定と実行

  1. Excelファイルを開く
    結合処理を実行したいExcelファイルを開きます。
  2. VBAエディタを開く
    Alt + F11キーを押して、VBAエディタを開きます。
  3. 新しいモジュールを挿入する
    メニューの「挿入」から「標準モジュール」を選択し、新しいモジュールを挿入します。
  4. コードを貼り付ける
    以下のコードを新しいモジュールに貼り付けます。ここでは、Adobe Acrobatを使用する例を示しますが、PDFtkを使用する場合は前述のPDFtkコードを使用してください。
Sub MergePDFs_Acrobat()
    Dim AcroApp As Object
    Dim PartDocs As Object
    Dim CombinedDoc As Object
    Dim Pdf1 As String
    Dim Pdf2 As String
    Dim OutputPdf As String

    ' PDFファイルのパスを設定
    Pdf1 = "C:\path\to\your\first\pdf.pdf"
    Pdf2 = "C:\path\to\your\second\pdf.pdf"
    OutputPdf = "C:\path\to\your\output\merged.pdf"

    ' Adobe Acrobatのオブジェクトを作成
    Set AcroApp = CreateObject("AcroExch.App")
    Set PartDocs = CreateObject("AcroExch.PDDoc")

    ' 最初のPDFを開く
    If PartDocs.Open(Pdf1) Then
        ' 最初のPDFを新しいPDFドキュメントとして作成
        Set CombinedDoc = PartDocs

        ' 2番目のPDFを開く
        If PartDocs.Open(Pdf2) Then
            ' 2番目のPDFを結合
            If CombinedDoc.InsertPages(CombinedDoc.GetNumPages() - 1, PartDocs, 0, PartDocs.GetNumPages(), 0) Then
                ' 結合したPDFを保存
                If Not CombinedDoc.Save(1, OutputPdf) Then
                    MsgBox "Failed to save the merged PDF."
                End If
            Else
                MsgBox "Failed to insert pages."
            End If

            ' 2番目のPDFを閉じる
            PartDocs.Close
        Else
            MsgBox "Failed to open the second PDF."
        End If

        ' 最初のPDFを閉じる
        CombinedDoc.Close
    Else
        MsgBox "Failed to open the first PDF."
    End If

    ' Acrobatを終了
    AcroApp.Exit
    Set AcroApp = Nothing
    Set PartDocs = Nothing
    Set CombinedDoc = Nothing
End Sub
  1. マクロを実行する
  • VBAエディタを閉じて、Excelに戻ります。
  • Alt + F8キーを押して、「マクロ」ダイアログボックスを開きます。
  • 「MergePDFs_Acrobat」を選択し、「実行」をクリックします。

6.PDFの結合結果を確認する
指定した出力ファイルパス（例: C:\path\to\your\output\merged.pdf）に結合されたPDFファイルが作成されていることを確認します。

PDFtkを使用する場合

  1. VBAコードの貼り付け
    PDFtkを使用する場合は、以下のコードをモジュールに貼り付けます。
Sub MergePDFs_PDFtk()
    Dim Pdf1 As String
    Dim Pdf2 As String
    Dim OutputPdf As String
    Dim Command As String

    ' PDFファイルのパスを設定
    Pdf1 = "C:\path\to\your\first\pdf.pdf"
    Pdf2 = "C:\path\to\your\second\pdf.pdf"
    OutputPdf = "C:\path\to\your\output\merged.pdf"

    ' PDFtkコマンドを作成
    Command = "pdftk " & Pdf1 & " " & Pdf2 & " cat output " & OutputPdf

    ' シェルコマンドを実行してPDFを結合
    Shell Command, vbNormalFocus
End Sub
  1. マクロを実行する
    PDFtkを使用する場合も、同様の手順でマクロを実行します。

以上の手順で、Excel VBAを使用して複数のPDFファイルを結合することができます。次は、よくある問題とその解決方法について説明します。

トラブルシューティング

Excel VBAを使用してPDFを結合する際に、よく発生する問題とその解決方法を紹介します。

1. Adobe Acrobatがインストールされていない

問題: Adobe Acrobatがインストールされていない場合、CreateObject("AcroExch.App")でエラーが発生します。
解決方法: Adobe Acrobat Proをインストールしてください。無料のAdobe Readerではこの操作は実行できません。

2. ファイルパスの間違い

問題: 指定したPDFファイルのパスが間違っている場合、PartDocs.Open(Pdf1)やPartDocs.Open(Pdf2)でエラーが発生します。
解決方法: パスが正しいか確認し、ファイルが指定したパスに存在することを確認してください。

3. PDFの結合が失敗する

問題: CombinedDoc.InsertPagesでページの挿入が失敗することがあります。
解決方法: 結合するPDFファイルが破損していないか確認してください。また、PDFのページ数が極端に多い場合、メモリ不足の可能性があります。結合するPDFのサイズを小さくして試してみてください。

4. PDFの保存が失敗する

問題: CombinedDoc.Saveで結合後のPDFの保存が失敗することがあります。
解決方法: 保存先のフォルダに書き込み権限があるか確認してください。また、同じ名前のファイルが既に存在していないか確認し、異なる名前で保存することを試してください。

5. PDFtkのコマンドが実行されない

問題: PDFtkのコマンドが正しく実行されない場合、Shell Command, vbNormalFocusでエラーが発生することがあります。
解決方法: PDFtkが正しくインストールされ、システムのPATHに追加されていることを確認してください。また、コマンドプロンプトで直接PDFtkコマンドを実行してみて、正常に動作するか確認してください。

6. 参照設定が正しくない

問題: Adobe Acrobatのオブジェクトライブラリが参照設定されていない場合、CreateObject("AcroExch.App")でエラーが発生します。
解決方法: VBAエディタでメニューの「ツール」から「参照設定」を選択し、「Adobe Acrobat xx.x Type Library」にチェックを入れ、「OK」をクリックしてください。

7. その他のVBAエラー

問題: その他のVBAエラーが発生する場合、デバッグモードで原因を特定します。
解決方法: VBAエディタでF8キーを押してステップ実行し、エラーが発生する行を確認します。エラーメッセージをもとに、適切な解決策を調べてください。

これらのトラブルシューティングガイドを参考にして、問題を解決し、スムーズにPDF結合を行ってください。次に、今回の手順のまとめを説明します。

まとめ

Excel VBAを使用して複数のPDFを結合する方法について解説しました。この手順を使用することで、手作業で行っていたPDFの結合作業を自動化し、効率化を図ることができます。以下に、主要なポイントをまとめます。

  • 必要なツールの準備: Adobe AcrobatまたはPDFtkのインストールと設定を行います。
  • VBAコードの作成: Adobe AcrobatまたはPDFtkを使用して、PDFを結合するVBAコードを作成します。
  • マクロの実行: ExcelでVBAマクロを実行し、PDFを結合します。
  • トラブルシューティング: よくある問題に対処し、スムーズにPDF結合を実行します。

これらの手順を踏むことで、簡単に複数のPDFを結合することができ、業務効率を大幅に向上させることができます。VBAを活用した自動化のメリットを最大限に生かし、日々の作業を効率化してください。

VBA
応用例 Excel VBA マクロ

コメント

コメントする

目次