Alison Balteramp;#039;s Mastering Microsoft Office Access 1002003 [Electronic resources]

Closing an Excel Automation Object

After the user clicks the Close Excel command button, the CloseExcel subroutine is called, as shown in Listing 22.5. The subroutine first checks to see whether the gobjExcel object variable is still set. If it is, Excel is still running. The DisplayAlerts property of the Excel application object is set to False. This ensures that, when the Quit method is executed, Excel will not warn about any unsaved worksheets. This methodology is acceptable because all work was accomplished using a new instance of the Excel application object. If you want to save your work, you should execute the required code before the Quit method is executed.

Listing 22.5 The CloseExcel Subroutine

Sub CloseExcel() 'Invoke error handling On Error GoTo CloseExcel_Err 'If the Excel object variable is still set, 'turn of alerts and quit Excel If Not gobjExcel Is Nothing Then gobjExcel.DisplayAlerts = False gobjExcel.Quit End If CloseExcel_Exit: 'Destroy the Excel object variable Set gobjExcel = Nothing Exit Sub CloseExcel_Err: 'Display error message and resume at Exit routine MsgBox "Error # " & Err.Number & ": " & Err.Description Resume CloseExcel_Exit End Sub