如何通过Word VBA读取Excel单元格路径并保存PDF文档

以下是修改后的VBA宏代码，可实现从已打开的Excel文件指定单元格读取保存路径，并将当前Word文档导出为PDF到该路径：

Sub SaveToPDFFromExcelPath()
    Dim xlApp As Object
    Dim xlWB As Object
    Dim savePath As String
    Dim pdfFileName As String
    
    ' 获取已打开的Excel实例
    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    On Error GoTo 0
    
    ' 检查是否存在打开的Excel
    If xlApp Is Nothing Then
        MsgBox "未检测到已打开的Excel文件，请先打开目标Excel文件！", vbExclamation
        Exit Sub
    End If
    
    ' 指定读取的工作簿（此处用当前激活的工作簿，可改为具体文件名如Workbooks("你的文件.xlsx")）
    Set xlWB = xlApp.ActiveWorkbook
    ' 读取Sheet1的A1单元格路径（可修改工作表和单元格位置）
    savePath = xlWB.Sheets("Sheet1").Range("A1").Value
    
    ' 检查路径是否为空
    If savePath = "" Then
        MsgBox "Excel的A1单元格未填写保存路径！", vbExclamation
        Exit Sub
    End If
    
    ' 确保路径末尾带有反斜杠，避免拼接错误
    If Right(savePath, 1) <> "\" Then
        savePath = savePath & "\"
    End If
    
    ' 生成PDF文件名（兼容.doc和.docx格式）
    pdfFileName = savePath & Replace(Replace(ActiveDocument.Name, ".docx", ".pdf"), ".doc", ".pdf")
    
    ' 执行PDF导出
    ActiveDocument.ExportAsFixedFormat _
        OutputFileName:=pdfFileName, _
        ExportFormat:=wdExportFormatPDF, _
        OpenAfterExport:=False, _
        OptimizeFor:=wdExportOptimizeForPrint, _
        Range:=wdExportAllDocument, _
        Item:=wdExportDocumentContent, _
        IncludeDocProps:=False, _
        KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, _
        DocStructureTags:=True, _
        BitmapMissingFonts:=True, _
        UseISO19005_1:=False
    
    MsgBox "PDF已成功导出至：" & pdfFileName, vbInformation
End Sub

关键细节说明 #

• Excel实例获取：使用GetObject函数直接调用已打开的Excel程序，无需新建进程，避免资源浪费。
• 路径读取配置：代码中默认读取Sheet1的A1单元格，你可以根据实际需求修改工作表名称（如"数据工作表"）或单元格位置（如"B2"）。
• 路径格式校验：自动补充路径末尾的反斜杠，防止路径与文件名拼接时出现错误（例如C:\Test会自动转为C:\Test\）。
• 格式兼容：同时处理.doc和.docx后缀的Word文档，确保生成正确的PDF文件名。
• 错误提示：针对Excel未打开、路径为空的场景添加了提示框，让操作更直观。

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