Question

利用FOXPRO生成EXCEL的电子表格 ，最后如何另存为指定的EXCEL文件名

利用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

Answer 1

直接用copy to命令

Answer 2

文件 ，导出，导出类型选excel5.0

Answer 3

eole.ActiveWorkbook.SaveAs("D:\123.xls")