mit VBA PDF öffnen und Inhalt kopieren
16.11.2017 10:56:18
Rainer
Ich habe folgendes Problem:
Ich möchte von EXCEL aus mehrere PDF Dokumente in EXCEL einlesen und die eingelesenen Daten nachgelagert auslesen. Mein Ansatz ist, das PDF zu öffnen, per ALLES MARKIEREN und KOPIEREN den Inhalt in die Zwischenablage kopieren und den dann in meine XLS Datei in ein gegebenes Blatt einzufügen. Nach dem Einfügen kommt dann mein Ausleseprogramm.
Das Auslesen habe ich schon ausformuliert, mein Problem besteht wenn ich die PDF Datei in Adobe Reader öffne.. Mein Makro kriegt das noch hin, das markieren innerhalb des ADOBE Fensters schlägt aber fehlt. Ich habe es mit SENDKEY probiert. Beim Debuggen markiert mit XLS aber meinen VBA Quellcode anstelle meines PDF Dokumentes :-(
Evtl könnt ihr mir hier weiterhelfen
Hier mein BSP Code:
Sub Versuch_SendKey()
'pdf-Programm:
Const strPdfProgNam As String = "C:\Program Files (x86)\Adobe\Acrobat Reader 2015\Reader\ _
AcroRd32.exe"
'pdf-Datei:
Const strPdfNam As String = "C:\Backup 200314\D\Eigene Dateien\BMW_Preisabschlüsse\Contract _
changes (40) (2).PDF"
'pdf öffnen
Shell """" & strPdfProgNam & """ """ & strPdfNam & """", vbNormalFocus
'Zwischenablage:
SendKeys "^a", True 'hier wird innerhalb des XLS Datei der VB Code kopiert anstelle PDF _
Datei
SendKeys "^c", True
'pdf Schließen:
SendKeys "%{F4}"
'In Excel-Tabellenblatt einfügen
ActiveSheet.Paste
End Sub
Anzeige