Copy PDF data to excel

[AjitD]

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...

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'?

 

[Ackerma Image]

have you ever tried reinstall the acrobat reader...