Application Quit Vba Excel не закрывает приложение

Application.Quit command not closing the entire Excel Application

I have following code under a button. When clicked it just closes the current Excel sheet but not the entire Excel application.

Note: I don’t have any other sheets open.

The following window still appears.

Mk5ez

3jvVV

12 Answers 12

I had this issue and I resolved it by putting in the Workbook_BeforeClose() :

QdTGq

remove the Application.DisplayAlerts = True from the routine.

from the help for Application.Quit Method :

If unsaved workbooks are open when you use this method, Microsoft Excel displays a dialog box asking whether you want to save the changes. You can prevent this by saving all workbooks before using the Quit method or by setting the DisplayAlerts property to False. When this property is False, Microsoft Excel doesn’t display the dialog box when you quit with unsaved workbooks; it quits without saving them.

This will avoid any (possibly hidden) prompts from stopping excel from closing completely

H8yZu

The window does not close because you are using personal.xlsb. Cut Personal.xlsb and paste in another location.

Instead of Personal.xlsb create and work on modules. It’s a better option.

«ThisWorkbook.Saved = True» after «Application.Quit» works on Excel 2016

I did not try it, but maybe this will help:

According to Norie you might not have anymore workbooks open, therefore Application.Quit will never be executed.

AlphaFrog therefore suggests this:

I had the same issue using the following code closed excel cleanly:

This will allow excel to cleanly close without keeping a «ghost» window open.

This worked for me: (Office 365)

When Application.Quit is encountered in a subroutine, it will only stay in memory and continue to run lines under it and will actually quit until it encounters a «Exit Sub». When the normal «End Sub» at the primary level is encountered, it will then also close Excel. But say if the workbook is somehow closed before reaching the «Exit Sub», «End» or «End Sub» line, then Excel will not close.

Solution is to create a Public variable called ToQuitNow with initial False value and change it to True where you want Excel to quit. and test right after to see if it is true, then return to previous Sub level by «Exit Sub» or «End» to quit right away, and do the same at every subrountine level where it is expected to return from the deeper subroutine. When it gets back to the primary level, then a final «Exit Sub» will actually terminates Excel. If you do not want Excel to ask for saving changes made, add line «ThisWorkbook.Saved = True» right after Application.Quit, or before the final «Exit Sub» at the Primary level and Excel will quit without saving.

Try the following test below, just run «Test»

This is a strange one, hopefully someone will find this answer useful. I ran into something very similar using Excel 2010 (14.0). I stumbled to my answer through experimentation. This is bad answer for general purpose.

For whatever reason Application.Quit fails silently if the option AccessVBOM is not enabled. It is not enabled out of the box and can be set/unset by your network admin by windows policy.

Since we all love code, in this example we are running Excel from C# interop and calling the quit function.

Источник

Application quit vba excel не закрывает приложение

Эксель не закрывается с кодом Application.Quit

Sobirjon

Дата: Понедельник, 09.03.2020, 14:56 | Сообщение № 1

Много чего не знаю.

Sobirjon

Дата: Вторник, 10.03.2020, 04:09 | Сообщение № 3

K-SerJC

Дата: Вторник, 10.03.2020, 09:27 | Сообщение № 4

Option Explicit
Public trt As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If trt Then Exit Sub
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
Application.DisplayFormulaBar = True
trt = True
If Workbooks.Count = 1 Then
ThisWorkbook.Saved = True
Application.Quit
ThisWorkbook.Close False
Else
If Workbooks.Count = 2 Then
If Workbooks(1).Name = «PERSONAL.XLSB» Or Workbooks(2).Name = «PERSONAL.XLSB» Then
Workbooks(«PERSONAL.XLSB»).Close False
ThisWorkbook.Saved = True
Application.Quit
trt = False
End If
Else
ThisWorkbook.Close False
End If
End If
End Sub

Option Explicit
Public trt As Boolean

Sobirjon

Дата: Вторник, 10.03.2020, 14:21 | Сообщение № 5

[/vba]завершает макрос, но приложение остается по прежнему.

Протестировал вот так:
[vba]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.DisplayFullScreen = False
.DisplayFormulaBar = True
.DisplayAlerts = False
End With

‘ ActiveWorkbook.Close True
‘ Application.Quit
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
Cancel = True
End Sub