如何用VBA将Excel工作表与Word文档合并保存为单个PDF

可行，核心思路是先分别导出Excel工作表和Word文档为临时PDF文件，再借助Adobe Acrobat的COM组件将两个临时PDF合并为一个完整文件。以下是具体实现步骤和代码：

前提条件 #

• 安装Adobe Acrobat完整版（注意：Adobe Reader不支持PDF合并的COM接口，必须用Acrobat）。
• 在VBA编辑器中，通过工具>引用勾选对应的Adobe Acrobat类型库（比如Adobe Acrobat xx.x Type Library，xx.x为你安装的版本号）。

完整代码示例 #

' 导出Excel工作表为临时PDF
Function ExportExcelToTempPDF(excelSheet As Worksheet, tempPath As String) As Boolean
    On Error Resume Next
    excelSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=tempPath, _
        Quality:=xlQualityStandard
    ExportExcelToTempPDF = (Err.Number = 0)
    On Error GoTo 0
End Function

' 导出Word文档为临时PDF
Function ExportWordToTempPDF(wordDoc As Document, tempPath As String) As Boolean
    On Error Resume Next
    wordDoc.ExportAsFixedFormat _
        OutputFileName:=tempPath, _
        ExportFormat:=wdExportFormatPDF, _
        OptimizeFor:=wdExportOptimizeForPrint, _
        IncludeDocProps:=True
    ExportWordToTempPDF = (Err.Number = 0)
    On Error GoTo 0
End Function

' 主过程：合并Excel和Word为单个PDF
Sub MergeExcelAndWordToSinglePDF()
    Dim excelTempPDF As String, wordTempPDF As String, finalPDF As String
    Dim acroApp As Acrobat.CAcroApp, acroPDDoc As Acrobat.CAcroPDDoc, acroMergeDoc As Acrobat.CAcroPDDoc
    Dim targetSheet As Worksheet, targetWordDoc As Document
    
    ' 自定义文件路径（请替换为你的实际路径）
    excelTempPDF = Environ("TEMP") & "\Excel_Temp.pdf" ' 临时Excel PDF路径
    wordTempPDF = Environ("TEMP") & "\Word_Temp.pdf"   ' 临时Word PDF路径
    finalPDF = "D:\Documents\Combined_Result.pdf"     ' 最终合并PDF保存路径
    
    ' 1. 导出指定Excel工作表为临时PDF
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1") ' 替换为你的目标工作表名称
    If Not ExportExcelToTempPDF(targetSheet, excelTempPDF) Then
        MsgBox "Excel导出临时PDF失败"
        Exit Sub
    End If
    
    ' 2. 导出指定Word文档为临时PDF
    Set targetWordDoc = GetObject("D:\Documents\Source_Doc.docx") ' 替换为你的Word文档路径
    If Not ExportWordToTempPDF(targetWordDoc, wordTempPDF) Then
        MsgBox "Word导出临时PDF失败"
        Kill excelTempPDF ' 清理已生成的临时文件
        Exit Sub
    End If
    
    ' 3. 初始化Acrobat对象并执行合并
    On Error Resume Next
    Set acroApp = CreateObject("AcroExch.App")
    Set acroMergeDoc = CreateObject("AcroExch.PDDoc")
    Set acroPDDoc = CreateObject("AcroExch.PDDoc")
    On Error GoTo 0
    
    ' 检查Acrobat组件是否可用
    If acroMergeDoc Is Nothing Or acroPDDoc Is Nothing Then
        MsgBox "未检测到Adobe Acrobat完整版，请先安装"
        Kill excelTempPDF
        Kill wordTempPDF
        Exit Sub
    End If
    
    ' 打开第一个临时PDF作为合并基础
    If Not acroMergeDoc.Open(excelTempPDF) Then
        MsgBox "无法打开Excel临时PDF文件"
        CleanupResources acroApp, acroMergeDoc, acroPDDoc, excelTempPDF, wordTempPDF
        Exit Sub
    End If
    
    ' 合并第二个临时PDF到第一个文件末尾
    If acroPDDoc.Open(wordTempPDF) Then
        If acroMergeDoc.InsertPages(acroMergeDoc.GetNumPages - 1, acroPDDoc, 0, acroPDDoc.GetNumPages, 0) Then
            ' 保存最终合并后的PDF
            If acroMergeDoc.Save(PDSaveFull, finalPDF) Then
                MsgBox "合并完成！文件已保存至：" & finalPDF
            Else
                MsgBox "保存最终PDF文件失败"
            End If
        Else
            MsgBox "合并PDF文件失败"
        End If
        acroPDDoc.Close
    Else
        MsgBox "无法打开Word临时PDF文件"
    End If
    
    ' 清理资源和临时文件
    CleanupResources acroApp, acroMergeDoc, acroPDDoc, excelTempPDF, wordTempPDF
End Sub

' 辅助过程：清理Acrobat对象和临时文件
Sub CleanupResources(acroApp As Object, acroMergeDoc As Object, acroPDDoc As Object, excelTemp As String, wordTemp As String)
    ' 关闭Acrobat文档对象
    If Not acroMergeDoc Is Nothing Then acroMergeDoc.Close
    If Not acroPDDoc Is Nothing Then acroPDDoc.Close
    ' 退出Acrobat应用
    If Not acroApp Is Nothing Then acroApp.Exit
    ' 释放对象内存
    Set acroMergeDoc = Nothing
    Set acroPDDoc = Nothing
    Set acroApp = Nothing
    
    ' 删除临时文件（调试时可注释此部分保留临时文件）
    On Error Resume Next
    Kill excelTemp
    Kill wordTemp
    On Error GoTo 0
End Sub

注意事项 #

• 路径部分需全部替换为你实际的文件路径，包括Excel工作表所属工作簿、Word文档路径、最终PDF保存路径。
• 如果不需要自动删除临时文件，可以注释掉CleanupResources过程中的Kill语句。
• 若运行时提示"用户定义类型未定义"，说明未正确引用Adobe Acrobat类型库，需重新检查引用设置。

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