PB制作导入excel文件

[amoypower]

下述代码正常情况下导入EXCEL报文没问题，
但是如果之前已经打开一个其他EXCEL文件，导入EXCEL报文时会认到已打开的EXCEL导致出错。请问该如何处理


OLEObject xl, xlApp, xlbook, xlsheet
xl = Create OLEObject
int ret = 0
ret = xl.ConnectToObject(docpath, "Excel.Sheet" ) //打开一个已存在的工作表
if ret < 0 then
messagebox("提示","不能打开所选的文件，可能是已被别人打开！")
destroy xl
return
end if

xlApp = xl.Application
xlbook = xlapp.Workbooks[1]
xlsheet = xlbook.Worksheets[1]