Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
close excel; leave access open
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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
close excel; leave access open
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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
quick access tool bar show/hide custom button on open/close workbo | Excel Programming | |||
how do I toggle between 2 open excel files and leave both open | Excel Discussion (Misc queries) | |||
How to close Access from Excel VBA | Excel Programming | |||
Open Access, Paste data to table, and close all from Excel Macro | Excel Programming | |||
very difficult code that will close original workbook and leave another open | Excel Programming |