将Word>Excel邮件合并转换为Excel>Word合并的技术求助

Hey Chris, 我完全懂你现在的困扰——把原本在Word里跑顺的邮件合并脚本迁移到Excel后出问题，这确实是个常见的场景，毕竟两个Office应用的对象模型和权限逻辑有不少差异。下面我给你梳理一下核心问题和可行的解决方案：

首先先给你一个经过验证的Excel VBA代码模板，你可以对比自己的现有代码找差异：

Sub RunMailMergeFromExcel()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim excelSourcePath As String
    
    ' 获取当前Excel文件的完整路径（作为邮件合并数据源）
    excelSourcePath = ThisWorkbook.FullName
    
    ' 创建Word应用实例，设置可见方便调试
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    
    ' 打开你的Word邮件合并模板
    Set wdDoc = wdApp.Documents.Open("C:\Your\Template\Path\MailMergeTemplate.docx")
    
    With wdDoc.MailMerge
        ' 配置数据源：注意工作表名称的格式要求
        .OpenDataSource _
            Name:=excelSourcePath, _
            Format:=wdOpenFormatAuto, _
            Connection:="Data Source=" & excelSourcePath & ";Mode=Read", _
            SQLStatement:="SELECT * FROM `Sheet1$`" ' 替换成你实际的工作表名称
        
        ' 执行合并：按需改成wdSendToPrinter/ wdSendToEmail
        .Destination = wdSendToNewDocument
        .Execute
    End With
    
    ' 释放对象，避免内存占用
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

接下来说说你迁移代码时最可能踩的几个坑：

• 对象模型的本质差异：在Word里你直接用ActiveDocument.MailMerge就能操作，但在Excel里必须先创建Word应用对象、打开模板文档，不能直接引用Word的ActiveDocument（Excel里根本没有这个对象）。
• 数据源路径与权限冲突：如果你的Excel文件处于打开状态，Word访问时可能触发文件锁定。代码里用ThisWorkbook.FullName确保路径绝对正确，Connection参数加Mode=Read能减少权限冲突。
• 工作表名称的格式坑：SQL语句里的工作表名称必须用`（反引号）包裹，后面加$，比如客户列表要写成`客户列表$`，这个细节很容易忽略。
• Word常量的兼容性问题：如果没在Excel的VBA编辑器里引用"Microsoft Word XX.X Object Library"，直接用wdOpenFormatAuto这类常量会报错。要么添加引用，要么换成对应数值（比如wdOpenFormatAuto=-1，wdSendToNewDocument=0）。

如果还是有问题，把出错的代码片段和具体错误提示贴出来，能更快定位问题~

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