VFP数据库与EXCEL数据传递解决方法案例

weiguoyin868

在人力资源工作中，会遇到其它文件与EXCEL传送数据的问题，我在负责保险的工作时，常用DBF文件，DBF文件存放数据比较齐全，会编写程序，但对于一些部门提出在EXCEL文件数据传递的要求，如：医疗保险部门的基数变更，常感到束手无策。于是，研究开发了一些实用小程序，有的是在VFP环境下的，也有在VBA环境下的，下面的程序是在VFP环境下写的，该程序完成把数据库中的数据传给EXCEL相关的单元格，关键字是身份证（社会保障号）和姓名字段。图片是文件的结构。下面给出代码。
close data
clear
lie1=1
lie11=2
lie2=4  &&替换数据列号
ef=CREATEOBJECT('Excel.application')
&&开始创建EXCEL对象
ef.Application.Caption="VFP向EXCEL传入数据"
ef.Workbooks.open("D:110232.xls")
ef.Worksheets("BatchInput").Activate

ef.visible=.t.    &&显示EXCEL界面
select 0
USE D:83500.DBF  &&打开数据库文件
scan   &&数据库记录开始循环
? recn()
for n=2 to 75 &&根据EXCEL数据行，来确定起始行数
    if TRIM(ef.CELLS(n,lie1).VALUE)=TRIM(社会保障号).and.TRIM(ef.CELLS(n,lie11).VALUE)=TRIM(姓名)
       ef.CELLS(n,lie2).VALUE=ygz07   
       next for
    endif
next
endscan
ef.ActiveWorkbook.save()
ef.quit
wait "运行完成" windows nowaitiejue

[ 本帖最后由 weiguoyin868 于 2010-10-7 20:54 编辑 ]

lpluobin

标记学习，谢谢楼主分享。