VFP中利用Excel制作数据库报表

VFP中利用Excel制作数据库报表 考研屋 www.kaoyanwu.com 提供各大机构考研、公务员、四六级辅导视频课程 编程中主要使用了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( 考研屋www.kaoyanwu.com :提供各大机构考研、公务员、四六级辅导视频课程 专业提供提供各大机构考研、公务员、四六级辅导视频课