自动 Word VBA 邮件合并答案

【问题标题】：Automated Word VBA MailMerge自动 Word VBA 邮件合并
【发布时间】：2020-05-01 17:29:51
【问题描述】：

我正在寻找一个 Word Mailmerge 文件的可能性，该文件在打开文件时会为数据源（具有不同名称的 Excel 文件）打开一个对话框。它不必是邮件合并......我尝试过的每一种方式都在用头撞墙......

【问题讨论】：

【解决方案1】：

您可以使用 Document_Open 宏，例如：

Private Sub Document_Open()
Application.ScreenUpdating = False
Dim StrMMSrc As String
With Application.FileDialog(FileDialogType:=msoFileDialogFilePicker)
  .Title = "Data Source Selector"
  .AllowMultiSelect = False
  .Filters.Add "Documents", "*.xls; *.xlsx; *.xlsm", 1
  .InitialFileName = ""
  If .Show = -1 Then
    StrMMSrc = .SelectedItems(1)
  Else
    GoTo ErrExit
  End If
End With
With ActiveDocument.MailMerge
  .OpenDataSource Name:=StrMMSrc, ReadOnly:=True, AddToRecentFiles:=False, _
    LinkToSource:=False, Connection:="Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;" & _
    "Data Source=StrMMSrc;Mode=Read;Extended Properties=""HDR=YES;IMEX=1"";", _
    SQLStatement:="SELECT * FROM `Sheet1$`"
End With
ErrExit:
Application.ScreenUpdating = True
End Sub

【讨论】：

谢谢.....这就是我想要的谢谢.....