vb中怎样控制和excel交互操作?

Question

在vb中创建了一个excel对象,和workbook对象
Set XLS = CreateObject("Excel.Application")
Set ebook = XLS.Workbooks.Add
XLS.Visible = True
如果excel那边进行关闭操作,在vb中怎样检测这个excel已经关闭,有可能打开多个excel文件,怎样在多个excel文件中检测到这个excel已经关闭了.

Answer 1

可以试试Excel里的VBA
在关闭前有beforeclose事件

Answer 2

如下：
Private objExcel As Excel.Application
'可以响应WorkBook的事件
Private WithEvents objWorkBook As Excel.Workbook
Private Sub Command1_Click()
    Set objExcel = New Excel.Application
    Set objWorkBook = objExcel.Workbooks.Add
    objExcel.Visible = True
End Sub'响应事件，如果不想被关闭，设置Cancel为False
Private Sub objWorkBook_BeforeClose(Cancel As Boolean)
    MsgBox "Excel Closed!"
End Sub
访问 http://maweifeng.cnblogs.com 获取VBA，Office开发信息

Answer 3

也可以对workbooks集合进行循环判断
bClosed=true
for tmpWb in workbooks
if tmpwb.name="book" then
    bClosed=false
    exit for
end if
next