标题利用VFP制作财务报表——谈VFP与Excel的交互操作

　　在VFP中制作财务报表(或者是其他报表)，通常的方法是利用VFP的报表生成器一步一步地生成，这种方法用起来很麻烦，而且打印出来的报表格式也不能尽如人意。提到制作报表，你可能够马上想到大名鼎鼎的Excel，我们能不能将二者结合起来——利用VFP的数据处理的结果，再使用Excel排版并且打印输出，而且还要让二者结合得天衣无缝呢？答案是肯定的，利用OLE技术，你能够很容易地实现上述想法。
　　大家对VFP的CreateObject函数可能不会陌生，利用CreateObject函数，你能够在VFP中创建并使用任何在你计算机上注册了的类(通常在安装应用程序时，应用程序都会向注册表里添加类信息)。也就是说你能够在VFP中调用任何应用程序为你的数据处理服务。CreateObject的具体用法如下：
　　CREATEOBJECT(ClassName[eParameter1，eParameter2，...])
　　其中，ClassName指明欲建立对象的类名。eParameter1，eParameter2……是用来传递参数给OLE对象的(OLE对象进行初始化时要用要到的)。例如，在VFP中欲建立一Excel工作簿对象，只须在程序中加入下列语句：MySheet=CREATEOBJECT('Excel.Sheet')就行了。
　　要在VFP中灵活地调用Excel为你服务，首先你应该对Excel提供的各类对象进行深入了解。Excel为我们提供了一百多种对象，如应用程序对象、图表对象、工作簿对象等等。对于每种对象调用，你得遵循一定的规则(也就是说你必须熟悉VBA编程)。接下来介绍Excel常见对象的调用方法。
　　一、创建Excel对象类
　　1.建立Excel对象MyExcel=CREATEOBJECT('Excel.application')
　　2.建立工作簿对象MyExcel.workbooks.Add
　　二、文件操作类
　　1.引用Excel文件Getobject("Excel文件名")
　　2.打开文件workbook.open("文件名")
　　3.保存文件workbook.SaveAs("文件名")
　　4.打印文件workbook.Printout("文件名")
　　注意，上面的workbook为当前活动的工作簿。
　　实例：假设到了月底，你用计算机对当月的账务资料整理后，得出了当月的损益表，底稿如下(名称为syb.dbf)。
　　项 目　　本月数 本年累计数
　　产品销售收入　 98765.4
　　产品销售成本　 73244.3
　　产品销售费用　 1878.00
　　产品销售税金及附加355
　　产品销售利润　 ---
　　其他业务利润
　　管理费用　　 678
　　财务费用　　 333
　　营业利润　　 ---
　　投资收益
　　营业外收入　　1000
　　营业外支出
　　利润总额　　 ---
　　由于Excel中自带了损益表模板，因此我们能够很方便地在Excel中创建损益表。在VFP中建立一程序syb.prg，其内容如下(为节约篇幅，程序中略去了输入本年累计数的语句)。
　　close all
　　use syb
　　go top
　　*新建一Excel对象
　　oleapp=Createobject("Excel.Application")
　　*让Excel对象可见，如果设为F(不可见)，你能够让VFP后台运行Excel，借此可以保持界的一致性。
　　oleapp.visible=.t.
　　*添加工作簿
　　oleapp.workbooks.add
　　*打开Excel自带的财务报表模板
　　oleapp.workbooks.open("C:\Program Files\Microsoft Office\Templates\电子表格模板\工业企业财务报表.xlt")
　　*激活损益表
　　oleapp.sheets("损益表").select
　　*追加数据
　　i=1
　　do while i<=13
　　if i#5 and i#9 and i#13
　　oleapp.cells(i+6，4).value=本月数
　　endi
　　i=i+1
　　skip
　　endd
　　应该注意的是，在Excel自带的损益表模板中，有些单元格是自动计算的，如产品销售利润、营业利润、利润总额，你不能够去修改的。这也是在上面程序中加入“if i#5 and i#9 and i#13”语句的原因。另外，你事先应该根据你的实际情况对损益表模板进行修改，比如设置纸张大小、字体等等。当然你也可以在运行时进行设置(加入oleapp.activeworkbook.printpreview)语句。
　　上面只是简单地介绍了在VFP中生成损益表的方法。要想更好地将VFP和Excel结合，你可以在Excel中尝试“录制宏”的功能，因为你在Excel中的任何操作都能够被录制成“宏”。“宏”能够以VBA语句的形式重现你刚才的你操作。举一反三，这下利用VFP做出精美的财务状况变动表、利润分配表、主营业务收支明细表，再也不是难事了。