利用FOXPRO生成EXCEL的电子表格 ,最后如何另存为指定的EXCEL文件名
FOXPRO代码如下:
use 出门证.dbf &&根据实际工作需要,选择您所需的实表名。
eole=createobject(\"excel.application\")
eole.workbooks.add
eole.worksheets(\"sheet1\").activate
eole.visible=.t.
k=fcount() &&取得字段数
for a=1 to k
eole.cells(1,a).value=field(a) &&在(1,X)单元格中写入字段名称
endfor
I=reccount()&&取得记录个数
For j=1 to I
Go j
Wait \"正在写入完第\"+alltrim(str(j,5))+\"条记录\" window nowait
For x=1 to k
Zhi=field(x)
Eole.cells(j+1,x).value=&zhi
Endfor
Endfor
Wait \"记录写完\" window timeout 3