Re: How to quit application properly

["Suhajda, Matthew [PCS]" <msuhaj01@SPRINTSPECTRUM.COM>]

As long as you have the workbook name, activate it before trying the
close routine? I've made the mistake of thinking Excel was going to
activate the last open sheet before and it doesn't. Perhaps posting your
Transfer routine would give a clearer understanding?

-----Original Message-----
From: Jim . [mailto:Escojpoer@AOL.COM] 
Sent: Monday, July 28, 2003 1:46 PM
To: EXCEL-G@PEACH.EASE.LSOFT.COM
Subject: Re: How to quit application properly

I am not having trouble saving or closing the ITEHH.XLS wb. It is the
CAT3D
wb from which the Application.Run is being initiated that I cannot
close.
  Thank you,
 Jim

In a message dated 7/28/2003 4:40:52 PM Eastern Daylight Time,
msuhaj01@SPRINTSPECTRUM.COM writes:

> Couple suggestions if I may..
>
> Perhaps putting the name of the path into a variable? This way your
code
> is a bit shorter.
>
> With the problem you are having, I'm fairly sure that if you put in
the
> code below it should. (untested)
>
> Application.Run ("ITEHH.XLS!Transfer")
> Windows("ITEHH.xls ").Activate
> ActiveWorkbook.Close Savechanges:=True
> Application.Quit
>
>
> -----Original Message-----
> From: Jim . [mailto:Escojpoer@AOL.COM]
> Sent: Monday, July 28, 2003 1:33 PM
> To: EXCEL-G@PEACH.EASE.LSOFT.COM
> Subject: How to quit application properly
>
> Hi-
>     I am trying to open a wb and run a mac in that workbook, save it
> with
> a filename, open the next wb, run the mac, save it with a new name,
then
> go
> back and close the original, but the original will not close. It has
> already
> been saved with the new filename, but it and the app still remain
open.
> Actually
> I have 3 wbs to open and run macs and rename, but I am just working
with
> these
> two right now. Need help. At the end of this code I open ITEHH.xls and
> run
> mac called Transfer. It runs and saves the file with a new name and
> closes the
> workbook, then the wb CAT3D62003(which has already been saved once by
> this mac)
> just stays open. How do I close it at the end of this code?? Thankx
>    Jim
>
> **Upper code here***running in wb called CAT3D to be saved as
CAT3D62003
> by
> the following code
>
> ChDir "C:\Documents and Settings\JIM \My Documents\BackUp\ITEREBATES"
>   ActiveWorkbook.SaveAs Filename:= _
>     "C:\Documents and Settings\JIM \My
> Documents\BackUp\ITEREBATES\CAT3D"
> &Month(Now()) - 1 &Year(Now()) & ".xls", FileFormat:=xlNormal _
>     , Password:="", WriteResPassword:="",
> ReadOnlyRecommended:=False, _
>     CreateBackup:=False
>   ChDir "C:\Documents and Settings\JIM \My
> Documents\Backup\ITEREBATES"
>   Workbooks.Open Filename:= _
>     "C:\Documents and Settings\JIM \My
> Documents\Backup\ITEREBATES\ITEHH.xls"
>     Application.Run ("ITEHH.XLS!Transfer")
>     ActiveWorkbook.Close Savechanges:=True'<<here is where it does
> not
> work
>     Application.Quit
> Application.ScreenUpdating = True
> End Sub
>


------------------------------------------------------------------------
--
The EXCEL-G list is hosted on a Windows NT(TM) machine running L-Soft
international's LISTSERV(R) software.  For subscription/signoff info
and archives, see http://peach.ease.lsoft.com/archives/excel-g.html .
                             COPYRIGHT INFO:
http://peach.ease.lsoft.com/scripts/wa.exe?SHOWTPL=COPYRIGHT&L=EXCEL-G

--------------------------------------------------------------------------
The EXCEL-G list is hosted on a Windows NT(TM) machine running L-Soft
international's LISTSERV(R) software.  For subscription/signoff info
and archives, see http://peach.ease.lsoft.com/archives/excel-g.html .
                             COPYRIGHT INFO:
http://peach.ease.lsoft.com/scripts/wa.exe?SHOWTPL=COPYRIGHT&L=EXCEL-G