MENU
  1. Startseite
  2. MS Office
  3. Excel
  4. So führen Sie mehrere PDFs mit Excel VBA zusammen

So führen Sie mehrere PDFs mit Excel VBA zusammen

Excel

Dieser Artikel erklärt, wie Sie mehrere PDF-Dateien mithilfe von Excel VBA zu einer einzigen zusammenführen können. Durch die Automatisierung dieses Prozesses können Sie Aufwand sparen und effizienter arbeiten. Diese Methode ist besonders nützlich, wenn Sie mit einer großen Anzahl von PDFs zu tun haben. Folgen Sie den untenstehenden Schritten, um einfach ein Makro zum Zusammenführen von PDFs zu erstellen und zu verwenden.

Inhaltsverzeichnis

Erforderliche Werkzeuge und Vorbereitung

Um PDFs mit einem VBA-Makro zusammenzuführen, sind einige Vorbereitungen erforderlich. Überprüfen Sie die untenstehenden Werkzeuge und Schritte.

Installation von PDF-Zusammenführungswerkzeugen

Für das Zusammenführen von PDFs wird eine PDF-Bibliothek benötigt. Hier stellen wir Methoden unter Verwendung von Adobe Acrobat oder PDFtk vor.

Für Adobe Acrobat
  1. Installieren Sie Adobe Acrobat. Eine Lizenz für Adobe Acrobat Pro ist erforderlich.
  2. Setzen Sie die Acrobat-Objektbibliothek als Referenz in VBA.
  • Öffnen Sie den VBA-Editor in Excel (Alt + F11).
  • Wählen Sie im Menü „Extras“ die Option „Verweise“.
  • Markieren Sie „Adobe Acrobat xx.x Type Library“ und klicken Sie auf „OK“.
Für PDFtk
  1. Installieren Sie PDFtk. Sie können den kostenlosen PDFtk Server verwenden.
  2. Fügen Sie das PDFtk-Installationsverzeichnis dem System-PATH hinzu.
  • Bearbeiten Sie die Windows-Systemumgebungsvariablen und fügen Sie den PDFtk-Installationspfad zum „Path“ hinzu.

Makroeinrichtung

  1. Öffnen Sie eine Excel-Datei und den VBA-Editor mit Alt + F11.
  2. Fügen Sie ein neues Modul ein (Menü „Einfügen“ → „Modul“).
  3. Fügen Sie den folgenden Code in das Modul ein.

Sie sind nun bereit, das VBA-Makro zu verwenden. Als nächstes gehen wir auf den spezifischen VBA-Code und seine Erklärung ein.

Erklärung des Codes zum Zusammenführen von PDFs mit VBA

Hier stellen wir VBA-Code vor, der Adobe Acrobat verwendet. Bei der Verwendung von PDFtk können Sie ähnliche Schritte ausführen, aber es sind Befehlszeilenoperationen erforderlich.

VBA-Code unter Verwendung von Adobe Acrobat

Hier ist zunächst der Code zum Zusammenführen von PDFs mit VBA.

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

    ' Set the path for the PDF files
    Pdf1 = "C:\path\to\your\first\pdf.pdf"
    Pdf2 = "C:\path\to\your\second\pdf.pdf"
    OutputPdf = "C:\path\to\your\output\merged.pdf"

    ' Create the Adobe Acrobat object
    Set AcroApp = CreateObject("AcroExch.App")
    Set PartDocs = CreateObject("AcroExch.PDDoc")

    ' Open the first PDF
    If PartDocs.Open(Pdf1) Then
        ' Create a new PDF document with the first PDF
        Set CombinedDoc = PartDocs

        ' Open the second PDF
        If PartDocs.Open(Pdf2) Then
            ' Merge the second PDF
            If CombinedDoc.InsertPages(CombinedDoc.GetNumPages() - 1, PartDocs, 0, PartDocs.GetNumPages(), 0) Then
                ' Save the merged 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

            ' Close the second PDF
            PartDocs.Close
        Else
            MsgBox "Failed to open the second PDF."
        End If

        ' Close the first PDF
        CombinedDoc.Close
    Else
        MsgBox "Failed to open the first PDF."
    End If

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

Codeerklärung

  • Dim AcroApp As Object: Erstellt ein Objekt für die Adobe Acrobat-Anwendung.
  • Dim PartDocs As Object: Erstellt ein Objekt zur Verwaltung einzelner PDF-Dokumente.
  • Dim CombinedDoc As Object: Erstellt ein Objekt zur Verwaltung des kombinierten PDF-Dokuments.
  • Pdf1, Pdf2, OutputPdf: Legen die Pfade für die zusammenzuführenden PDF-Dateien und die Ausgabedatei fest.
  • Set AcroApp = CreateObject("AcroExch.App"): Erstellt eine Instanz der Adobe Acrobat-Anwendung.
  • Set PartDocs = CreateObject("AcroExch.PDDoc"): Erstellt eine Instanz für einzelne PDF-Dokumente.
  • PartDocs.Open(Pdf1), PartDocs.Open(Pdf2): Öffnet die PDF-Dateien.
  • CombinedDoc.InsertPages: Fügt die zweite PDF in die erste PDF ein.
  • CombinedDoc.Save: Speichert die zusammengeführte PDF.
  • AcroApp.Exit: Beendet die Acrobat-Anwendung.

