Office: PDF-Formular auslesen

User · 8. November 2008

Hallo Leute,

ich möchte (im Hintergrund) ein PDF-File öffnen, alle Daten kopieren und dann in Excel einfügen. Danach soll die PDF-Datei wieder geschlossen werden.

Folgendes Beispiel funktioniert leider nicht ganz, da die Befehle SendKeys (warum auch immer) so nicht laufen.

Code:

Option Explicit

Sub AdobeReader()
Dim ProgFileVar As String
Dim FileOpenVar As String

ProgFileVar = "C:\Programme\Adobe\Acrobat 7.0\Reader\AcroRd32.exe"
FileOpenVar = "C:\Dokumente und Einstellungen\testuser\Desktop\Test.pdf"

Shell ProgFileVar & " " & FileOpenVar, vbNormalFocus

SendKeys "^{a}"
SendKeys "^{c}"
SendKeys "%{F4}"

Range("A1").Select
ActiveSheet.Paste
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bitte um Eure Hilfe oder andere Beispiele, damit ich mir was 'basteln' kann.

Vielen Dank!

Mike

:)

IngGi · 10. November 2008

Hallo Mike,

das über die DOS-Shell aufgerufene Programm (in diesem Fall der AcrobatReader) wird asynchron zum VBA-Makro ausgeführt. Das bedeutet, dass VBA nicht auf das Programm wartet, sondern unmittelbar nach dem Absetzen des Shell-Befehles weiterläuft, auch wenn das aufgerufene Programm noch gar nicht fertig gestartet ist, geschweige denn, eine Datei in diesem Programm geöffnet wurde. Du musst das VBA-Makro nach dem Shell-Befehl also lediglich ein bisschen verzögern. Das geht zum Beispiel mit Application.Wait. Hier werden 2 Sekunden Pause eingebaut, die bei mir für eine tadellose Ausführung ausgereicht haben:

Code:

User · 10. November 2008

Hi Ingolf,

danke für Deine Antwort. Ich habe ein wenig im Netz gesucht und wenn man hinter SendKeys den parameter TRUE angibt benötigt man die Wait-Zeile nicht.

Trotzdem vielen Dank für den Tipp!

Code:

Option Explicit

Sub AdobeReader()
Dim ProgFileVar As String
Dim FileOpenVar As String

Application.ScreenUpdating = False

ProgFileVar = "C:\Programme\Adobe\Acrobat 7.0\Reader\AcroRd32.exe"
FileOpenVar = "C:\Dokumente und Einstellungen\schmalerm\Desktop\Test.pdf"

Shell ProgFileVar & " " & FileOpenVar, vbNormalFocus

SendKeys "^{a}", True
SendKeys "^{c}", True
SendKeys "%{F4}", True

Range("A1").Select
ActiveSheet.Paste

Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ciao Mike

hofer27 · 12. September 2013

Hallo Mike,

der Parameter True bezieht sich nur auf die SendKeys Befehle, aber der Shell Befehl braucht trotzdem seine Zeit. Application.Wait hat mir zu lange gedauert, da man schon 2 Sekunden vorgeben muss.

Ich habe das ganze mit einer Schleife beschleunigt.
Code:

i = 0
Do
Err.Clear
i = i + 1
DoEvents
AppActivate "Adobe Reader"
Warten (0.1)
Loop Until Err = 0 Or i = 50

Public Sub Warten(WarteZeit As Single)
Dim Jetzt As Single

Jetzt = Timer
Do While Timer < Jetzt + WarteZeit
DoEvents
Loop
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich muss manchmal 50 PDF-Dateien hintereinander auslesen, da wächst mir ein Bart, wenn ich bei jeder Datei 2 Sekunden warten muss.

Gruß
hofer27

ebs17 · 12. September 2013

PDF-Formular auslesen (lt. Titel) und alles kopieren und an eine Stelle kopieren sind zwei recht unterschiedliche Dinge. Nur mal nebenbei.

Als Variante: Plaintext aus PDF extrahieren
Aus der jeweils resultierenden Textdatei könnte man gezielt Inhalte übernehmen, und die SendKeys werden gar nicht benötigt.

Office: PDF-Formular auslesen

PDF-Formular auslesen

PDF-Formular auslesen

PDF-Formular auslesen

PDF-Formular auslesen - Similar Threads - PDF Formular auslesen

Kopieren eines Anhangs eines PDF-Formulars in eine neue Mail

Eingebettetes PDF-Formular öffnen, mit Zellwerten einer Excel befüllen und speichern

PDF als Anlage im Formular anzeigen

Neue PDF lässt sich aus Access-Formular nicht öffnen

PDF Vorschau in meinem Formular (ohne Aktive-X)

PDF Vorschaufenster in Formular

Aktuelles Formular als PDF per Email Anhang versenden