神奇宝贝牙牙的图片: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〃)
请各位大侠帮帮我,我急需!!!我现在在这里谢谢大家。
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〃)
请各位大侠帮帮我,我急需!!!我现在在这里谢谢大家。
VFP数据如果输出为EXECL中打印,我现在一个小程序如那位高手帮我逐条逐函数的解释?
VFP数据如果输出为EXECL中打印,我现在一个小程序如那位高手帮我逐条逐函数的解释?
vfp中如何把一个表单上刚填充的各种数据以固定的位置,输出到打印机打印?
在线请教:ASP网页上查询的数据如何输出到EXECL中?
ASP网页上查询的数据如何输出到EXECL中?
从Execl中打印为PDF文件,感觉Excel表格的框框线很粗,如何改细啊
在VFP中怎么打印?
有execl两张工作表,如果表1里的数据在表2中也出现,
VFP如何查找出一组数(如:工资)中所有个位数不为0的数据
在EXECL表中如何实现把1列的数据由元的单位一次性变为万元为单位的数据