Excel宏执行邮件合并时打开只读工作簿的问题咨询

在家中测试环境运行以下VBA代码时，仅会打开包含合并数据的Word文档，不会额外打开Excel工作簿；但在工作环境使用仅修改Word文档路径/文件名的相同代码时，会先以只读模式打开与原文件完全相同的Excel工作簿（原文件保持打开状态），之后再打开Word文档。请问该现象的成因是什么？能否阻止该情况发生？若无法阻止，能否设置在Word文档打印完成后关闭该只读工作簿？

Sub DoMailMerge()

'Note: A VBA Reference to the Word Object Model is required, via Tools|References
Dim wdApp As New Word.Application, wdDoc As Word.Document
Dim strWorkbookName As String: strWorkbookName = ThisWorkbook.FullName

    Dim r As Range
    Dim nLastRow As Long, nLastColumn As Long
    Dim nFirstRow As Long, nFirstColumn As Long
    Set r = Selection
    nLastRow = r.Rows.Count + r.Row - 2
    nFirstRow = r.Row - 1
    Dim WFile As String
    WFile = Range("A2").Value
    Dim sheetname As String
    sheetname = ActiveSheet.Name

ActiveWorkbook.Save
With wdApp
  'Disable alerts to prevent an SQL prompt
  .DisplayAlerts = wdAlertsNone
  'Open the mailmerge main document
  Set wdDoc = .Documents.Open("S:\ISO\ISO - Form Templates\All certificates\" & WFile, _
    ConfirmConversions:=False, ReadOnly:=True, AddToRecentfiles:=False)
  With wdDoc
    With .MailMerge
      'Define the mailmerge type
      .MainDocumentType = wdFormLetters
      'Define the output
      .Destination = wdSendToNewDocument
      .SuppressBlankLines = True
      'Connect to the data source
      .OpenDataSource Name:=strWorkbookName, ReadOnly:=False, _
        LinkToSource:=False, AddToRecentfiles:=False, _
        Format:=wdOpenFormatAuto, _
        Connection:="Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "User ID=Admin;Data Source=strWorkbookName;" & _
        "Mode=Read;Extended Properties=""HDR=YES;IMEX=1"";", _
        SQLStatement:="SELECT * FROM `" & sheetname & "$`", _
        SubType:=wdMergeSubTypeAccess
      With .DataSource
        .FirstRecord = nFirstRow
        .LastRecord = nLastRow
      End With
      'Excecute the merge
      .Execute
      'Disconnect from the data source
      .MainDocumentType = wdNotAMergeDocument
    End With
    'Close the mailmerge main document
    .Close False
  End With
  'Restore the Word alerts
  .DisplayAlerts = wdAlertsAll
  'Display Word and the document
  .Visible = True
  .Activate
  .PrintOut
  wdApp.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
  wdApp.Quit
 
End With

End Sub

现象成因 #

• 代码连接字符串错误：代码中OpenDataSource的Connection参数里，Data Source=strWorkbookName是硬写的字符串，没有引用变量strWorkbookName，导致OLEDB驱动找不到正确的Excel文件路径。家用环境可能因为文件在本地，Word自动 fallback 到正确的读取方式；而工作环境是网络共享路径，Word无法自动修复，只能以只读模式打开原文件副本获取数据。
• Office配置差异：工作环境的Word可能禁用了OLEDB连接的某些权限，或者邮件合并的数据源默认设置为直接打开Excel文件，而非通过数据库驱动读取。
• 网络文件锁定：工作环境的Excel文件位于网络共享目录，当原文件处于打开状态时，OLEDB驱动无法获取写入权限，只能触发只读副本打开的机制。

阻止只读工作簿打开的方案 #

1. 修复OLEDB连接字符串错误 #

这是最核心的解决方法，把Connection参数中的硬编码字符串替换为变量引用：

.Connection:="Provider=Microsoft.ACE.OLEDB.12.0;" & _
"User ID=Admin;Data Source=" & strWorkbookName & ";" & _
"Mode=Read;Extended Properties=""HDR=YES;IMEX=1"";"

修正后，OLEDB驱动能正确定位到Excel文件，无需打开只读副本。

2. 调整Word信任中心与高级设置 #

• 打开Word选项→高级→常规，取消勾选「打开时确认文件格式转换」；
• 进入信任中心→信任中心设置→外部内容，设置「启用所有外部内容」（或针对OLEDB数据源单独授权）。

3. 改用Word原生Excel数据源连接 #

如果OLEDB驱动仍有问题，可以简化OpenDataSource参数，直接使用Word的Excel数据源类型：

.OpenDataSource Name:=strWorkbookName, ReadOnly:=False, _
  LinkToSource:=False, AddToRecentfiles:=False, _
  Format:=wdOpenFormatAuto, _
  SubType:=wdMergeSubTypeWord

此方式不会触发只读副本打开，但需要确保Excel文件格式与Word兼容。

若无法阻止，关闭只读工作簿的方法 #

如果以上方案都无效，可在代码执行完打印操作后，遍历Excel工作簿集合，关闭只读副本：

' 在wdApp.Quit语句之后添加以下代码
Dim wb As Workbook
For Each wb In Application.Workbooks
    ' 匹配文件路径和只读状态
    If wb.FullName = strWorkbookName And wb.ReadOnly Then
        wb.Close SaveChanges:=False
        Exit For ' 找到目标后退出循环
    End If
Next wb

注：如果工作环境存在多个Excel实例，需要额外调用Windows API遍历所有实例，优先建议解决根源问题，此方法为兜底方案。

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