Copy the data from pdf to Excel VBA

[zetus]

i run the click button, it prompt error. would anyone can help me to take a look and try to help me to solve the problem. thanks

actually, i want to perform an action, once a press the button, it can copy and paste all data in specifiied pdf file into excel worksheet. thanks


Sub update()
Dim acrobatID
Dim acrobatInvokeCmd As String
Dim acrobatLocation As String
Dim R As String
Dim DataObj As MSForms.DataObject
et DataObj = New MSForms.DataObject
R = ""
strDocument = Application.GetOpenFilename("PDF Files,*.pdf,All Files,*.*", 1, "Open File", , False) ' get pdf document name
If Len(strDocument) < 6 Then Exit Sub
acrobatLocation = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
acrobatInvokeCmd = acrobatLocation & " " & strDocument
acrobatID = Shell(acrobatInvokeCmd, 1)
AppActivate acrobatID
Application.Wait Time + TimeSerial(0, 0, 1)
SendKeys "^a", True
Application.Wait Time + TimeSerial(0, 0, 1)
SendKeys "^c", True
DataObj.GetFromClipboard
If Not R = DataObj.GetText Then
S = DataObj.GetText
Cells(S).Value
End If
End Sub