VBA：如何在崩溃后closuresExcel.Application

我的Wordmacros使用此代码来打开并访问Excel工作簿：

Dim objExcel As New Excel.Application Dim exWb As Excel.Workbook Set exWb = objExcel.Workbooks.Open("C:\Folder\Filename.xls") ' Main procedure exWb.Close Set exWb = Nothing objExcel.Quit Set objExcel = Nothing 

由于我仍在debugging，所以macros在到达“closures”和“退出”命令之前经常停止，并在后台打开Excel实例和工作簿。

我有时可以通过打开任务pipe理器并结束任务来closures它们，但是我怀疑这是最好的解决scheme。 是否有一个macros，我可以在Word中写入，closures所有打开的工作簿，并退出Excel的所有（背景）实例？

Answer 1

以下是处理这种exception情况的传统方式：

 Sub MySub() Dim objExcel As Excel.Application, exWb As Excel.Workbook On Error GoTo Cleanup Set objExcel = New Excel.Application Set exWb = objExcel.Workbooks.Open("C:\Folder\Filename.xls") ' Main procedure Cleanup: If Err.number <> 0 Then MsgBox "Error " & Err.number & ": " & Err.Description If Not exWb Is Nothing Then exWb.Close False If Not objExcel Is Nothing Then objExcel.Quit End Sub