VBA-Code unter Verwendung von PDFtk

Als nächstes hier der VBA-Code für die Verwendung von PDFtk.

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

    ' Set the path for the PDF files
    Pdf1 = "C:\path\to\your\first\pdf.pdf"
    Pdf2 = "C:\path\to\your\second\pdf.pdf"
    OutputPdf = "C:\path\to\your\output\merged.pdf"

    ' Create the PDFtk command
    Command = "pdftk " & Pdf1 & " " & Pdf2 & " cat output " & OutputPdf

    ' Run the shell command to merge the PDFs
    Shell Command, vbNormalFocus
End Sub

Codeerklärung

  • Pdf1, Pdf2, OutputPdf: Legen die Pfade für die zusammenzuführenden PDF-Dateien und die Ausgabedatei fest.
  • Command: Erstellt den PDFtk-Befehl. Der pdftk-Befehl fügt die angegebenen PDF-Dateien zusammen und erzeugt die Ausgabedatei.
  • Shell Command, vbNormalFocus: Führt den Shell-Befehl zum Zusammenführen der PDFs aus.

Nun verstehen Sie, wie Sie mehrere PDFs mit Excel VBA zusammenführen können. Als nächstes erklären wir die Schritte zur Ausführung des Makros.

Schritte zur Ausführung des Makros

Hier erklären wir die Schritte zur Ausführung des Makros in Excel mithilfe des zuvor vorgestellten VBA-Codes zum Zusammenführen von PDFs.

Makroeinrichtung und -ausführung

  1. Öffnen Sie die Excel-Datei
    Öffnen Sie die Excel-Datei, in der Sie den Zusammenführungsprozess ausführen möchten.
  2. Öffnen Sie den VBA-Editor
    Drücken Sie Alt + F11, um den VBA-Editor zu öffnen.
  3. Fügen Sie ein neues Modul ein
    Wählen Sie im Menü „Einfügen“ die Option „Modul“, um ein neues Modul einzufügen.
  4. Fügen Sie den Code ein
    Fügen Sie den folgenden Code in das neue Modul ein. Hier zeigen wir ein Beispiel unter Verwendung von Adobe Acrobat, aber wenn Sie PDFtk verwenden, nutzen Sie den zuvor vorgestellten PDFtk-Code.
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

    ' Set the path for the PDF files
    Pdf1 = "C:\path\to\your\first\pdf.pdf"
    Pdf2 = "C:\path\to\your\second\pdf.pdf"
    OutputPdf = "C:\path\to\your\output\merged.pdf"

    ' Create the Adobe Acrobat object
    Set AcroApp = CreateObject("AcroExch.App")
    Set PartDocs = CreateObject("AcroExch.PDDoc")

    ' Open the first PDF
    If PartDocs.Open(Pdf1) Then
        ' Create a new PDF document with the first PDF
        Set CombinedDoc = PartDocs

        ' Open the second PDF
        If PartDocs.Open(Pdf2) Then
            ' Merge the second PDF
            If CombinedDoc.InsertPages(CombinedDoc.GetNumPages() - 1, PartDocs, 0, PartDocs.GetNumPages(), 0) Then
                ' Save the merged 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

            ' Close the second PDF
            PartDocs.Close
        Else
            MsgBox "Failed to open the second PDF."
        End If

        ' Close the first PDF
        CombinedDoc.Close
    Else
        MsgBox "Failed to open the first PDF."
    End If

    ' Exit Acrobat
    AcroApp.Exit
    Set AcroApp = Nothing
    Set PartDocs = Nothing
    Set CombinedDoc = Nothing
End Sub
  1. Führen Sie das Makro aus
  • Schließen Sie den VBA-Editor und kehren Sie zu Excel zurück.
  • Drücken Sie Alt + F8, um das Dialogfeld „Makro“ zu öffnen.
  • Wählen Sie „MergePDFs_Acrobat“ und klicken Sie auf „Ausführen“.

6.Überprüfen Sie das Ergebnis der PDF-Zusammenführung
Überprüfen Sie, ob die zusammengeführte PDF-Datei am angegebenen Ausgabedateipfad erstellt wurde (z.B. C:\path\to\your\output\merged.pdf).

Verwendung von PDFtk

  1. Fügen Sie den VBA-Code ein
    Wenn Sie PDFtk verwenden, fügen Sie den folgenden Code in das Modul ein.
Sub MergePDFs_PDFtk()
    Dim Pdf1 As String
    Dim Pdf2 As String
    Dim OutputPdf As String
    Dim Command As String

    ' Set the path for the PDF files
    Pdf1 = "C:\path\to\your\first\pdf.pdf"
    Pdf2 = "C:\path\to\your\second\pdf.pdf"
    OutputPdf = "C:\path\to\your\output\merged.pdf"

    ' Create the PDFtk command
    Command = "pdftk " & Pdf1 & " " & Pdf2 & " cat output " & OutputPdf

    ' Run the shell command to merge the PDFs
    Shell Command, vbNormalFocus
