一个CEXEL VBA的高级应用范例

weiguoyin868

<p>自己工作中用的,涉及dbf数据库和WORKD文件的自动生成，学VBA是初级。愿大家共享，也希望高手指点</p><p>1、将vfpodbc.dll拷入C:\WINDOWS\system32目录下。<br/>2、应用背景：集团公司统一负责下属单位人员的保险汇交工作，每月社保机构返回一个当月的社保数据库</p><p>（格式为dbf），保险人员每月提供给财务一份保险汇总表，同时提供所有下属单位各项保险的WORD文件的</p><p>结算表。保险汇总表和结算表的文档格式是规定好的。<br/>3、程序的作用<br/>&nbsp;&nbsp; 通过对dbf文件中的保险基数字段的调用，在CEXEL工作表中生成过渡数据和下属单位的汇总表，进而再</p><p>分别生成下属单位各项保险的WORKD文档的结算表。<br/></p> P1YpI8ql.rar (105.43 KB, 下载次数: 1228)

2007-12-1 22:33 上传

点击文件名下载附件
一个CEXEL VBA的高级应用范例

<br/>

weiguoyin868

VBA调用dbf数据库，xp系统，office2003要用vfpodbc.dll文件，该文件较大。可以从网上找下载

weiguoyin868

将vfpodbc.dll拷入C:\WINDOWS\system32目录下

wangtx218

<p>很好，学习，谢谢！</p><p>xlsFile = Dir(ActiveWorkbook.Path &amp; "\pay.dbf")</p><p>想加一路经，不会，请会的帮一下！！<br/></p>

weiguoyin868

给你个实例<br/> 8LHnoeCj.rar (8.71 KB, 下载次数: 373)

2008-6-9 17:37 上传

点击文件名下载附件
一个CEXEL VBA的高级应用范例

<br/>

wangtx218

<p>谢谢,怪我没说清楚</p><p>*.xls文件放在桌面,*.dbf放在D:\wangtx218\下,不知可以吗?</p><p>再次谢了!</p><p>&nbsp;</p>

wangtx218

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>weiguoyin868</i>在2008-6-9 17:38:11的发言：</b><br/>给你个实例<br/><br/>

weiguoyin868

<p>可能引用出的问题，看看我系统的引用<br/><br/><img src="attachments/dvbbs/2008-6/20086921185740180.jpg" border="0" onclick="zoom(this)" onload="if(this.width>document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" /><br/><br/><img src="attachments/dvbbs/2008-6/20086921192063476.jpg" border="0" onclick="zoom(this)" onload="if(this.width>document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" /></p><p>文件不在当前目录下也可以，直接写就是了。</p>

[此贴子已经被作者于2008-6-9 21:22:59编辑过]

wangtx218

<p>*.xls文件放在桌面,*.dbf放在D:\wangtx218\下</p><p>请你帮我写一个,先谢了!</p>

wangtx218

<p>我的丢失,不知为什么?[em06]</p><p><img src="attachments/dvbbs/2008-6/20086106162586563.jpg" border="0" onclick="zoom(this)" onload="if(this.width>document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" /><br/></p>