我正在寻找一个Word Mailmerge文件的可能性,在打开文件时,一个对话框会打开数据源(不同名称的excel文件)。 它不一定是mailmerge......我正在用我的头撞墙,我试过的每一种方法都失败了......我在寻找一个Word Mailmerge文件的可能性,在打开文件时,一个对话框会打开数据源(excel文件的不同名称)。
你可以使用一个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