在vfp中调用 excel 打印的问题？？==>> 在线等！！

[lanseerme]

** 请在 visual fox pro 6.0 环境下实现
** 本程序段实现，打开 EXCEL 对象，填上数，不保存然后关闭
** 关闭不了，实现非交互性关闭，完全不用用户干预，对用户是透明的
** 请先在以下目录下创建一个excel实例

private youpiao,ex
youpiao="e:\pluto\book1.xls"
* 创建一个对象
ex=createobject('excel.application')
* 打开一个对象
ex.workbooks.open (youpiao)
ex.application.visible=.t.

* 以下实现填数功能
ex.range("a1").value=111
ex.range("b5").value=555
ex.worksheets("sheet1").cells(9,9).value=9999
For I = 5 TO 33
ex.Worksheets("Sheet1").Cells(I, 3).VALUE = 1
ex.Worksheets("Sheet1").Cells(I, 8).VALUE = 1
ex.worksheets("sheet1").cells(2,i).value=2222
Next I
* 填写完毕
ex.workbooks.close
ex.quit
ex=null

[lanseerme]

** 请在 visual fox pro 6.0 环境下实现
** 本程序段实现，打开 EXCEL 对象，填上数，不保存然后关闭
** 关闭不了，实现非交互性关闭，完全不用用户干预，对用户是透明的
** 请先在以下目录下创建一个excel实例
private youpiao,ex
youpiao="e:\pluto\book1.xls"
* 创建一个对象
ex=createobject('excel.application')
* 打开一个对象
ex.workbooks.open (youpiao)
ex.application.visible=.t.

* 以下实现填数功能
ex.range("a1").value=111
ex.range("b5").value=555
ex.worksheets("sheet1").cells(9,9).value=9999
For I = 5 TO 33
ex.Worksheets("Sheet1").Cells(I, 3).VALUE = 1
ex.Worksheets("Sheet1").Cells(I, 8).VALUE = 1
ex.worksheets("sheet1").cells(2,i).value=2222
Next I
* 填写完毕
ex.workbooks.close
ex.quit
ex=null

[hfysw]

你在代码在我的机器上可以正常运行，不过我是安装了sp5的vfp6，你安装了吗？
如果不安装有很多奇怪的问题。