|
Hallo zusammen,
Ich habe folgendes Problem: Ich habe ca. 300 PDF-Dateien, aus denen ich den Text auslesen möchte. Wenn ich die Dateien im Acrobat Reader öffne, kann ich den Text auch markieren und dann kopieren. Das ist aber sehr umständlich und zeitaufwändig, daher suche ich nach einer Möglichkeit, dies per VBA-Makro zu automatisieren.
Also kurzgesagt:
Die PDFs automatisch öffnen, den gesamten Inhalt kopieren (Strg-C) und anschließend in Excel-Tabelle 1 einfügen (Strg-V). Momentan habe ich folgenden Code (Ablageort PDF: Desktop\abc.pdf):
Sub OeffnePDF()
Dim Datei As String
Datei = "C:\Desktop\abc.pdf"
ActiveWorkbook.FollowHyperlink Datei
'Inhalt PDF in Zwischenablage kopieren
SendKeys "^a", True
SendKeys "^c", True
'Kopiertes aus der Zwischenablage in Excel-Tabellenblatt 1 und Zelle A1 einfügen
Tabelle1.Activate
ActiveSheet.Paste
End Sub
Der Code wird nicht erfolgreich ausgeführt und folgende Meldung erscheint:
Laufzeitfehler ‚1004‘:
Anwendungs- oder objektdefinierter Fehler
Das Problem habe ich versucht weiter einzugrenzen: Der Inhalt der PDF wird im Zwischenspeicher gespeichert, allerdings wird er nicht in Excel kopiert (Test: Alles nach SendKeys “ ^c“ auskommentiert)
Da ich Anfänger bin, bin ich für jeden Tipp bzw. Lösung dankbar :-) Vielen Dank schonmal im Voraus!
Viele Grüße,
Marty
|