Application.Quit Does not Close the Application

Application.Quit Does not Close the Application

Post by justin.arn » Fri, 19 Sep 2008 04:38:59


'm in the process of automating a workbook for an engineer at our
site. He has a macro written to run some calculations in Excel using
solver.xla and send these values to another server. As it stands now
the macro is accessed by a button on one of the worksheets in the
workbook. What I have been asked to do is setup a scheduled task that
runs every three hours. This task will open the workbook, launch the
macro that writes data to the other server, and then close the
workbook and quit Excel. I have setup the following code on the
Workbook_Open sub:

Private Sub Workbook_Open()

'Call Module5.Run_solver

Application.DisplayAlerts = False

ActiveWorkbook.Close

Application.Quit

End Sub

This code works as stated except that the application does not close.
Excel stays open but the workbook closes. I have tried to reverse the
order of the ActiveWorkbook.Close and Application.Quit but the result
is the same. Module5.Run_solver is the macro that was designed by the
engineer. Below is the code for the macro:

Sub Run_solver()
'
' Run_solver Macro
' Macro recorded 5/22/2008 by ****** *******
'
Application.Run "Solver.xla!Auto_Open"

SolverReset
'SolverOk SetCell:="$O$7", MaxMinVal:=3, ValueOf:="0",
ByChange:="$M$9"
SolverOptions Precision:=0.01, Convergence:=0.1
SolverOk SetCell:="$O$7", MaxMinVal:=3, ValueOf:="0", ByChange:="$M
$9"
SolverSolve True

SolverReset
'SolverOk SetCell:="$O$8", MaxMinVal:=3, ValueOf:="0",
ByChange:="$L$9"
SolverOptions Precision:=0.01, Convergence:=0.1
SolverOk SetCell:="$O$8", MaxMinVal:=3, ValueOf:="0", ByChange:="$L
$9"
SolverSolve True

SolverReset
'SolverOk SetCell:="$O$16", MaxMinVal:=3, ValueOf:="0",
ByChange:="$M$18"
SolverOptions Precision:=0.01, Convergence:=0.1
SolverOk SetCell:="$O$16", MaxMinVal:=3, ValueOf:="0",
ByChange:="$M$18"
SolverSolve True

SolverReset
'SolverOk SetCell:="$O$17", MaxMinVal:=3, ValueOf:="0",
ByChange:="$L$18"
SolverOptions Precision:=0.01, Convergence:=0.1
SolverOk SetCell:="$O$17", MaxMinVal:=3, ValueOf:="0",
ByChange:="$L$18"
SolverSolve True

macroResult = Application.Run("PIPutValx", _
Application.ActiveSheet.Range("M37").Text, _
Application.ActiveSheet.Range("S12"), _
Application.ActiveSheet.Range("H2").Value, , _
Application.ActiveSheet.Range("N37"))

macroResult = Application.Run("PIPutValx", _
Application.ActiveSheet.Range("M38").Text, _
Application.ActiveSheet.Range("R12"), _
Application.ActiveSheet.Range("H2").Value, , _
Application.ActiveSheet.Range("N38"))

macroResult = Application.Run("PIPutValx", _
Application.ActiveSheet.Range("M39").Text, _
Application.ActiveSheet.Range("L14"), _
Application.ActiveSheet.Range("H2").Value, , _
Application.ActiveSheet.Range("N39"))

macroResult = Application.Run("PIPutValx", _
Application.ActiveSheet.Range("M40").Text, _
Application.ActiveSheet.Range("L23"), _
Application.ActiveSheet.Range("H2").Value, , _
Application.ActiveSheet.Range("N40"))

macroResult = Application.Run("PIPutValx", _
Application.ActiveSheet.Range("M41").Text, _
Application.ActiveSheet.Range("M14"), _
Application.ActiveSheet.Range("H2").Value, , _
Application.ActiveSheet.Range("N41"))

macroResult = App
 
 
 

Application.Quit Does not Close the Application

Post by Unlhbk » Fri, 19 Sep 2008 06:00:04

t doesn't work because you are closing the workbook before it can get to
Application.Quit. You could try to deleting the ActiveWorkbook.Close line
and see if that helps you.

Hope this helps! If so, let me know or just click "Yes" below.
--
Cheers,
Ryan


" XXXX@XXXXX.COM " wrote:


 
 
 

Application.Quit Does not Close the Application

Post by Nige » Fri, 19 Sep 2008 15:22:29

ot need to close the workbook just quit Excel.

Private Sub Workbook_Open()

'Call Module5.Run_solver
Application.DisplayAlerts = False
Application.Quit

End Sub


--

Regards,
Nigel
XXXX@XXXXX.COM



< XXXX@XXXXX.COM > wrote in message
news: XXXX@XXXXX.COM ...

 
 
 

Application.Quit Does not Close the Application

Post by justin.arn » Fri, 19 Sep 2008 21:04:27

Thanks for the reply. I tried both suggestions and Excel still will
not close. If I don't use ActiveWorkbook.Close then the everything
stays open after the Macro is run. Does anyone have any other
reccomendations? Could it be that the solver.xla object needs to be
closed before Excel can be closed? Forgive me but I'm very new to VBA
and I'm still trying to learn it. Also, I have tried this in Excel
2000 and I receive the same results (Excel does not close). Any help
at all would be appreciated. I've spent hours trying to find a
resolution and I'm getting rather frustrated. Thanks

J A