VFP实现EXCEL数据转换

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=CREA TEOBJECT('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.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行为水平对齐
.V erticalAlignment = 2
&&垂直居中
.NumberFormatLocal = "@"
&&设置3、4行为字符型内容
endwith
ef.Range("A3:A4").Select
ef.Selection.Merge
&&纵向合并第一列3、4行
ef.Range("A3").V alue='工号'
&&设置第一列标题内容
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").V alue='姓名'
&&设置第二列标题内容
ef.Columns("B").Select
&&整列选择
ef.Selection.HorizontalAlignment = 3
&&水平居中
ef.Range("C3:E3").Select
&&横向合并第三行C-E列
ef.Selection.Merge
ef.Range("C3").V alue='话务总量'
&&第三行大标题为“话务总量”的列
ef.Range("C4").V alue='电话呼入量'
&&“话务总量”下第1个小标题“电话呼入量”ef.Range("D4").V alue='电话呼出量'
&&“话务总量”下第2个小标题“电话呼出量”ef.Range("E4").V alue='合计'
&&“话务总量”下第3个小标题“合计”
ef.Range("F3:H3").Select
ef.Selection.Merge
ef.Range("F3").V alue='话务总时间'
ef.Range("F4").V alue='呼入时间'
ef.Range("G4").V alue='呼出时间'
ef.Range("H4").V alue='合计'
ef.Range("I3:K3").Select
ef.Selection.Merge
ef.Range("I3").V alue='单个话务平均时间'
ef.Range("I4").V alue='呼入时间'
ef.Range("J4").V alue='呼出时间'
ef.Range("K4").V alue='合计'
ef.Range("L3:L4").Select
ef.Selection.Merge
ef.Range("L3").V alue='累计工作时间'
ef.Range("M3:M4").Select
ef.Selection.Merge
ef.Range("M3").V alue='无效时间'
ef.Range("N3:N4").Select
ef.Selection.Merge
ef.Range("N3").V alue='录入量'
ef.Range("O3:O4").Select
ef.Selection.Merge
ef.Range("O3").V alue='有效时间比'
接下来通过scan语句，依次为每一行每一列单元格赋值。

为了获得更好的打印效果，还需进行页面设置，如标题行、页面居中、横向排版等，还可以加边框线。

以上程序在VFP 6+Excel 2000+Windows 2000下调试通过。

实际应用中可根据需要对各项参数设置进行相应调整。