神奇宝贝牙牙的图片:VFP数据如果输出为EXECL中打印,我现在一个小程序如那位高手帮我逐条逐函数的解释?

来源:百度文库 编辑:高校问答 时间:2024/04/28 05:50:34
小程序如下:SET DEFAULT TO d:\myvfp\kwsjk
Clear
oleApp = CREATEOBJECT(〃Excel.Application〃)
oleApp.Visible=.T. && 显示 Excel。
oleApp.Workbooks.Add
** 设置单元格的值(报表标题):
oleApp.Cells(1,1).Value=〃贵州大学计算机软件与理论研究所〃
oleApp.Cells(2,1).Value=〃学生成绩表〃
**
oleApp.Cells(4,1).Value=〃姓名〃
oleApp.Cells(4,2).Value=〃数学〃
oleApp.Cells(4,3).Value=〃网络〃
oleApp.Cells(4,4).Value=〃数据库〃
oleApp.Cells(4,5).Value=〃英语〃
oleApp.Cells(4,6).Value=〃人工智能〃
oleApp.Cells(4,7).Value=〃总分〃
** 打开数据表,取得该表的记录数
use table1.dbf
jl=RECCOUNT()-1
** 将数据表中的记录数据放入Excel工作簿的单元格中
FOR i=0 TO jl
go i+1 && 第i+1条记录
oleApp.Cells(5+i,1).Value=table1.姓名
oleApp.Cells(5+i,2).Value=table1.数学
oleApp.Cells(5+i,3).Value=table1.网络
oleApp.Cells(5+i,4).Value=table1.数据库
oleApp.Cells(5+i,5).Value=table1.英语
oleApp.Cells(5+i,6).Value=table1.人工智能
** 计算总分:
oleApp.Cells(5+i,7).Value=table1.数学+table1.网络+table1.数据库+table1.英语+table1.人工智能
ENDFOR
OleApp.ActiveWorkbook.SaveAs(〃D:\myvfp\kwsjk\temp.XLS〃)
请各位大侠帮帮我,我急需!!!我现在在这里谢谢大家。