如何让VBA代码读取单元格路径批量转换PDF为文本？

嘿，我来帮你搞定这个读取单元格的错误！你那两行代码的问题主要出在VBA的对象引用语法和变量拼接上，我给你拆解一下问题，再给你修正后的完整代码：

错误原因拆解 #

1. 工作表引用错误：ws("Sheet1")这种写法不对。如果ws是Worksheet对象变量，你需要先通过Set语句把它指向具体的工作表，而不是直接用ws("Sheet1")来调用。
2. 单元格引用错误：
   • VBA里内置的单元格对象是Range（首字母大写），不是小写的rng（除非你自己定义了这个变量，但没必要多此一举）。
   • "A" & "row"里的row是循环变量，加引号后就变成了字符串"row"，而不是变量的数值，所以会变成读取单元格Arow，这显然不存在。

修正后的完整代码示例 #

Sub BatchConvertPDFToText()
    ' 声明所需变量
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim row As Long
    Dim sfile As String
    Dim dfile As String
    
    ' 指定要读取的工作表（这里用当前工作簿的Sheet1）
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取A列最后一行有数据的行号（避免循环空行）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 循环处理每一行（假设第1行是表头，从第2行开始）
    For row = 2 To lastRow
        ' 正确读取A列的源PDF路径
        sfile = ws.Range("A" & row).Value
        ' 正确读取C列的目标文本路径
        dfile = ws.Range("C" & row).Value
        
        ' ----------------------
        ' 这里插入你的PDF转文本逻辑
        ' 比如调用Acrobat的示例代码（需要安装Acrobat）：
        ' Dim acroApp As Object, acroDoc As Object
        ' Set acroApp = CreateObject("AcroExch.App")
        ' Set acroDoc = CreateObject("AcroExch.PDDoc")
        ' If acroDoc.Open(sfile) Then
        '     ' 1代表保存为纯文本格式
        '     acroDoc.SavePDDoc dfile, 1
        '     acroDoc.Close
        ' End If
        ' acroApp.Exit
        ' Set acroDoc = Nothing
        ' Set acroApp = Nothing
        ' ----------------------
    Next row
    
    ' 转换完成提示
    MsgBox "批量PDF转文本操作已完成！", vbInformation
End Sub

额外注意事项 #

• 确保A列和C列的路径是完整的绝对路径（比如C:\Documents\test.pdf），不要用相对路径，避免程序找不到文件。
• 如果用Acrobat来转换，要确保你的电脑安装了Adobe Acrobat（不是Reader），并且在Excel的信任中心启用了宏和对COM对象的访问。

内容的提问来源于stack exchange，提问作者chan hong chon