Importare dati da Pdf a Excel

Il parametro -layout, per quanto possibile, ma nel caso del tuo pdf direi egregiamente, mantiene la formattazione originaria del documento e questo può risultare utile proprio nel caso di tabelle come la tua. Di fatto, il txt risultante è visivamente uguale al pdf originario, anche se le colonne non sono separate da tabulazione o altro carattere speciale, ma solamente da spazi.

Uhmmmm.... una per tutto, senza passare dai file .txt:

Public Sub mPdfToXlsx()

    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim myReturn As Double
    Dim sPath As String
    Dim sh As Worksheet
    Dim shNew As Worksheet
    Dim lRiga As Long
    Dim lCol As Long
    Dim lng As Long
    Dim lUltRiga As Long
    Dim wk As Workbook
   
    sPath = ThisWorkbook.Path & "\"
    Set objFSO = CreateObject( _
        "Scripting.FileSystemObject")
    Set objFolder = _
        objFSO.GetFolder(sPath)
   
    Application.ScreenUpdating = False
   
    For Each objFile In objFolder.Files
   
        If LCase(Right(objFile.Name, 3)) = "pdf" Then
       
            myReturn = Shell("C:\Program Files (x86)\Adobe\Acrobat 10.0\Acrobat\AcroRd32.exe " & sPath & objFile.Name, vbNormalFocus)
           
            Application.Wait (Now + TimeValue("0:00:02"))
            SendKeys "^a", True
            SendKeys "^c", True
            SendKeys "%F", True
            SendKeys "X", True
            Application.Wait (Now + TimeValue("0:00:02"))
           
            Set wk = Workbooks.Add()
            Set sh = wk.Worksheets("Foglio1")
            lRiga = 1
            sh.Range("A1").PasteSpecial
            lUltRiga = sh.Range("A" & sh.Rows.Count).End(xlUp).Row
            Set shNew = wk.Worksheets.Add
            shNew.Name = "FoglioCorretto"
            lng = 1
           
            For lRiga = 1 To lUltRiga
                For lCol = 1 To 3
                    shNew.Cells(lng, lCol).Value = sh.Cells(lRiga, 1).Value
                    If lCol < 3 Then
                        lRiga = lRiga + 1
                    End If
                Next
                lng = lng + 1
            Next
           
            Set sh = Nothing
            wk.SaveAs Filename:=sPath & Mid(objFile.Name, 1, Len(objFile.Name) - 3) _
                & "xlsx", FileFormat:=xlOpenXMLWorkbook
                wk.Close
            Set wk = Nothing
            Application.Wait (Now + TimeValue("0:00:02"))
           
        End If
       
        Set objFile = Nothing
       
    Next
   
    Application.ScreenUpdating = True
       
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing

End Sub

Buttata giù senza fare molti test. Ovviamente si deve modificare il numero delle colonne interessate, 3 in questo caso specifico.

Ciao Andrea,

 

Grazie per la risposta, purtroppo non ho Acrobat, ho solo Reader, ho già trovato un po' di codice che andrebbe bene solo se avessi Acrobat perché utilizza delle librerie proprie, tu sapresti come implementarlo senza l'utilizzo di Acrobat?