邮件合并后，每一页WORD单独保存1个文件，saveas 路径总是通不过

shrimp_go · 发表于 2016-11-21 22:45

本帖最后由 shrimp_go 于 2016-11-21 22:49 编辑

邮件合并后，每一页WORD单独保存1个文件，saveas 路径总是通不过

用了http://club.excelhome.net/thread-386660-1-1.html里的代码

就是无法运行，一直提示路径问题
保存的文件名需要是日期+号码，保存在D盘退费文件夹里

上传样表，原表数据很大，花式求助。。

duquancai · 发表于 2016-11-22 01:47

在你的基础上修改如下（我尽量保持你原有代码）：

Sub myMailMerge()
' 主文档的类型为信函
' 合并全部数据记录
' 假设主文档已链接好数据源，可以进行正常的邮件合并
Dim myMerge As MailMerge, i As Integer, myname As String
Application.ScreenUpdating = False
Set myMerge = ActiveDocument.MailMerge
With myMerge.DataSource
If .Parent.State = wdMainAndDataSource Then
.ActiveRecord = wdFirstRecord
For i = 1 To .RecordCount
.FirstRecord = i
.LastRecord = i
.Parent.Destination = wdSendToNewDocument
' 取得数据源第1个和第2个字段（合并域）的当前数据字符串，用以命名文件
myname = .DataFields(1).Value & .DataFields(2).Value
.ActiveRecord = wdNextRecord
.Parent.Execute '每次合并一个数据记录
With ActiveDocument
.Content.Characters.Last.Previous.Delete '删除分节符
myPath = ThisDocument.Path & ""
.SaveAs myPath & Replace(myname, "/", "-") & ".doc" '假设生成的各文档保存于E盘根目录下
.Close '关闭生成的文档（已保存）
End With
Next
End If
End With
Application.ScreenUpdating = True
End Sub

复制代码

shrimp_go · 发表于 2016-11-22 13:38

duquancai 发表于 2016-11-22 01:47
在你的基础上修改如下（我尽量保持你原有代码）：

这次到是没报错了。。但是。。它没保存。。您给的这个代码理论是应该是保存在我找开的的WORD文档处对么？

ts264 · 发表于 2016-11-22 18:52

本帖最后由 ts264 于 2016-11-22 18:58 编辑

你的日期格式用了/,文件名保存应该不能用/符

用户号码18628345009因用户赵芡办理了其它号码，故到我厅办理退网销号业务。余额7199.00元，已正常为用户办理。

自有营业厅

11/18/2016

shrimp_go · 发表于 2016-11-23 14:24

ts264 发表于 2016-11-22 18:52
你的日期格式用了/,文件名保存应该不能用/符
用户号码18628345009因用户赵芡办理了其它号码，故到我厅办理 ...

用的是myname = .DataFields(1).Value & .DataFields(2).Value这个，不是第一个和第二个数据源么，并不是日期呀。。

ts264 · 发表于 2016-11-25 12:03

shrimp_go 发表于 2016-11-23 14:24
用的是myname = .DataFields(1).Value & .DataFields(2).Value这个，不是第一个和第二个数据源么，并不是 ...

DataFields(2).Value的值就是日期的值了，excel转存word的值就是xx/xx/xxxx格式，你可以试试直接123代替第一个数据代替，第一个数据是可以合并的。

		自动登录	找回密码
密码			免费注册

[求助] 邮件合并后，每一页WORD单独保存1个文件，saveas 路径总是通不过

评分