[求助]请版主解决动态连接问题

KONKAG

[求助]请版主守柔解决动态连接问题：我在工作中碰到一个小问题,就是想用WORD的模板把EXCEL里面的记录填写到WORD表格里面,一个记录填写一页,这个功能我用“邮件合并”工具已经实现了，但是我嫌太麻烦，因为有时候换一台机器操作的话将是很不方便，所以我想能否在EXCEL或者在WORD里面做一个工具条，每次使用时只需点击工具条即可以进行填写并分页（将模板和数据文件固定名字且放在同一目录）。我在论坛上搜索了有好多这方面的文章，但是都不太具体，所以请版主出招帮帮忙。

守柔

这种情况，你可以在WORD录个宏，然后自定义工具栏，将此宏拖到工具栏即可。

如果你不是太熟悉，可以上传你的WORD邮件合并主文档与EXCEL数据源，我看一下，修改一下代码，即可方便实现。

KONKAG

刚才忘了传附件了,谢谢.

jzjpeP7W.rar (109.65 KB, 下载次数: 11)

2005-4-24 13:54 上传

点击文件名下载附件

[此贴子已经被作者于2005-4-24 13:51:41编辑过]

KONKAG

请班主把word里面的头几个表格给填上示意一下就行了,具体那些繁琐的就我自己回头再添,主要是我想知道这个想法是怎么实现的.谢谢

守柔

我估计我错误理解楼主的意思了，我做的是解决动态链接的代码，而你的要求好象是自动填入合并域的工作 ？

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-4-26 6:02:49 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

'Private Sub Document_Close() ''每次退出时修改为普通WORD文档 ' ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument 'End Sub Private Sub Document_Open() '每次打开时指定数据源为同一路径下的该XLS 工作薄 Dim DataName As String '先修改为普通WORD文档(去除数据源) ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument DataName = ThisDocument.Path & "\评级记录.xls" ActiveDocument.MailMerge.OpenDataSource Name:=DataName, _ ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _ AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _ WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _ Format:=wdOpenFormatAuto, Connection:="Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & DataName & ";Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Databa" _ , SQLStatement:="SELECT * FROM `掏挖插入式$`", SQLStatement1:="", SubType:= _ wdMergeSubTypeAccess End Sub '----------------------

KONKAG

试试先，谢谢守柔版主！