vba 如何读取pdf文件

在VBA中读取PDF文件需要使用第三方库，比如Adobe Acrobat、PDFLib等。以下是使用Adobe Acrobat的示例代码：

首先需要添加对Adobe Acrobat的引用：

1. 打开VBA编辑器，点击菜单栏上的“工具” -> “引用”。
2. 在弹出的“引用”对话框中，勾选“Adobe Acrobat xx.x Type Library”（其中的“xx.x”是版本号）。

接下来是读取PDF文件的示例代码：

Sub ReadPDF()

    Dim AcroApp As Acrobat.CAcroApp
    Dim AcroPDDoc As Acrobat.CAcroPDDoc
    Dim AcroPDPage As Acrobat.CAcroPDPage
    Dim iNumPages As Integer
    Dim i As Integer
    Dim strText As String
    
    ' 创建Acrobat对象
    Set AcroApp = CreateObject("AcroExch.App")
    ' 打开PDF文件
    Set AcroPDDoc = CreateObject("AcroExch.PDDoc")
    AcroPDDoc.Open "C:\example.pdf"
    
    ' 获取PDF文件页数
    iNumPages = AcroPDDoc.GetNumPages
    
    ' 逐页读取PDF文件内容
    For i = 0 To iNumPages - 1
        Set AcroPDPage = AcroPDDoc.AcquirePage(i)
        strText = strText & AcroPDPage.GetWordText
        Set AcroPDPage = Nothing
    Next i
    
    ' 关闭PDF文件
    AcroPDDoc.Close
    Set AcroPDDoc = Nothing
    Set AcroApp = Nothing
    
    ' 输出PDF文件内容
    Debug.Print strText

End Sub

以上代码会打开指定的PDF文件，然后逐页读取PDF文件内容，并将结果输出到调试窗口中。你可以根据需要修改代码，比如将结果写入Excel工作表中。