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. |
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. |
All times are GMT +1. The time now is 12:11 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com