Open PDF and copy/paste into excel

[MIRA7]

Good day
I have a pdf document of 85 pages.
I would like to:
1) open the pdf document
2) copy the data on the pdf document
3) paste it into excel
4) Repeat step 2 and 3 for each page of the pdf.
Thanks

 

[joshjohnsrud]

So I use the same code as above correct?

Adobe file = ?

Thanks

 

[John_w]

Yes, the same code, but with these lines changed to suit your environment:

AdobeApp = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe"   'Adobe Reader executable
AdobeFile = "C:\folder\path\Index Historical Performance.pdf"

 

[John_w]

This waiting in-line method, instead of via Application.OnTime, also works:

Public Sub Copy_and_Paste_From_PDF_File2()

    Dim AdobeApp As String
    Dim AdobeFile As String
    Dim StartAdobe
     
    ActiveSheet.Cells.Clear
    
    AdobeApp = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
    AdobeFile = "C:\Folder\Path\File.pdf"
   
    StartAdobe = Shell(Q(AdobeApp) & " " & Q(AdobeFile), 1)
    
    'Wait 3 seconds to allow PDF to open
    Application.Wait DateAdd("s", 3, Now)
    
    'Select All and Copy from PDF
    SendKeys "^a^c", True
    
    'Wait 5 seconds to allow Select All and Copy to finish
    Application.Wait DateAdd("s", 5, Now)
    
    'Paste into Excel
    AppActivate Application.Caption
    ActiveSheet.Range("A1").Select
    SendKeys "^v", True
   
End Sub

 

[joshjohnsrud]

I am getting a Compile error:

Invalid outside Procedure?

Just FYI I plugged into VBA the code above. Is that the correct process?

Thanks

 

[John_w]

The code should go in a module. But that error means you've put something in the wrong place. If you post your entire code then I can check it.