Foxtable(狐表)用户栏目专家坐堂 → word中邮件合并的问题(狐爸请看看,这也是一种很好的报表方式。问题解决)


  共有7032人关注过本帖树形打印复制链接

主题:word中邮件合并的问题(狐爸请看看,这也是一种很好的报表方式。问题解决)

帅哥哟,离线,有人找我吗?
cxabc123
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:810 积分:5250 威望:0 精华:0 注册:2009/2/6 10:38:00
word中邮件合并的问题(狐爸请看看,这也是一种很好的报表方式。问题解决)  发帖心情 Post By:2013/7/6 15:47:00 [只看该作者]

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

 回到顶部
帅哥,在线噢!
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/7/6 16:06:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
cxabc123
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:810 积分:5250 威望:0 精华:0 注册:2009/2/6 10:38:00
  发帖心情 Post By:2013/7/6 16:16:00 [只看该作者]

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

 回到顶部
帅哥,在线噢!
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/7/6 16:25:00 [只看该作者]

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
cxabc123
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:810 积分:5250 威望:0 精华:0 注册:2009/2/6 10:38:00
  发帖心情 Post By:2013/7/6 16:31:00 [只看该作者]

狐爸您想复杂了,目的只有一点,就是在狐表的一个按钮里能够写上几行代码,能够实现Excel数据源与word文档模版实现链接就行了,这样方便用户使用软件。不需要从foxtable的表中直接生成word报表。

 回到顶部
帅哥哟,离线,有人找我吗?
cxabc123
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:810 积分:5250 威望:0 精华:0 注册:2009/2/6 10:38:00
  发帖心情 Post By: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
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:7 积分:116 威望:0 精华:0 注册:2013/7/19 16:44:00
  发帖心情 Post By:2013/7/30 10:06:00 [只看该作者]

如果foxtable支持word.application(像支持excel.application一样)就好了。


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/7/30 10:07:00 [只看该作者]

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


这个可以自己引用的.

 回到顶部
帅哥哟,离线,有人找我吗?
ztmdnzc
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:501 积分:4167 威望:0 精华:0 注册:2013/1/18 13:34:00
  发帖心情 Post By:2013/8/2 13:03:00 [只看该作者]

狐表只是个基础,在此基础上方可实现无限功能,只是目前这个基础尚不尽人意!

 回到顶部
帅哥哟,离线,有人找我吗?
cxabc123
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:810 积分:5250 威望:0 精华:0 注册:2009/2/6 10:38:00
  发帖心情 Post By:2013/9/17 8:18:00 [只看该作者]

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

 

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

 

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

 回到顶部