如何在PB中判断EXCEL的表格是否关闭？

[buptchenbin]

在PB中用OLEOBJECT打开了一个已经存在的EXCEL表
OLEOBJECT OO，BOOK，SHEET
oo= create oleobject
ret=oo.connecttonewobject("excel.application")
oo.workbooks.open("d:\test.xls")
book=oo.workbooks[1]
sheet=book.worksheets[1]
oo.visible=true
如果EXCEL的服务器没关但是表TEST.XLS用手工关了
book.close
会出错程序自动跳出
在程序中怎么判断TEST.XLS是否关了啊？

[minilin_11]

你可以用API函数FINDWINDOW来获得你打开的EXCEL窗口句柄，如果窗口关了，句柄也会失去，这样在BOOK.CLOSE时用API函数ISWINDOW判断句柄是否还存在，这样试试看吧：-）

[buptchenbin]

我的窗口没关啊

[hwee]

用API找Excel.EXE这个进程是否关闭了。

[xuebuctxy]

呵呵，楼主，又见面了
oleobject myexcel
myexcel=create oleobject
li_rtn=myexcel.connecttonewobject("excel.application")
myexcel.application.visible=true
myexcel.application.workbooks.open("d:\1.xls")
if li_rtn<>0 then
messagebox("错误","不能启动excel!")
return -1
end if

//检测
if not isvalid(myexcel) then
messagebox("","excel closed")
end if
//如果窗口没关闭好象不行，试试这样
呵呵，楼主，又见面了
oleobject myexcel
myexcel=create oleobject
li_rtn=myexcel.connecttonewobject("excel.application")
myexcel.application.visible=true
myexcel.application.workbooks.open("d:\1.xls")
if li_rtn<>0 then
messagebox("错误","不能启动excel!")
return -1
end if

//检测
if not isvalid(myexcel.application.activesheet) then
messagebox("","excel closed")
end if