请求修改VBA代码：实现等待PDF完全打开/关闭而非固定时长等待

你的问题我太熟悉了——固定等待2秒的方式完全依赖系统速度，一旦PDF文件大或者电脑负载高一点，就会出现打开没完成就执行复制、没关闭就循环下一个的情况，还容易残留Acrobat后台进程。咱们换个思路，直接通过Acrobat的COM对象来控制PDF，这样就能精准判断它的状态，彻底摆脱“猜时间”的不靠谱操作。

修改后的代码 #

Sub Acrobat_Copy_Paste()
    Dim acroApp As Object
    Dim acroAVDoc As Object
    Dim acroPDDoc As Object
    Dim i As Long
    Dim pdfPath As String
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    
    ' 初始化Acrobat应用对象：优先获取已打开的实例，没有则新建
    On Error Resume Next
    Set acroApp = GetObject(, "AcroExch.App")
    If Err.Number <> 0 Then
        Set acroApp = CreateObject("AcroExch.App")
        acroApp.Hide ' 隐藏Acrobat窗口，避免弹窗干扰执行
    End If
    On Error GoTo ErrorHandler
    
    Set targetSheet = ThisWorkbook.Worksheets("Sheet2")
    ThisWorkbook.Worksheets("Sheet1").Activate
    
    For i = 2 To ThisWorkbook.Worksheets("Sheet1").Range("A1").End(xlDown).Row
        pdfPath = ThisWorkbook.Worksheets("Sheet1").Cells(i, 1).Value
        
        ' 跳过空行或无效路径
        If Trim(pdfPath) = "" Or Dir(pdfPath) = "" Then
            MsgBox "第" & i & "行的PDF路径无效或为空，跳过处理", vbExclamation
            GoTo NextPDF
        End If
        
        ' 创建PDF文档对象并尝试打开
        Set acroAVDoc = CreateObject("AcroExch.AVDoc")
        If Not acroAVDoc.Open(pdfPath, "") Then
            MsgBox "无法打开PDF文件：" & pdfPath, vbCritical
            GoTo CleanupAVDoc
        End If
        
        ' 循环等待PDF完全加载完成
        Do While Not acroAVDoc.IsOpen
            DoEvents ' 释放系统资源，避免程序假死
        Loop
        
        ' 获取文档对象并执行复制
        Set acroPDDoc = acroAVDoc.GetPDDoc
        acroAVDoc.SelectAll
        acroAVDoc.Copy
        
        ' 粘贴到Sheet2的最后一行
        targetSheet.Activate
        lastRow = targetSheet.Range("A" & targetSheet.Rows.Count).End(xlUp).Row + 1
        targetSheet.Range("A" & lastRow).PasteSpecial xlPasteAll
        
        CleanupAVDoc:
        ' 循环确认PDF完全关闭
        Do While acroAVDoc.IsOpen
            If Not acroAVDoc.Close(True) Then ' True表示不保存修改
                MsgBox "无法关闭PDF文件：" & pdfPath, vbWarning
            End If
            DoEvents
        Loop
        ' 释放当前PDF的对象资源
        Set acroAVDoc = Nothing
        Set acroPDDoc = Nothing
        
        NextPDF:
        ThisWorkbook.Worksheets("Sheet1").Activate
    Next i
    
    ' 关闭Acrobat应用并释放资源
    If Not acroApp Is Nothing Then
        acroApp.Exit
        Set acroApp = Nothing
    End If
    
    Exit Sub
    
ErrorHandler:
    MsgBox "运行出错：" & Err.Description, vbCritical
    ' 出错后强制清理所有资源
    If Not acroAVDoc Is Nothing Then
        If acroAVDoc.IsOpen Then acroAVDoc.Close(True)
        Set acroAVDoc = Nothing
    End If
    If Not acroPDDoc Is Nothing Then Set acroPDDoc = Nothing
    If Not acroApp Is Nothing Then
        acroApp.Exit
        Set acroApp = Nothing
    End If
End Sub

关键改进点 #

• 替代Shell和SendKeys：直接调用Acrobat的官方COM接口，彻底摆脱模拟按键、进程跟踪的不稳定问题。
• 精准状态等待：用Do While Not acroAVDoc.IsOpen循环等待PDF完全打开，关闭时同样循环确认直到文档关闭，完全适配不同大小的PDF和系统速度。
• 完善的错误处理：捕获路径无效、无法打开/关闭等异常，避免程序崩溃，还能给出明确的错误提示。
• 资源自动清理：每次循环后释放PDF对象，最后关闭Acrobat应用，不会残留后台进程。

注意事项 #

1. 引用Acrobat类型库（可选但推荐）：

   • 打开VBA编辑器，点击工具 -> 引用
   • 在列表中找到Adobe Acrobat xx.x Type Library（xx.x是你的Acrobat版本号，比如11.0、20.0），勾选后确定，这样会有代码提示。
   • 如果找不到类型库，代码里的CreateObject方式也能正常运行，只是没有代码补全。

2. Acrobat Reader兼容性：如果用的是Reader而非Pro，部分高级功能可能受限，但复制文本的功能通常是支持的。

内容的提问来源于stack exchange，提问作者Hemant