pb倒excel表时），连续执行两次Workbooks.Open时出错！，如何判断是否已经打开了指定的excel文件（XLS文件

[ranliang]

我用下面程序实现倒入

long numcols , numrows , c, r
OLEObject xlapp , xlsub
int ret
numcols = long(dw_1.Object.DataWindow.Column.Count)
numrows = dw_1.RowCount()

xlApp = Create OLEObject
ret = xlApp.ConnectToNewObject( "Excel.Sheet" )
if ret < 0 then
MessageBox("Connect to Excel Failed !",string(ret))
return
end if
xlApp.Application.Workbooks.Open("C:\表1.XLS") //,false,true
xlApp.Application.Visible = true

xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1]
..................

倒入第一次的时候没有问题，
如果用户连续按两次倒入，那么excel会提示说，
“表1.XLS已经打开，重新执行操作会造成前面所做的更改丢失，是否重新打开？”
如果选择否是，pb程序就要报open语句出错，

大家帮忙呀，怎么解决呀

[juwuyi]

退出的时候写上
xlApp.DisconnectObject()

[ranliang]

退出的时候已经写上了

xlApp.DisConnectObject()
Destroy xlapp

应该不是这里的问题把

[juwuyi]

退出的时候写上
xlApp.DisconnectObject()

[zhouweiwansui]

估计是你没有关闭吧

[zc1966]

退出的时候写上
xlApp.Application.Workbooks.Open("C:\表1.XLS")

[zc1966]

纠正一下：
退出的时候写上
xlApp.Application.Workbooks.close("C:\表1.XLS")

[FeelingL]

告诉你一个好方法
用DW.SaveAsAscii()函数

[giraffe]

xlApp.Application.Workbooks.Open("C:\表1.XLS")
用
xlApp.Application.Workbooks.Open("C:\表1.XLT")

[欣萱好米]

在你的程序結束的地方寫上
myexcel.application.workbooks(1).save()
myexcel.worksheets(1).PrintPreview
myexcel.application.quit // 預覽完了以後﹐退出應用程序
myexcel.DisconnectObject()
destroy myexcel //消出內存中的oleobject變量

[zc1966]

xlApp.Application.Workbooks.close()
xlApp.DisconnectObject()
Destroy xlapp

[workhand]

第一次导入成功后断开：
xlApp.Application.Workbooks.close()
xlApp.DisconnectObject()
Destroy xlapp
再导的时候再连。