如何用VBA在单个Acrobat实例中打开目标文件夹内所有PDF

问题背景 #

现有Excel工作流：用户选择唯一ID后点击按钮，程序通过ID关联的日期定位到目标文件夹（总计10000个子文件夹），需打开该文件夹下所有PDF，但要求所有PDF在单个Acrobat实例中打开。当前代码可遍历打开PDF，但每个文件都会启动独立Acrobat实例，需修改实现单实例打开。

原代码：

Sub OpenPDF1()

Dim path_to_exe As String
Dim floder_path As String
Dim pdf_to_open As String

pdf_to_open = ""

path_to_exe = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"

folder_path = "C:\test1"

pdf_to_open = Dir(folder_path & "\*.pdf")

    Do While Len(pdf_to_open) > 0
        Shell path_to_exe & " " & folder_path & "\" & pdf_to_open
        pdf_to_open = Dir()
    Loop

End Sub

解决方案1：使用Acrobat COM对象（推荐） #

通过直接调用Acrobat的API控制实例，确保所有PDF在同一窗口的标签页中打开，稳定性更高：

Sub OpenPDFsInSingleInstance()
    Dim acroApp As Object
    Dim acroDoc As Object
    Dim folderPath As String
    Dim pdfFile As String
    
    ' 替换为你的目标文件夹路径
    folderPath = "C:\test1"
    
    ' 尝试获取已运行的Acrobat实例，无则新建
    On Error Resume Next
    Set acroApp = GetObject(, "AcroExch.App")
    On Error GoTo 0
    
    If acroApp Is Nothing Then
        Set acroApp = CreateObject("AcroExch.App")
        acroApp.Visible = True ' 确保Acrobat窗口可见
    End If
    
    ' 遍历文件夹下所有PDF文件
    pdfFile = Dir(folderPath & "\*.pdf")
    Do While Len(pdfFile) > 0
        Set acroDoc = CreateObject("AcroExch.PDDoc")
        ' 打开PDF文档
        If acroDoc.Open(folderPath & "\" & pdfFile) Then
            ' 打开后释放文档对象，Acrobat会保留标签页
            Set acroDoc = Nothing
        End If
        pdfFile = Dir()
    Loop
    
    ' 若需保持Acrobat打开，注释掉下面一行
    ' Set acroApp = Nothing
End Sub

注意事项 #

• 需安装Adobe Acrobat Pro/Standard，Acrobat Reader的COM接口支持有限，可能无法正常运行此代码。

解决方案2：适配Acrobat Reader的命令行参数 #

如果必须使用Acrobat Reader，可通过命令行参数指定后续PDF在已有实例中打开：

Sub OpenPDFsWithReaderSingleInstance()
    Dim pathToExe As String
    Dim folderPath As String
    Dim pdfFile As String
    Dim isFirstPDF As Boolean
    
    pathToExe = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
    folderPath = "C:\test1"
    isFirstPDF = True
    
    pdfFile = Dir(folderPath & "\*.pdf")
    Do While Len(pdfFile) > 0
        If isFirstPDF Then
            ' 第一个PDF启动新实例
            Shell pathToExe & " """ & folderPath & "\" & pdfFile & """", vbNormalFocus
            isFirstPDF = False
        Else
            ' 后续PDF用参数指定在已有实例中打开
            Shell pathToExe & " /A ""opennewwindow=no"" """ & folderPath & "\" & pdfFile & """", vbNormalFocus
        End If
        pdfFile = Dir()
    Loop
End Sub

注意事项 #

• 该参数兼容性依赖Reader版本，部分旧版本可能不支持opennewwindow=no参数；
• 若Reader已提前运行，需确保参数能正确识别已有实例。

内容的提问来源于stack exchange，提问作者flow'd