VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.
Neues Modul erstellen: Klicke mit der rechten Maustaste auf „VBAProject (DeineDatei)“, wähle „Einfügen“ und dann „Modul“.
Code einfügen: Kopiere den folgenden Code in das Modul:
Sub Open_PDF_File_From_EXCEL_to_Acrobat()
Dim myAcroApp As Object, myAcroDoc As Object, myAcroView As Object
Dim toOpenFile As String
' Hauptapplikation
Set myAcroApp = CreateObject("AcroExch.App")
' Dokumenthandler
Set myAcroDoc = CreateObject("AcroExch.AVDoc")
' Datei zum öffnen
toOpenFile = "C:\Demo.pdf"
myAcroApp.Show
myAcroApp.Maximize 1
' Datei öffnen
myAcroDoc.Open toOpenFile, toOpenFile
' Variablen neu definieren
Set myAcroDoc = myAcroApp.GetActiveDoc
Set myAcroView = myAcroDoc.GetAVPageView
With myAcroView
' Gehe zu Seite
.Goto 3
End With
' Schließen
' myAcroApp.Quit
Set myAcroApp = Nothing
Set myAcroDoc = Nothing
End SubPfad anpassen: Ändere toOpenFile auf den Pfad deiner PDF-Datei.
Makro ausführen: Schließe den VBA-Editor und führe das Makro in Excel aus.
Laufzeitfehler 429: Dieser Fehler tritt auf, wenn die ActiveX-Komponente nicht erstellt werden kann. Stelle sicher, dass du Adobe Acrobat (nicht den Reader) installiert hast und einen Verweis auf „Adobe Acrobat 7.0“ im VBE-Editor gesetzt hast (Extras > Verweise).
PDF-Datei nicht gefunden: Überprüfe, ob der angegebene Pfad zur PDF-Datei korrekt ist und die Datei existiert.
Eine alternative Methode besteht darin, die PDF-Datei über den Adobe Reader zu öffnen. Hierfür könnte der folgende Code verwendet werden:
Sub Open_PDF_With_Reader()
Dim filePath As String
filePath = "C:\Demo.pdf"
Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe " & filePath, vbNormalFocus
End SubStelle sicher, dass der Pfad zur AcroRd32.exe korrekt ist.
.Goto 3 im ersten Beispiel an, um die gewünschte Seitenzahl zu verwenden.acroexch.document: Um zusätzliche Funktionen wie das Extrahieren von Text oder das Bearbeiten von Inhalten in der PDF zu nutzen, kannst du den Typ acroexch.document verwenden, wenn du mit PDF-Dokumenten arbeitest.Fehlerbehandlung: Füge Fehlerbehandlung in deine Makros ein, um die Benutzerfreundlichkeit zu erhöhen. Zum Beispiel:
On Error GoTo ErrorHandler
' Dein Code hier
Exit Sub
ErrorHandler:
MsgBox "Ein Fehler ist aufgetreten: " & Err.Description1. Kann ich mit diesem Code auch PDF-Dateien im Browser öffnen?
Nein, dieser Code ist speziell für die Desktop-Anwendung von Adobe Acrobat und funktioniert nicht für Browser.
2. Funktioniert das auch mit älteren Versionen von Adobe?
Der Code funktioniert ab Adobe Acrobat 6.0, aber es könnte zu Einschränkungen kommen, je nach Version.
3. Warum funktioniert createobject("acroexch.app") nicht?
Dieser Fehler kann auftreten, wenn Adobe Acrobat nicht korrekt installiert ist oder der Verweis im VBE-Editor fehlt. Achte darauf, dass du die richtige Anwendung verwendest und dass die Version von Acrobat korrekt ist.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen