Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

PDF Seite öffnen

Forumthread: PDF Seite öffnen

PDF Seite öffnen
21.08.2005 16:02:22
Hans-Diego
benötige dingendst Hilfe:
Ich möchte von Excel mit Hilfe von VBA eine bestimmte PDF Seie aufmachen
Danke
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PDF Seite öffnen
21.08.2005 17:01:44
Ramses
Hallo
Seite oder Dokument ?
Acrobat oder Reader ?
Welche Version ?
Ausserdem bei VBA-Gut sollte Google kein Problem sein ;-)
Gruss Rainer
AW: PDF Seite öffnen
21.08.2005 20:34:17
Hans-Diego
Hallo Reiner,
finde nichts im Google....
Seite aufmachen
Adobe Reader 7.0
Für eine Hilfe wäre ich dankbar
Saludos
Hans-Diego
Anzeige
AW: PDF Seite öffnen
22.08.2005 21:16:59
Hans-Diego
Hallo Reiner, ya, entschuildige meine Präzition, ich möchte in einem PDF Dokument eine bestimmte Seite anzeigen gesteuert durch eine Variable in VBA.
Danke nochmals
Gruß
Hans-Diego
AW: PDF Seite öffnen
23.08.2005 23:35:55
Ramses
Hallo
Probier mal folgendes
Sub Open_PDF_File_From_EXCEL_to_Acrobat()
    'by Ramses
    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 = Acroapp.GetActiveDoc
    Set myAcroView = AVDoc.GetAVPageView
    With myAcroView
        'Gehe zu Seite
        .Goto 3
    End With
    'Schliessen
    'myAcroApp.Quit
    Set myAcroApp = Nothing
    Set myAcroDoc = Nothing
End Sub


Geht aber nur ab Acrobat 6.0
Gruss Rainer
Anzeige
AW: PDF Seite öffnen
24.08.2005 16:36:28
Hans-Diego
Hallo Rainer,
bin erstaunt über Deine Hilfsbereitschaft....
Habe es probiert und bekommen in Zeile
Set myAcroApp = CreateObject("AcroExch.App")
eine Fehlermeldung:
"Laufzeitfehler 429
Objekterstellung durch AvtiveX-Komponente nicht möglich"
die version it:
Adobe Reader 7.0.0
Vielen, vielen Dank
Gruss
Hans-Diego
Anzeige
AW: PDF Seite öffnen
24.08.2005 22:20:12
Ramses
Hallo
VBE-Editor starten
Extras - Verweise
Dort einen Verweis auf den Adobe Acrobat 7.0 setzen.
Vielleicht geht es dann.
Ansonsten weiss ich auch nicht weiter, weil es bei mir mit dem Adobe Acrobat !!! (Nicht Reader) klappt.
Gruss Rainer
AW: PDF Seite öffnen
27.08.2005 12:50:13
Hans-Diego
Hallo Rainer,
zur Info und Danke für Deine bisherige Hilfe.
Ich habe es "auf Arbeit" mit dem acrobat probiert und läuft jetzt bis zur Zeile
Set myAcroDoc = AcroApp.GetActiveDoc
Gruss
hans-Diego
Anzeige
AW: PDF Seite öffnen
27.08.2005 12:56:49
Hans-Diego
Hallo Rainer,
zur Info und Danke für Deine bisherige Hilfe.
Ich habe es "auf Arbeit" mit dem acrobat probiert und läuft jetzt bis zur Zeile
Set myAcroDoc = AcroApp.GetActiveDoc
Gruss
hans-Diego
;
Anzeige

Infobox / Tutorial

PDF-Seite mit VBA in Excel öffnen


Schritt-für-Schritt-Anleitung

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.

  2. Neues Modul erstellen: Klicke mit der rechten Maustaste auf „VBAProject (DeineDatei)“, wähle „Einfügen“ und dann „Modul“.

  3. 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 Sub
  4. Pfad anpassen: Ändere toOpenFile auf den Pfad deiner PDF-Datei.

  5. Makro ausführen: Schließe den VBA-Editor und führe das Makro in Excel aus.


Häufige Fehler und Lösungen

  • 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.


Alternative Methoden

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 Sub

Stelle sicher, dass der Pfad zur AcroRd32.exe korrekt ist.


Praktische Beispiele

  1. Öffne eine spezifische Seite: Wenn du eine bestimmte Seite öffnen möchtest, passe die Zeile .Goto 3 im ersten Beispiel an, um die gewünschte Seitenzahl zu verwenden.
  2. Dynamische Eingabe: Du kannst den Pfad zur PDF-Datei oder die Seitenzahl dynamisch über Eingabefelder in Excel steuern.

Tipps für Profis

  • Verwende 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.Description

FAQ: Häufige Fragen

1. 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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige