VFP实现EXCEL数据转换.docVIP

Visual FoxPro是应用广泛的前台数据库开发平台之一，因此在我们日常工作中时常会遇到DBF数据文件。然而随着办公自动化的普及，越来越多的时候需要将DBF文件转化为Excel电子文档。常用转化方法是在FoxPro中用Copy命令进行格式转化或直接用Excel打开DBF文件。这两种方式虽然都能达到目的，却不能得到格式规范、可以直接打印输出的报表，且输出的Excel文件中，无法对数据类型进行有效转换，极易出现数据统计错误。有没有更好的方法呢？这里有一个更加通用的方法，在VFP中调用Excel，可以由DBF文件直接生成格式如下图所示一样复杂的Excel报表(如图1)。 　　具体过程如下： 　　假设我们要将表Agcallop.dbf文件输出为Excel格式文档，报表形如图1所示。为使通用性更强，页面采用A4纸横向输出，默认字体为宋体10号，页脚处添加页号。 　　部分程序代码如下： 　　m.outfilename=putfile(输出结果,agcallop,xls) 　　取导出文件名称 　　图1 Excel报表 　　ef=CREATEOBJECT(Excel.application) 　　调用Excel程序 　　ef.Workbooks.add 　　添加工作簿 　　ef.Worksheets(sheet1).Activate 　　激活第一个工作表 　　ef.visible=.t. 　　显示Excel界面 　　ef.Cells.Select 　　选择整张表 　　ef.Selection.Font.Size = 10 　　设置整表默认字体大小为10 　　select 0 　　use agcallop 　　选择被导出的表 　　num=reccount() 　　求导出总记录数 　　go top 　　i=5 　　ef.range(F1:K1).Select 　　选择标题栏所在单元格 　　ef.Selection.Merge 　　合并单元格 　　with ef.range(F1 ) 　　设置标题及字体属性 　　　.value=客户服务部业务代表工作量情况统计表 　　　.Font.Name=黑体 　　　.Font.size=18 　　endwith 　　ef.Rows(2).RowHeight=1/0.035 　　设置第二行高度为1cm 　　ef.range(H2:O2).Select 　　选定统计条件栏所在单元格 　　ef.Selection.Merge 　　合并单元格 　　ef.range(H2).Font.size=10 　　ef.range(H2).HorizontalAlignment=4 　　设置内容对齐方式为右对齐,3为居中，2为右对齐 　　ef.range(H2).value=统计时间：+dtoc(date())+打印日期：+dtoc(date()) 　　ef.Rows(3:4).Select 　　with ef.Selection 　　　.HorizontalAlignment = 3 　　设置3、4行为水平对齐 　　　.VerticalAlignment = 2 　　垂直居中 　　　.NumberFormatLocal = @ 　　设置3、4行为字符型内容 　　endwith 　　ef.Range(A3:A4).Select 　　ef.Selection.Merge 　　纵向合并第一列3、4行 　　ef.Range(A3).Value=工号 　　设置第一列标题内容 　　ef.Columns(A).Select 　　整列选择 　　ef.Selection.HorizontalAlignment = 3 　　水平居中 　　ef.Columns(A:B).Select 　　ef.Selection.NumberFormatLocal = @ 　　设置A、B列为字符型内容 　　ef.Range(B3:B4).Select 　　ef.Selection.Merge 　　纵向合并第二列3、4行 　　ef.Range(B3).Value=姓名 　　设置第二列标题内容 　　ef.Columns(B).Select 　　整列选择 　　ef.Selection.HorizontalAlignment = 3 　　水平居中 　　ef.Range(C3:E3).Select 　　横向合并第三行C-E列 　　ef.Selection.Merge 　　ef.Range(C3).Value=话务总量 　　第三行大标题为“话务总量”的列 　　ef.Range(C4).Value=电话呼入量 　　“话务总量”下第1个小标题“电话呼入量” 　　ef.Range(D4).Value=电话呼出量 　　“话务总量”