Question about closing excel.

[Rellivisit]

What vb-code can I put in my macro formula to close the program excel? I use this code to close the document without saving:

Application.DisplayAlerts = False
ActiveWorkbook.Close

This code only closes te document and not the whole excel program. What code can I use for that?

Thanks for replies!

Greetz Relli.

[darre1]

Application.Quit

[Rellivisit]

It doesn't seem to work. Excel remains open.

[darre1]

works for me.

can you paste your code?

[Si_the_geek]

try:

Application.Quit false

this will close any open documents (including hidden ones) without saving them, I got that problem before when I had a hidden document open - it tried to ask to save it, but with displayalerts set to false it doesn't show the message

[Rellivisit]

Sub Sluiten()
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.Quit False


End Sub

[Supester]

Do you have any references to a range object still open....I know there should be a lot of examples dealing with the exact same problem.....

[darre1]

that's a good point make sure any references, objects etc are destroyed first, i'm not sure what effect they have on VBA for Excel...

[Rellivisit]

I feel there should be a code to close excel. Just simply close, no further problems. But what the code is? Tell me......

[Si_the_geek]

Try this:

ActiveWorkbook.Close False
Application.Quit False


also, when testing it try it without "Application.DisplayAlerts = False", it should then hopefully tell you why it isn't closing

[Rellivisit]

How should I write the code? Like this?

Sub Sluiten()
'

ActiveWorkbook.Close False
Application.Quit False


'
End Sub

I am still a VB rookie.

[Si_the_geek]

yep, that's the way

[Rellivisit]

Doesn't work VB doesn't like the .quit text in the code.

[djengiz]

Option Explicit

Public Sub fExcel()

'excel ****
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim objChart As Excel.Chart
Dim objRng As Range

Set objRng = Nothing
Set objChart = Nothing

exit_Handler:
'Free up memory, otherwise there will be a memory leak.
Set objWorksheet = Nothing
objWorkbook.Close False
Set objWorkbook = Nothing
objExcel.Quit
Set objExcel = Nothing

Exit Function
err_handler:
MsgBox Err.Description, vbInformation
Err.Number = 0
Resume exit_Handler
End Function

[Rellivisit]

Jihah, een mede dutchy.

Hij geeft een foutmelding:

Compileerfout:

Exit Function is niet toegestaan in Sub of Property

Ik wil dus gewoon excel afsluiten met een macro functie. In een excel-sheet dus een knop met afsluiten in plaats van op het kruisje rechtsboven te drukken.

Help? Alvast bedankt.

[darre1]

english???

please

[Rellivisit]

Originally posted by darre1
english???

please

Sorry

He gave me the function as mentioned above, but it doesn't seem to work. The following error appeared:

Exit function is not allowed in sub or property.

[djengiz]

Hoi! Probeer dit eens
Option Explicit

Public Sub fExcel()

'excel ****
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim objChart As Excel.Chart
Dim objRng As Range

Set objRng = Nothing
Set objChart = Nothing

exit_Handler:
'Free up memory, otherwise there will be a memory leak.
Set objWorksheet = Nothing
objWorkbook.Close False
Set objWorkbook = Nothing
objExcel.Quit
Set objExcel = Nothing

Exit Sub
err_handler:
MsgBox Err.Description, vbInformation
Err.Number = 0
Resume exit_Handler
End Sub

[djengiz]

Ik had een funktie geschreven, maar daar het jij nu even niets aan. Je kan het ook als een sub gebruiken. ff koppie-peesten

[Rellivisit]

Ik heb hem nu zo staan. Hij geeft echter weer een fout:

objectvariabele of blokvariabele With is niet opgesteld


Public Sub fExcel()

'excel ****
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim objChart As Excel.Chart
Dim objRng As Range

Set objRng = Nothing
Set objChart = Nothing

exit_Handler:
'Free up memory, otherwise there will be a memory leak.
Set objWorksheet = Nothing
objWorkbook.Close False
Set objWorkbook = Nothing
objExcel.Quit
Set objExcel = Nothing

Exit Sub
err_handler:
MsgBox Err.Description, vbInformation
Err.Number = 0
Resume exit_Handler
End Sub

[djengiz]

Hoi, ben ik weer. Ik zie dat je macros maakt. post je code maar ff en dan kijk ik wel. Probeer in het vervolg alleen maar engelse versies van microsoft te gebruiken, want je komt geheid in de problemen.