End Sub
  1. Führen Sie das Makro aus
    Folgen Sie denselben Schritten zur Ausführung des Makros wie zuvor beschrieben, aber verwenden Sie den PDFtk-Code.

Mit diesen Schritten können Sie mehrere PDF-Dateien mithilfe von Excel VBA zusammenführen. Als nächstes behandeln wir häufige Probleme und deren Lösungen.

Fehlerbehebung

Hier sind häufige Probleme und Lösungen beim Zusammenführen von PDFs mit Excel VBA.

1. Adobe Acrobat ist nicht installiert

Problem: Wenn Adobe Acrobat nicht installiert ist, tritt ein Fehler bei CreateObject("AcroExch.App") auf.
Lösung: Installieren Sie Adobe Acrobat Pro. Diese Operation kann nicht mit dem kostenlosen Adobe Reader durchgeführt werden.

2. Falscher Dateipfad

Problem: Wenn der angegebene PDF-Dateipfad falsch ist, tritt ein Fehler bei PartDocs.Open(Pdf1) oder PartDocs.Open(Pdf2) auf.
Lösung: Überprüfen Sie, ob der Pfad korrekt ist und die Dateien an den angegebenen Pfaden vorhanden sind.

3. PDF-Zusammenführung schlägt fehl

Problem: CombinedDoc.InsertPages kann fehlschlagen, wenn Seiten eingefügt werden.
Lösung: Überprüfen Sie, ob die zusammenzuführenden PDFs nicht beschädigt sind. Wenn die PDFs eine extrem große Anzahl von Seiten haben, können Speicherprobleme auftreten. Versuchen Sie, kleinere PDF-Dateien zusammenzuführen.

4. PDF-Speicherung schlägt fehl

Problem: Das Speichern der zusammengeführten PDF mit CombinedDoc.Save kann fehlschlagen.
Lösung: Stellen Sie sicher, dass der Zielordner Schreibrechte hat. Überprüfen Sie auch, ob keine bestehende Datei mit demselben Namen vorhanden ist und versuchen Sie, die Datei unter einem anderen Namen zu speichern.

5. PDFtk-Befehl wird nicht ausgeführt

Problem: Wenn der PDFtk-Befehl nicht korrekt ausgeführt wird, tritt ein Fehler bei Shell Command, vbNormalFocus auf.
Lösung: Stellen Sie sicher, dass PDFtk korrekt installiert und dem System-PATH hinzugefügt wurde. Versuchen Sie auch, den PDFtk-Befehl direkt in der Eingabeaufforderung auszuführen, um zu überprüfen, ob er ordnungsgemäß funktioniert.

6. Falsche Referenzeinstellungen

Problem: Wenn die Adobe Acrobat-Objektbibliothek nicht als Referenz gesetzt ist, tritt ein Fehler bei CreateObject("AcroExch.App") auf.
Lösung: Wählen Sie im VBA-Editor im Menü „Extras“ die Option „Verweise“, markieren Sie „Adobe Acrobat xx.x Type Library“ und klicken Sie auf „OK“.

7. Andere VBA-Fehler

Problem: Bei anderen VBA-Fehlern gehen Sie in den Debug-Modus, um die Ursache zu ermitteln.
Lösung: Drücken Sie im VBA-Editor F8, um den Code schrittweise durchzugehen und die Zeile zu identifizieren, die den Fehler verursacht. Untersuchen Sie die Fehlermeldung, um eine geeignete Lösung zu finden.

Verwenden Sie diesen Leitfaden zur Fehlerbehebung, um Probleme zu lösen und PDFs reibungslos zusammenzuführen. Als nächstes fassen wir die besprochenen Schritte zusammen.

Schlussfolgerung

Wir haben erklärt, wie Sie mehrere PDFs mithilfe von Excel VBA zusammenführen können. Durch die Befolgung dieser Schritte können Sie manuelle PDF-Zusammenführungsaufgaben automatisieren und die Effizienz verbessern. Hier sind die wichtigsten Punkte:

  • Bereiten Sie die erforderlichen Werkzeuge vor: Installieren und richten Sie Adobe Acrobat oder PDFtk ein.
  • Erstellen Sie den VBA-Code: Erstellen Sie VBA-Code zum Zusammenführen von PDFs mithilfe von Adobe Acrobat oder PDFtk.
  • Führen Sie das Makro aus: Führen Sie das VBA-Makro in Excel aus, um PDFs zusammenzuführen.
  • Fehlerbehebung: Beheben Sie häufige Probleme und stellen Sie eine reibungslose PDF-Zusammenführung sicher.

Durch die Befolgung dieser Schritte können Sie mehrere PDFs problemlos zusammenführen und die Arbeitseffizienz erheblich steigern. Nutzen Sie die VBA-Automatisierung, um Ihre täglichen Aufgaben zu optimieren.

Excel
Adobe Acrobat Automatisierung Excel VBA Makro PDF Zusammenführen PDFtk VBA Code
Inhaltsverzeichnis