vba 代码用acrobat将pdf转为excel

你可以使用 VBA 代码来将 PDF 转换为 Excel 文件，需要使用 Adobe Acrobat 应用程序进行转换。以下是一个基本的 VBA 代码示例：

Sub ConvertPDFToExcel()
    
    '定义 Acrobat 应用程序对象
    Dim AcroApp As Acrobat.AcroApp
    Set AcroApp = CreateObject("AcroExch.App")
    
    '定义 PDF 文件对象
    Dim PDFDoc As Acrobat.AcroPDDoc
    Set PDFDoc = CreateObject("AcroExch.PDDoc")
    
    '打开 PDF 文件
    If PDFDoc.Open("C:\example.pdf") Then
        
        '定义 Excel 应用程序对象
        Dim ExcelApp As Excel.Application
        Set ExcelApp = CreateObject("Excel.Application")
        ExcelApp.Visible = True
        
        '定义 Excel 工作簿对象
        Dim ExcelBook As Excel.Workbook
        Set ExcelBook = ExcelApp.Workbooks.Add
        
        '转换 PDF 文件为 Excel 文件
        Dim ExcelSheet As Object
        Set ExcelSheet = PDFDoc.AcquirePage(0).ExportAsFDF(acExportFDF)
        ExcelSheet.SaveAsExcelFile ("C:\example.xlsx")
        
        '关闭 Acrobat 应用程序和 Excel 应用程序
        ExcelApp.Quit
        Set ExcelApp = Nothing
        PDFDoc.Close
        Set PDFDoc = Nothing
        AcroApp.Exit
        Set AcroApp = Nothing
    
    End If
    
End Sub

请确保你已经安装了 Adobe Acrobat 应用程序并且 VBA 可以访问 Acrobat 应用程序对象。此代码将打开一个名为 "example.pdf" 的 PDF 文件，将其转换为 Excel 文件（"example.xlsx"），并将其保存到 C:\ 目录下。你需要根据实际情况修改文件路径和名称。