OFFICE学习资料 | OFFICE资源下载 | OFFICE知识问答      
设为首页
加入收藏
联系站长
  当前位置:Office学院 >> Office >> 编程相关 >> 正文
VFP中利用Excel制作数据库报表
[2006年10月26日]  点击数: 【字体: 】【双击滚屏
 
    笔者在工作中总结出了在VFP运行中利用Excel电子表格制作数据库报表的方法。编程中主要使用了CreateObject()函数,它可从类定义或支持OLE自动化的应用程序中创建对象,并将对象引用赋给变量或数组元素;若使用用户自定义类,则在创建对象之前,用户自定义类必须先用Define Class 来创建,或者用 SET Classlib 打开的 .VCX 可视类库中的类。
  假定在一个VFP项目中有数据表:table1.dbf(其中总分暂为0):
  我们希望在VFP的这个项目运行时,调用Excel来处理这个数据表,并将处理结果存盘。下面的程序excel01.prg实现了这些要求,程序中用CreateObject()函数启动Excel,并新建一个Excel工作簿,然后打开数据表table1.dbf,取得该表的记录数,并将表table1.dbf的记录数据逐条送到这个工作簿的工作表Sheet1中(同时计算各记录的总分),稍加修改(例如设置字体、字号,画表格线等)作出这个数据表的报表,并用temp.xls文件名存盘。Excel01.prg源程序如下:
  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″)

我要提问
上一篇:VFP调用Excel的方法
下一篇:VFP中Excel格式的输入方法
最新文章
在Word中使用AutoCAD图形10/27
VFP+Excel+SQLServer实例讲解10/26
谈Excel对象在VB中的使用10/26
Excel、Access、VB的结合应用10/26
在Delphi中操作Excel10/26
如何用VFP控制EXCEL表格10/26
使用VB实现Excel自动获取外部数据10/26
VFP中Excel格式的输入方法10/26
热门文章
相关文章
给你ACCESS数据库文件减肥
VB两种操作Access数据库方法的比
ACCESS:跨数据库查询的SQL语句
关于ACCESS数据库安全的几个问题
如何在Word中高效选择录入表格
在Word中也可以对段落进行排序
Word表格也可自动填充
Excel中三表“嵌套”成一表
office知识问答 | office资源下载
备案许可证号: 津ICP备06003561号
版权所有:Office学院 www.officeXY.com
OFFICE学院致力于成就华人社区最受欢迎的office办公软件学习园地;为大家提供word、excel、access、FrontPage、PowerPoint等Office各个系列产品的最全的教程、用法、技巧、方案;并竭力打造最方便的问题解答系统