Copy PDF data to excel

AjitD

New Member
Joined
Mar 5, 2012
Messages
27
Hi,

I have to open each pdf file in a specific folder, select and copy all contents and paste it in column 'A' of a new workbook.

I have tried following code but not worked...:confused:

Code:
Sub ConvertPDF(control As IRibbonControl)
    
    Dim AdobeApp As String
    Dim AdobeFile As String
    Dim StartAdobe
    Dim fso As New FileSystemObject
    Dim oFolder As Folder
    Dim oFile As File
    Dim strPath As String
    
    
    strPath = "C:\Test"                             'Folder contains 100 pdf files
    
    Set oFolder = fso.GetFolder(strPath)
    AdobeApp = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"
    
    For Each oFile In oFolder.Files
    
    If InStr(1, oFile.Path, ".pdf", vbTextCompare) = 0 Then GoTo nxt
        Workbooks.Add.Activate
        Set wsSummary = ActiveWorkbook.Sheets(1)
        
        StartAdobe = Shell("" & AdobeApp & " " & oFile.Path & "", 1)
        
        AppActivate "Adobe Reader"
        SendKeys "^a", True
        SendKeys "^c", True
        
        AppActivate "Microsoft Excel"
        wsSummary.Activate
        wsSummary.Range("A1").Select
        
        SendKeys "^v", True
        
        AppActivate "Adobe Reader"
        SendKeys ("%fx")
nxt:
    Next
    
    
End Sub

I have Acrobat Reader installed.
Can anyone please suggest any method without using 'SendKeys'?
 

Excel Facts

Select a hidden cell
Somehide hide payroll data in column G? Press F5. Type G1. Enter. Look in formula bar while you arrow down through G.
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,151,837
Messages
5,766,721
Members
425,373
Latest member
ndiejennrrd

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top