| 网站首页 | 业界新闻 | 群组 | 人才 | 技术文章 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 297 人关注过本帖
标题:如何将dbf数据批量写入word模板(空表)文件中
只看楼主 收藏
王咸美
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2018-1-4
结帖率:100%
  已结贴   问题点数:20  回复次数:10   
如何将dbf数据批量写入word模板(空表)文件中
如何将vfp的dbf中的数据批量写入word模板文件(空表)中,急用,请各位高手帮帮忙,多谢了!!!

[此贴子已经被作者于2018-1-6 00:52编辑过]

2018-01-05 20:23
星光悠蓝
Rank: 6Rank: 6
来 自:山水甲天下
等 级:贵宾
威 望:19
帖 子:241
专家分:447
注 册:2010-1-11
  得分:20 
EXCEL用得多点,WORD没真正用过,建议参考VBA的用法
2018-01-05 20:44
星光悠蓝
Rank: 6Rank: 6
来 自:山水甲天下
等 级:贵宾
威 望:19
帖 子:241
专家分:447
注 册:2010-1-11
  得分:0 
把模板放上来,我们学习一下
2018-01-05 20:50
schtg
Rank: 5Rank: 5
等 级:职业侠客
威 望:9
帖 子:287
专家分:360
注 册:2012-2-29
  得分:0 
我的操作步骤:
1、建好word模板;
2、读取dbf中的数据;
3、按照需求处理数据格式;
4、定位word模板中需要写入数据的单元格位置(重点);
5、写入数据,完成。
==================================================
仅供参考!
2018-01-06 07:25
王咸美
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2018-1-4
  得分:0 
能把原码发上来吗?多谢!
2018-01-06 09:01
schtg
Rank: 5Rank: 5
等 级:职业侠客
威 望:9
帖 子:287
专家分:360
注 册:2012-2-29
  得分:0 
回复 5楼 王咸美
* 现在野外,只能提供主要代码,仅供参考

wjm=SYS(5)+SYS(2003)+'\模板.doc'
Appdoc=CREATEOBJECT("Word.application")
OLEAPP=Appdoc.Application.Documents.Open[wjm] && 关键
Appdoc.VISIBLE=.T.

use 数据表
GO top
i=1
do while .NOT.eof()
   OLEAPP.tables.item(1).cell(i,1).range.text=字段 && 可添加格式设置  
   ……   && 重复
   SKIP  && 此处可以添加尾记录判断
   i=i+1
ENDDO
2018-01-06 10:10
王咸美
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2018-1-4
  得分:0 

word文档模板


附件: 您没有浏览附件的权限,请 登录注册
2018-01-06 10:27
王咸美
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2018-1-4
  得分:0 
请5楼版主将代码写得再详细点,最好能写全,因为我是个新手,望不吝赐教,再次表示感谢!!!
2018-01-06 10:33
schtg
Rank: 5Rank: 5
等 级:职业侠客
威 望:9
帖 子:287
专家分:360
注 册:2012-2-29
  得分:0 
回复 8楼 王咸美
将我提供的主要代码稍加修改即可,数据表文件呢?把数据表、word模板文件发上来,待我稍空时再写哈。

[此贴子已经被作者于2018-1-7 07:36编辑过]

2018-01-07 07:32
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:版主
威 望:326
帖 子:11112
专家分:41961
注 册:2006-5-13
  得分:0 
查询一下word的邮件合并功能,可以将EXCEL、ACCESS、DBF等数据表的内容自动填写到指定的位置,可应用于打印成绩单、工资单等。

活到老,学到老! http://www.qs98.com E-mail:hu-jj@21cn.com
2018-01-07 09:25







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.423680 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved