Prev: Automatically OPENing (GetObject) and Closing EXCEL via VB calls
Next: How To Assigned "SelectionChange" Event To different Worksheets
From: Domenick on 27 May 2010 17:41
Here is the end part of my code (lots of other stuff done first) where I want
to open a database in Access (so that the user can take further action) and
then close out excel:

Set mdapp = CreateObject("access.application")
With mdapp
..Visible = True
..OpenCurrentDatabase ("S:\Financial Analysis\Labor Report.mdb")
End With
Windows("labor report.xls").Activate
ActiveWorkbook.Save
ActiveWorkbook.Close
Excel.Application.Quit

However, this closes out the MS Application as well as the Excel
Application. Note: This only started happening when I switched to Excel 2007
from 2003 (in 2003, excel would close but access would stay open). Anyone
know what could have changed? How should I re-write to get the desired result?

Thanks.
From: Barb Reinhardt on 27 May 2010 18:25
I'm not sure I'd put it here, but here's some code to try

Dim xlApp as excel.application
ActiveWorkbook.Save
Set xlApp = Application
ActiveWorkbook.Close

'i suspect you're running this code in excel.
'When you do this, execution of your excel code ends
xlApp.Quit

If you run the code out of another application, it should quit excel and
keep the other application open.
--
HTH,

Barb Reinhardt



"Domenick" wrote:

> Here is the end part of my code (lots of other stuff done first) where I want
> to open a database in Access (so that the user can take further action) and
> then close out excel:
>
> Set mdapp = CreateObject("access.application")
> With mdapp
> .Visible = True
> .OpenCurrentDatabase ("S:\Financial Analysis\Labor Report.mdb")
> End With
> Windows("labor report.xls").Activate
> ActiveWorkbook.Save
> ActiveWorkbook.Close
> Excel.Application.Quit
>
> However, this closes out the MS Application as well as the Excel
> Application. Note: This only started happening when I switched to Excel 2007
> from 2003 (in 2003, excel would close but access would stay open). Anyone
> know what could have changed? How should I re-write to get the desired result?
>
> Thanks.
 | 
Pages: 1
Prev: Automatically OPENing (GetObject) and Closing EXCEL via VB calls
Next: How To Assigned "SelectionChange" Event To different Worksheets