Daten aus PDF extrahieren und zum Arbeitsblatt hinzufügen
Ich versuche, die Daten aus einem PDF-Dokument in ein Arbeitsblatt zu extrahieren. Die PDF-Dateien und der Text können manuell kopiert und in das Excel-Dokument eingefügt werden.
Ich mache dies derzeit über SendKeys und es funktioniert nicht. Beim Versuch, die Daten aus dem PDF-Dokument einzufügen, wird eine Fehlermeldung angezeigt. Warum funktioniert meine Paste nicht? Wenn ich nach dem Beenden des Makros einfüge, wird es wie gewohnt eingefügt.
Dim myPath As String, myExt As String
Dim ws As Worksheet
Dim openPDF As Object
'Dim pasteData As MSForms.DataObject
Dim fCell As Range
'Set pasteData = New MSForms.DataObject
Set ws = Sheets("DATA")
If ws.Cells(ws.Rows.Count, "A").End(xlUp).Row > 1 Then Range("A3:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row).ClearContents
myExt = "\*.pdf"
'When Scan Receipts Button Pressed Scan the selected folder/s for receipts
For Each fCell In Range(ws.Cells(1, 1), ws.Cells(1, ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column))
myPath = Dir(fCell.Value & myExt)
Do While myPath <> ""
myPath = fCell.Value & "\" & myPath
Set openPDF = CreateObject("Shell.Application")
openPDF.Open (myPath)
Application.Wait Now + TimeValue("00:00:2")
SendKeys "^a"
Application.Wait Now + TimeValue("00:00:2")
SendKeys "^c"
'Application.Wait Now + TimeValue("00:00:2")
ws.Select
ActiveSheet.Paste
'pasteData.GetFromClipboard
'ws.Cells(3, 1) = pasteData.GetText
Exit Sub
myPath = Dir
Loop
Next fCell