Excel添加按钮打开邮件合并Word模板时，如何解决无法同时打开问题？

核心原因 #

你遇到的错误是因为邮件合并时，Word默认会尝试以独占读写模式打开Excel数据源，而如果Excel文件本身已打开（反之亦然），系统会锁定文件导致无法重复访问，触发权限/独占错误。

简易解决办法 #

1. 调整Excel文件的访问权限与模式

• 取消Excel文件的只读属性：右键Excel文件→【属性】，取消勾选【只读】选项，点击确定。
• 关闭Excel的受保护视图限制：打开Excel后，依次点击【文件】→【选项】→【信任中心】→【信任中心设置】→【受保护的视图】，取消勾选所有受保护视图的选项（注意：仅针对信任的文件操作，避免安全风险）。
• 保存时取消独占模式：打开Excel文件后，选择【另存为】，在保存对话框右下角点击【工具】→【常规选项】，取消勾选【建议只读】，确认保存。

2. 修改VBA代码，强制Word以只读模式连接数据源

原代码仅打开Word模板，未处理邮件合并的数据源连接逻辑，需补充指定只读连接参数，避免独占冲突。修改后的代码如下：

Private Sub CommandButton1_Click()
    Dim objWord As Object
    Dim objDoc As Object
    Dim excelDataSourcePath As String
    
    ' 获取当前Excel文件的完整路径（作为数据源）
    excelDataSourcePath = ThisWorkbook.FullName
    
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    
    ' 打开你的Word邮件合并模板
    Set objDoc = objWord.Documents.Open("*替换为你的Word模板完整路径*")
    
    ' 重新配置邮件合并数据源，以只读模式连接Excel
    With objDoc.MailMerge
        .MainDocumentType = wdFormLetters ' 根据你的文档类型调整，如wdEnvelopes（信封）、wdLabels（标签）
        .OpenDataSource _
            Name:=excelDataSourcePath, _
            ReadOnly:=True, ' 关键：以只读方式连接，避免独占锁
            LinkToSource:=True, _
            Connection:="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & excelDataSourcePath & ";Mode=Read;Extended Properties=""HDR=YES;IMEX=1"";", _
            SQLStatement:="SELECT * FROM `Sheet1$`" ' 替换为你的数据源所在工作表名称，格式为`工作表名$`
    End With
    
    ' 释放对象
    Set objDoc = Nothing
    Set objWord = Nothing
End Sub

注意事项：

• 替换代码中的*替换为你的Word模板完整路径*为实际的Word文件路径；
• 替换Sheet1$为你的数据源所在工作表名称（比如数据源在Sheet2，就写Sheet2$）；
• 若使用旧版Excel（.xls格式），需把Provider参数改为Microsoft.Jet.OLEDB.4.0。

3. 切换数据源格式为CSV（最简便的方案）

将Excel中的数据源工作表另存为**CSV（逗号分隔）**格式，Word邮件合并连接CSV文件即可避免独占冲突——因为CSV是纯文本文件，不会被系统加独占锁，即使Excel打开原文件，Word也能正常读取CSV数据源：

• 操作步骤：打开Excel，切换到数据源工作表，点击【文件】→【另存为】，选择保存类型为【CSV（逗号分隔）】，保存到指定路径；
• 修改Word模板的邮件合并数据源，选择这个CSV文件；
• 原VBA代码无需大改，直接打开Word模板即可，因为数据源已切换为无独占限制的CSV。

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