紧急请教!excel相关问题!!请教十豆三等诸位高手指教!!谢谢
bao1=CREATEOBJECT( "Excel.application ")
bao1.Workbooks.Open( "d:\rs\bao.xls ")

local hang,ll
hang=36

for i = 1 to _dw
for j=1 to 47
ll=j+2

bao1.cells(hang,ll).value =tongji(i,j)
endfor
&&再36之前插入新行,且每次都向前减一行
bao1.ActiveSheet.Rows(hang).Insert

endfor

local resultname,lcFileName,lcFileName0
lcFileName0= ' '
lcFileName= ' '
resultname= ' '
resultname=PUTFILE( ' ', 'Excel表名 ', 'XLS ')&&用户自己输入

bao1.ActiveWorkbook.SaveAs(resultname)

Wait Wind '正在处理，请等待...... ' Nowait
IF !EMPTY(resultname)

return
=messagebox( "文件名为空!!不进行操作!! ",36, "提示!! ")

ELSE

bao1.ActiveWorkbook.SaveAs(resultname)

ENDIF


*关闭工作簿
*bao1.Workbooks.close

*退出Excel
bao1.quit

*bao1.ActiveWorkbook.close(.f.)

if type( 'bao1 ')== 'O ' &&大写字母O
RELEASE bao1
ENDIF

RELEASE bao1
=messagebox( "导出成功!! ",36, "提示!! ")
clear


以上代码的问题:
1.每次执行后都会出现 "不能将对象赋给数组 "的错误!
但是,必须在执行之前,在命令窗口输入:clear all
才能继续执行!

2.每次执行后,excel进程总也不能自动关闭!

请教十豆三等诸位高手指教!!谢谢


[解决办法]
哪一句有问题
[解决办法]
*关闭工作簿
*bao1.Workbooks.close

*退出Excel
bao1.quit

*bao1.ActiveWorkbook.close(.f.)

if type( 'bao1 ')== 'O ' &&大写字母O
RELEASE bao1
ENDIF


改为：


bao1.Workbooks.close
bao1.quit
RELEASE bao1

[解决办法]
bao1=CREATEOBJECT( "Excel.application ")
bao1.Workbooks.Open( "d:\test\test_a.xls ")
local hang,ll
hang=36
for i = 1 to _dw
for j=1 to 47
ll=j+2
bao1.cells(hang,ll).value =tongji(i,j)
endfor
&&再36之前插入新行,且每次都向前减一行
bao1.ActiveSheet.Rows(hang).Insert
endfor
local resultname,lcFileName,lcFileName0
lcFileName0= ' '
lcFileName= ' '
resultname= ' '
resultname=PUTFILE( ' ', 'Excel表名 ', 'XLS ')&&用户自己输入
IF EMPTY(resultname)
bao1.Workbooks.close
bao1.quit
RELEASE bao1
=messagebox( "文件名为空!!不进行操作!! ",48, "提示!! ")
return
ELSE
Wait Wind '正在处理，请等待...... ' Nowait
bao1.ActiveWorkbook.SaveAs(resultname)
=messagebox( "导出成功!! ",64, "提示!! ")
ENDIF
bao1.ActiveWorkbook.saved=.t. &&放弃保存
*bao1.ActiveWorkbook.save &&保存
bao1.Workbooks.close
bao1.quit
RELEASE bao1