如何用vba代码调用acrobat将pdf转为excel

可以使用以下VBA代码将PDF转换为Excel：

Sub ConvertPDFtoExcel()
    Dim AcroApp As Acrobat.CAcroApp
    Dim AcroAVDoc As Acrobat.CAcroAVDoc
    Dim AcroPDDoc As Acrobat.CAcroPDDoc
    Dim AcroHiliteList As Acrobat.CAcroHiliteList
    Dim AcroTextSelect As Acrobat.CAcroPDTextSelect
    Dim ExcelApp As Excel.Application
    Dim ExcelWorkbook As Excel.Workbook
    Dim ExcelWorksheet As Excel.Worksheet
    Dim i As Integer
    Dim j As Integer
    Dim strOutputFilePath As String
    Dim strInputFilePath As String
    Dim strPageText As String
    Dim strLineText As String
    Dim strCharText As String
    
    ' Set the input and output file paths
    strInputFilePath = "C:\input.pdf"
    strOutputFilePath = "C:\output.xlsx"
    
    ' Open the PDF file
    Set AcroApp = CreateObject("AcroExch.App")
    Set AcroAVDoc = CreateObject("AcroExch.AVDoc")
    If AcroAVDoc.Open(strInputFilePath, "") Then
        Set AcroPDDoc = AcroAVDoc.GetPDDoc
        ' Create a new Excel Workbook
        Set ExcelApp = CreateObject("Excel.Application")
        Set ExcelWorkbook = ExcelApp.Workbooks.Add
        ' Loop through each page of the PDF file
        For i = 0 To AcroPDDoc.GetNumPages - 1
            ' Select the text on the page
            Set AcroHiliteList = CreateObject("AcroExch.HiliteList")
            AcroHiliteList.Add 0, 0, 10000, 10000
            Set AcroTextSelect = AcroPDDoc.AcquirePage(AcroPDDoc.GetPageNum(i), "").CreatePageHilite(AcroHiliteList)
            strPageText = ""
            ' Loop through each line of text on the page
            For j = 0 To AcroTextSelect.GetNumText - 1
                strLineText = AcroTextSelect.GetText(j)
                ' Loop through each character of the line of text
                For k = 0 To Len(strLineText) - 1
                    strCharText = Mid(strLineText, k + 1, 1)
                    ' Append the character to the page text
                    strPageText = strPageText & strCharText
                Next k
                ' Append a newline character to the page text
                strPageText = strPageText & vbNewLine
            Next j
            ' Add the page text to the Excel Worksheet
            Set ExcelWorksheet = ExcelWorkbook.Worksheets.Add
            ExcelWorksheet.Name = "Page " & i + 1
            ExcelWorksheet.Cells(1, 1).Value = strPageText
        Next i
        ' Save the Excel Workbook and close it
        ExcelWorkbook.SaveAs strOutputFilePath
        ExcelWorkbook.Close
        ' Close the PDF file
        AcroAVDoc.Close True
    Else
        MsgBox "Could not open PDF file"
    End If
    Set AcroApp = Nothing
    Set AcroAVDoc = Nothing
    Set AcroPDDoc = Nothing
    Set AcroHiliteList = Nothing
    Set AcroTextSelect = Nothing
    Set ExcelApp = Nothing
    Set ExcelWorkbook = Nothing
    Set ExcelWorksheet = Nothing
End Sub

请注意，此代码需要Adobe Acrobat和Microsoft Excel软件。另外，此代码仅适用于纯文本PDF文件。如果PDF文件包含图像或表格等非文本内容，则此代码将无法正确转换。