批量PDF转文本循环代码异常：仅转首文件且随机卡顿求助

看起来你遇到的问题大概率是Acrobat COM对象没有正确释放导致的资源占用，加上循环逻辑没处理好遍历和错误捕获，才会只转第一个文件就卡住。我给你整理了修改后的代码，同时解释关键改进点：

关键问题分析 #

• 没有在每次循环后关闭Acrobat文档、释放COM对象，导致内存泄漏，程序逐渐卡住
• 循环逻辑可能没正确遍历A列所有文件名（比如只取了第一行）
• 缺少错误处理，一旦某个PDF文件损坏/路径错误，整个程序就会挂住
• 没有验证输入文件是否存在，容易触发无效操作

修改后的完整代码 #

Sub ConvertPDFToText()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim sPDFPath As String, sTextPath As String
    Dim AcroApp As Acrobat.AcroApp
    Dim AcroAVDoc As Acrobat.AcroAVDoc
    Dim AcroPDDoc As Acrobat.AcroPDDoc
    Dim jso As Object ' JavaScript Object
    
    ' 设置要读取的工作表（根据你的实际表名修改）
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取A列最后一行有数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历A列所有PDF路径（从第2行开始，假设第1行是表头）
    For i = 2 To lastRow
        sPDFPath = ws.Cells(i, "A").Value
        sTextPath = ws.Cells(i, "C").Value
        
        ' 跳过空行或无效路径
        If sPDFPath = "" Or sTextPath = "" Then
            ws.Cells(i, "D").Value = "路径为空，跳过"
            GoTo NextIteration
        End If
        
        ' 检查PDF文件是否存在
        If Dir(sPDFPath) = "" Then
            ws.Cells(i, "D").Value = "PDF文件不存在"
            GoTo NextIteration
        End If
        
        On Error Resume Next ' 开启错误捕获
        ' 初始化Acrobat对象
        Set AcroApp = CreateObject("AcroExch.App")
        Set AcroAVDoc = CreateObject("AcroExch.AVDoc")
        Set AcroPDDoc = CreateObject("AcroExch.PDDoc")
        
        ' 打开PDF文档
        If AcroAVDoc.Open(sPDFPath, "") Then
            Set AcroPDDoc = AcroAVDoc.GetPDDoc
            Set jso = AcroPDDoc.GetJSObject
            
            ' 导出为文本文件
            If jso.SaveAs(sTextPath, "Text") Then
                ws.Cells(i, "D").Value = "转换成功"
            Else
                ws.Cells(i, "D").Value = "转换失败"
            End If
            
            ' 关闭文档
            AcroAVDoc.Close False
        Else
            ws.Cells(i, "D").Value = "无法打开PDF"
        End If
        
        ' 释放所有对象，避免内存泄漏
        Set jso = Nothing
        Set AcroPDDoc = Nothing
        Set AcroAVDoc = Nothing
        If Not AcroApp Is Nothing Then
            AcroApp.Exit
            Set AcroApp = Nothing
        End If
        
        On Error GoTo 0 ' 关闭错误捕获
        
NextIteration:
    Next i
    
    MsgBox "批量转换完成！", vbInformation
End Sub

重要改进说明 #

• 强制释放COM对象：每次循环后都关闭Acrobat文档、退出AcroApp并释放所有对象，彻底避免内存泄漏导致的卡顿
• 遍历所有有效行：通过lastRow获取A列最后一行数据，确保不会漏转或多转
• 错误处理机制：用On Error Resume Next捕获异常，即使某个文件出错也不会中断整个循环，还会在D列标记状态
• 路径验证：检查PDF文件是否存在，跳过空路径，避免无效操作
• 状态反馈：在D列添加转换结果提示，方便排查问题

额外注意事项 #

1. 确保已经引用Acrobat库：打开VBA编辑器 → 工具 → 引用 → 勾选Adobe Acrobat xx.x Type Library（xx.x是你的Acrobat版本）
2. PDF路径和文本路径必须是完整绝对路径（比如C:\Files\test.pdf），不要用相对路径
3. 如果你有大量PDF文件，建议在循环中加一句DoEvents，让系统有时间响应其他操作，减少卡顿：

   DoEvents
   

   可以放在NextIteration:标签前面

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