vba - Microsoft Word 邮件合并数据源自动定位

Question

我编写了一个 Excel > Word 邮件合并，其中 Word 文档是邮件合并模板。

目前 Excel 文件(数据源)的位置必须进行硬编码。

我希望能够通过网络移动文件，只要它们位于同一文件夹中，这样它就会识别数据源仍然是excel文件。

我目前有这段代码，我认为它可以工作。当Word文档在任何时候打开时，它都会通过查找文件的当前目录并查找文件名PM MailMerge.xlsm来重新创建数据源。

创建后，消息框应显示新的邮件合并数据源。

这可行，但是当我将这两个文件移动到任何其他文件夹时，它会失败并说找不到数据源。

代码:

Private Sub Document_Open()

Dim strBook As String
Dim strBookName As String
Dim strDataSource As String

strBookName = "\PM MailMerge.xlsm"
strBook = ActiveDocument.Path & strBookName
strDataSource = ActiveDocument.MailMerge.DataSource.Name

ActiveDocument.MailMerge.OpenDataSource Name:= _
strBook, _
ConfirmConversions:=False, _
ReadOnly:=False, _
LinkToSource:=True, _
AddToRecentFiles:=False, _
PasswordDocument:="", _
PasswordTemplate:="", _
WritePasswordDocument:="", _
WritePasswordTemplate:="", _
Revert:=False, _
Format:=wdOpenFormatAuto, _
Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=strBook;Mode=Read;Extended                       Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry       Path="""";Jet OLEDB:Engine Type=37;Jet OLEDB:D", _
SQLStatement:="SELECT * FROM `Merge$`", _
SQLStatement1:="", SubType:= _
wdMergeSubTypeAccess

MsgBox "Current Datasource -   " + strDataSource

End Sub

Answer 1

失败是因为 Word 在执行 Document_Open 之前尝试连接到现有数据源。然而，究竟会发生什么以及您所看到的至少取决于以下因素:

1. 文档中存储的数据源信息是否仍然存在有效(即原始 .xlsm 是否仍然存在，例如正确的工作表名称仍在其中)
2. 您是手动打开 Word 文档还是通过 OLE 打开自动化
3. 是否描述了 SQLSecurityCheck 注册表设置 here是处于默认状态(即不存在或设置为 1)，或设置为 0
4. 在 OLE 自动化的情况下，Word Applicaiotn 对象是否DisplayAlerts 属性设置为 wdAlertsAll 或 wdAlertsNone

粗略地说...

如果 Word 尝试查找的数据源仍然存在，则在除一种情况外的所有情况下，只要用户对看到的任何安全提示回答"is"，Word 就会建立连接。异常(exception)情况是，如果 SQLSecurityCheck 不存在或设置为 1(即默认值)，则通过 OLE 自动化打开文档，并且 DisplayAlerts 设置为 wdAlertsNone，则不会显示对话框，也不会打开数据源。

如果 Word 尝试查找的数据源不存在(例如已被移动)，则在除一种情况外的所有情况下，用户都会看到错误对话框。如果他们对该对话框的响应是识别有效的数据源，则文档将具有新的数据源。同样，异常(exception)情况是当 SQLSecurityCheck 为默认值、通过 OLE 打开文档且 DisplayAlerts 设置为 wdAlertsNone 时。在这种情况下，不会显示任何对话框，并且不会打开数据源。

开发人员面临的一个问题是，如果将 SQLSecurityCheck 值更改为 0(通常是为了让用户不必一直回答安全检查问题)，他们将无法避免在数据源不存在时弹出用户对话框。

但是，只要用户能够看到并响应连接到数据源时 Word 显示的任何对话框，用户最终将得到 (a) 带有附加数据源的打开文档，或者(b) 没有附加数据源的打开文档(或者可以说是其他一些困惑，例如用户试图结束 Word 进程或类似的情况)。如果发生这两种情况中的任何一种，则应运行 Document_Open 代码，并且 Word 最终应连接到所需的数据源。 (尽管在某些情况下，当 Word 已使用不同的方法连接到现有数据源(例如文本文件)时尝试连接到该数据源可能会导致错误。)

顺便说一下，

• 对于与 Excel 工作簿的 OLE DB 连接，您应该能够省略 OpenDataSource 调用中的所有参数(名称和名称除外)SQL语句。
• AFAICS 目前您的代码将始终报告 AFAICS 的名称现有数据源(如果 Word 尚未将其删除)Document_Open 执行。您需要将作业移至OpenDataSource 调用下面的 strDataSource 显示新名称。但也许我错过了重点!