如何解决我希望从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 举报,一经查实,本站将立刻删除。