我希望从Excel运行邮件合并以从模板生成最终的合并Word文档

问题描述

我能够成功地将Word文档与带有数据标签的excel文件通过邮件合并。理想情况下，Excel中的按钮将打开单词doc，合并并打印为PDF。
我的Excel文件“ excelFile”具有三个选项卡，第三个选项卡为“数据”，其中包含拉入单词doc的信息。，“模板”。以下是我到目前为止发现的内容，并且收到运行时4198错误。

Sub MailMergeFromWord()

Dim objWord
Dim objDoc

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("template.docm")

objDoc.MailMerge.MainDocumentType = wdFormletters
objDoc.MailMerge.OpenDataSource Name:= _
    "excelfile.xlsm" _,ConfirmConversions:=False,ReadOnly:=False,LinkToSource:=True,_
    AddToRecentFiles:=False,PasswordDocument:="",PasswordTemplate:="",_
    WritePasswordDocument:="",WritePasswordTemplate:="",Revert:=False,_
    Format:=wdOpenFormatAuto,Connection:="",sqlStatement:="SELECT * FROM `Data$`",sqlStatement1:="",SubType:= _
    wdMergeSubTypeAccess
With ActiveDocument.MailMerge
    .Destination = wdSendToPrinter
    .SuppressBlankLines = True
    With .DataSource
        .FirstRecord = wdDefaultFirstRecord
        .LastRecord = wdDefaultLastRecord
    End With
    .Execute Pause:=False
End With

objWord.Visible = True
objDoc.Visible = True

Set objWord = nothing
Set objDoc = nothing

End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

docx-mailmerge excel excel