vba如何将PDF中表格数据写入excel表中

ttiemike

Sub PDFtoExcel()
    Dim AcroApp As Acrobat.AcroApp
    Dim AcroDoc As Acrobat.AcroPDDoc
    Dim PDPage As Acrobat.AcroPDPage
    Dim PDWord As Acrobat.AcroPDWord
    Dim celldata As Variant
    Dim i As Integer
    Dim j As Integer
    Dim tabledata As String
   
    'Initialize Acrobat objects
    Set AcroApp = CreateObject("AcroExch.App")
    Set AcroDoc = CreateObject("AcroExch.PDDoc")
   
    'Open the PDF file
    AcroDoc.Open "C:\example.pdf"
   
    'Access the first page of the PDF file
    Set PDPage = AcroDoc.AcquirePage(0)
   
    'Access the table on the page
    Set PDWord = PDPage.GetAnnots(0)
   
    'Extract table data
    tabledata = PDWord.GetContents
   
    'Split the table data into rows
    celldata = Split(tabledata, vbCr)
   
    'Write the table data into Excel
    For i = 0 To UBound(celldata)
        'Split each row into cells
        celldata(i) = Split(celldata(i), vbTab)
        For j = 0 To UBound(celldata(i))
            'Write cell data into Excel
            ActiveSheet.Cells(i + 1, j + 1).Value = celldata(i)(j)
        Next j
    Next i
   
    'Close the Acrobat objects
    AcroDoc.Close
    AcroApp.Exit
    Set AcroDoc = Nothing
    Set AcroApp = Nothing
End Sub

hhxq001

心的启点 发表于 2023-6-14 16:15
我有转换软件可以给你转换成电子表格的

发上来看看呀

心的启点

hhxq001 发表于 2023-6-16 07:38
发上来看看呀

注册的，我可以给你转换，但发给你们没有用！

hhxq001

ttiemike 发表于 2023-6-15 08:18
Sub PDFtoExcel()
    Dim AcroApp As Acrobat.AcroApp
    Dim AcroDoc As Acrobat.AcroPDDoc

Dim AcroApp As Acrobat.AcroApp
    Dim AcroDoc As Acrobat.AcroPDDoc
    Dim PDPage As Acrobat.AcroPDPage
    Dim PDWord As Acrobat.AcroPDWord

提示用户类型未定义，怎么解决

张小狗

ttiemike 发表于 2023-6-15 08:18
Sub PDFtoExcel()
    Dim AcroApp As Acrobat.AcroApp
    Dim AcroDoc As Acrobat.AcroPDDoc

请问楼主用的是多少版本的插件？我这边引用的是 Acrobat 16.0 并没有 Acrobat.AcroPDWord？

三流高手

ttiemike 发表于 2023-6-15 08:18
Sub PDFtoExcel()
    Dim AcroApp As Acrobat.AcroApp
    Dim AcroDoc As Acrobat.AcroPDDoc

Dim PDWord As Acrobat.AcroPDWord 这一句提示用户定义类型未定义，怎么解决呢？

月关

ttiemike 发表于 2023-6-15 08:18
Sub PDFtoExcel()
    Dim AcroApp As Acrobat.AcroApp
    Dim AcroDoc As Acrobat.AcroPDDoc

老师测试过代码可以正常运行么？

我这边报错，如下：