以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  word中邮件合并的问题(狐爸请看看,这也是一种很好的报表方式。问题解决)  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=37615)

--  作者:cxabc123
--  发布时间:2013/7/6 15:47:00
--  word中邮件合并的问题(狐爸请看看,这也是一种很好的报表方式。问题解决)
office办公软件中的word有一个软件合并功能,这个功能非常有利于报表的制作,能够方便与word格式对接。
我是这样使用的,首先将要生成报表的数据通过代码转成Excel格式,然后通过word的邮件合并功能生成报表。
但是,这样有一个问题,有时候需要手工重新链接数据源,即Excel格式的数据。这样存在一个问题,就是一个发布了的软件,不能要求每个人都去掌握这个邮件合并功能。要实现任何人都能够傻瓜化的操作,最好是用代码实现数据源的链接,这样不管怎样,都能够确保正确链接,但是我查了一下,没有邮件合并的代码事例,请那位指点
这种方式如果通过代码实现,比文章套打的效果就好多了,请狐爸看看
[此贴子已经被作者于2013-9-17 8:19:05编辑过]

--  作者:狐狸爸爸
--  发布时间:2013/7/6 16:06:00
--  

我没有用过word的邮件合并功能,不过我觉得Excel报表不是已经很方便了吗?


--  作者:cxabc123
--  发布时间:2013/7/6 16:16:00
--  
Excel报表是很方便,但是有时候word文档有他的优势,在办公中上级经常要求报word格式的文档,比如干部信息卡,就需要word格式的。如果通过转换能够发挥word的优势,就可以达到天下无敌了。
上次提到悬挂缩进,excel报表就无法实现,但对word来说很简单
word报表生成后还可以修改,而且在办公环境中经常用到。
excel更便于数据分析,word更便于工作中交换数据。数据库不需要很多人掌握使用,但是生成的excel报表和word报表重点就是让别人看的
[此贴子已经被作者于2013-7-6 16:22:54编辑过]

--  作者:狐狸爸爸
--  发布时间:2013/7/6 16:25:00
--  

这是一个大的工程,目前没有办法实现,以后考虑吧。

你可以学一下word的vba,这样可以直接用foxtable操作和生成word文件,我记得论坛有个例子


--  作者:cxabc123
--  发布时间:2013/7/6 16:31:00
--  
狐爸您想复杂了,目的只有一点,就是在狐表的一个按钮里能够写上几行代码,能够实现Excel数据源与word文档模版实现链接就行了,这样方便用户使用软件。不需要从foxtable的表中直接生成word报表。
--  作者:cxabc123
--  发布时间:2013/7/6 17:02:00
--  

Sub Macro3()

    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters

    ActiveDocument.MailMerge.OpenDataSource Name:= _

        "D:\\EasyDatabase\\Reports\\Word任免审批表数据源.xls", 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=D:\\EasyDatabase\\Reports\\Word任免审批表数据源.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLED" _

        , SQLStatement:="SELECT * FROM `干部信息$`", SQLStatement1:="", SubType:= _

        wdMergeSubTypeAccess

    ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle

    ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle

End Sub


狐爸这是我通过word的宏录制器录制的一段链接的代码,但是纯粹不懂如何使用,也不懂她的意思


--  作者:hndxw
--  发布时间:2013/7/30 10:06:00
--  
如果foxtable支持word.application(像支持excel.application一样)就好了。


--  作者:Bin
--  发布时间:2013/7/30 10:07:00
--  
以下是引用hndxw在2013-7-30 10:06:00的发言:
如果foxtable支持word.application(像支持excel.application一样)就好了。


这个可以自己引用的.
--  作者:ztmdnzc
--  发布时间:2013/8/2 13:03:00
--  
狐表只是个基础,在此基础上方可实现无限功能,只是目前这个基础尚不尽人意!
--  作者:cxabc123
--  发布时间:2013/9/17 8:18:00
--  

这个问题已经解决,点击如下链接

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=40305

 

[此贴子已经被作者于2013-9-17 8:18:08编辑过]