Re: How to quit application properly

["Jim ." <Escojpoer@AOL.COM>]

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