VBA多文件夹PDF合并问题求助：sourcePDDoc为空无法打开文档

核心错误原因 #

你的代码里打开PDF的方式不符合Acrobat API规范：acroApp.Open()不是打开PDF文档的正确方法，应该通过AcroExch.PDDoc对象调用Open方法来加载源文件，而非使用AcroApp实例。此外还有几处细节问题会导致对象初始化失败。

修正后的完整代码 #

Private Sub SavePDF_Click()
    Dim FSO As Object, myfile As Variant
    Dim acroApp As Object
    Dim acroPDDoc As Object
    Dim sourcePDDoc As Object
    Dim saveFilePath As String
    Dim insertSuccess As Boolean
    Dim folderPaths(1 To 5) As String
    Dim saveFolderPath As String
    Dim folderPath As Variant
    Dim myFolder As Object

    ' 启用结构化错误处理，避免掩盖关键错误
    On Error GoTo ErrorHandler

    ' 初始化Acrobat应用和文件系统对象
    Set acroApp = CreateObject("AcroExch.App")
    Set FSO = CreateObject("Scripting.FileSystemObject")

    ' 获取5个目标文件夹路径
    folderPaths(1) = Me.txtFolder1.Value
    folderPaths(2) = Me.txtFolder2.Value
    folderPaths(3) = Me.txtFolder3.Value
    folderPaths(4) = Me.txtFolder4.Value
    folderPaths(5) = Me.txtFolder5.Value

    ' 处理保存路径逻辑
    saveFolderPath = Me.txtCombinedFolder.Value
    If saveFolderPath = "" Then
        saveFolderPath = GetSaveFolder
        If saveFolderPath = "" Then
            MsgBox "请选择合并PDF的保存文件夹。", vbExclamation, "错误"
            GoTo Cleanup
        End If
        Me.txtCombinedFolder.Value = saveFolderPath
    End If

    ' 确保保存路径以反斜杠结尾，避免文件名拼接错误
    If Right(saveFolderPath, 1) <> "\" Then
        saveFolderPath = saveFolderPath & "\"
    End If

    ' 创建空的目标PDF文档（Acrobat API标准方式）
    Set acroPDDoc = CreateObject("AcroExch.PDDoc")
    If Not acroPDDoc.Create("") Then
        MsgBox "无法创建空白PDF文档。", vbExclamation, "错误"
        GoTo Cleanup
    End If

    ' 遍历所有指定文件夹
    For Each folderPath In folderPaths
        If FSO.FolderExists(folderPath) Then
            Set myFolder = FSO.GetFolder(folderPath)
            For Each myfile In myFolder.Files
                ' 更可靠的PDF后缀判断，避免文件名长度不足的问题
                If UCase(FSO.GetExtensionName(myfile.Path)) = "PDF" Then
                    ' 正确打开源PDF：通过AcroExch.PDDoc对象调用Open方法
                    Set sourcePDDoc = CreateObject("AcroExch.PDDoc")
                    If sourcePDDoc.Open(myfile.Path) Then
                        ' 将源PDF的所有页面插入到目标文档末尾
                        insertSuccess = acroPDDoc.InsertPages(acroPDDoc.GetNumPages - 1, sourcePDDoc, 0, sourcePDDoc.GetNumPages, 0)
                        If insertSuccess Then
                            Debug.Print "成功插入页面：" & myfile.Path
                        Else
                            MsgBox "插入页面失败：" & myfile.Path, vbExclamation, "错误"
                        End If
                        sourcePDDoc.Close
                    Else
                        MsgBox "无法打开PDF文件：" & myfile.Path, vbExclamation, "错误"
                    End If
                    Set sourcePDDoc = Nothing
                End If
            Next myfile
        End If
    Next folderPath

    ' 保存并打开合并后的PDF
    If Not acroPDDoc Is Nothing Then
        saveFilePath = saveFolderPath & "MergedPDF.pdf"
        ' 参数1为SaveFull模式，覆盖已存在的文件
        If acroPDDoc.Save(1, saveFilePath) Then
            MsgBox "PDF合并完成，保存路径：" & vbCrLf & saveFilePath, vbInformation, "成功"
            ' 调用系统默认程序打开PDF，比explorer更稳定
            ShellExecute 0, "open", saveFilePath, "", "", vbNormalFocus
        Else
            MsgBox "保存合并PDF失败。", vbExclamation, "错误"
        End If
        acroPDDoc.Close
    End If

Cleanup:
    ' 清理所有对象，避免内存泄漏
    If Not acroApp Is Nothing Then
        acroApp.Exit
        Set acroApp = Nothing
    End If
    Set acroPDDoc = Nothing
    Set FSO = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "运行错误：" & Err.Description & "（错误码：" & Err.Number & "）", vbCritical, "错误"
    GoTo Cleanup
End Sub

' 需将此声明放在模块顶部，用于调用系统默认程序打开文件
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hwnd As LongPtr, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long _
) As LongPtr

关键修改点说明 #

1. 修复PDF打开逻辑：
   废弃acroApp.Open()，改用AcroExch.PDDoc对象的Open方法加载源PDF，这是Acrobat API的标准用法。
2. 修正空PDF创建方式：
   原代码acroApp.CreatePDFFromScratch()是非公开API，改为实例化AcroExch.PDDoc并调用Create("")创建空白文档。
3. 优化文件后缀判断：
   用FSO.GetExtensionName替代Right(myfile.Path,4)，避免文件名长度不足时的错误，同时判断更准确。
4. 完善路径处理：
   确保保存路径以反斜杠结尾，防止生成C:\FolderMergedPDF.pdf这类错误路径。
5. 重构错误处理：
   移除全局On Error Resume Next，改用结构化错误处理，便于定位和排查问题。
6. 优化PDF打开方式：
   用ShellExecute替代explorer.exe，直接调用系统默认程序打开PDF，兼容性和稳定性更强。

注意事项 #

• 需安装Adobe Acrobat（而非Reader），并确保VBA能正常调用Acrobat组件（可通过后期绑定的CreateObject方式，无需手动添加引用）。
• 源PDF文件不能被其他程序锁定，否则Open方法会失败。
• 测试时建议单步执行，观察每个PDF文件的加载状态，快速定位异常文件。

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