extract data from pdf to Excel worksheet

[mortenhp]

Is it possible to extract data from a pdf to Excel using VBA? I only have Adobe reader installed as a pdf viewer and I already have tried some different code but it comes up with an error message saying it can´t find the file everytime.

 

[Logit]

The following uses Adobe Acrobat Reader - a free download from Adobe.

Be certain you change the PATHS to match your system. Also note that the PDF file in the code is hardcoded. You can change that to an INPUT box value
or something you enter into a specified cell as a value.

Sub StartAdobe2()
Dim AdobeApp As String
Dim AdobeFile As String
Dim StartAdobe
 
AdobeApp = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
AdobeFile = "C:\Users\My\Desktop\AC_103-6.pdf"
 
StartAdobe = Shell("" & AdobeApp & " " & AdobeFile & "", 1)
 
Application.Wait (Now + TimeValue("0:00:03"))


SendKeys ("^a")
SendKeys ("^c")
 
Application.Wait (Now + TimeValue("0:00:05"))
SendKeys ("%fx")
AppActivate "Microsoft Excel"
ThisWorkbook.Activate
Sheets(1).Activate
Range("A1").Activate
SendKeys ("^v")
End Sub

Download workbook : https://www.amazon.com/clouddrive/share/mOgWNrt4TDukamn0PXlZRz1c5oT72wbTt6JvZYVscQA

 

[mortenhp]

Thanks! but I have tried that one before and it gives me an error on the appactivate"Microsoft Excel" when i debug. I don´t know why but I have the 2016 version of Excel

 

[Logit]

Sorry, I'm using Excel 2007.

Not certain what the difference would be.