PB制作导入excel文件
下述代码正常情况下导入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]