没有关闭整个Application.Quit的Application.Quit命令

Question

我在按钮下面有下面的代码。单击它时，它只是关闭当前的Excel工作表，而不是整个Excel应用程序。

Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
Application.Quit

注意：，我没有打开任何其他的床单。

下面的窗口仍然会出现。

​

​

Answer 1

我有这个问题，我通过加入Workbook_BeforeClose()解决了这个问题

ThisWorkbook.saved = true

Answer 2

我经历了同样的问题，并且能够用代码来解决这个问题，看看是否打开了多个工作簿.

Application.EnableEvents = False
Application.DisplayAlerts = False
If Application.Workbooks.Count = 1 Then  'Close Excel application
    ThisWorkbook.Save
    Application.Quit
Else                                     'Close the active workbook
    With ActiveWorkbook
        .Close Savechanges:=True
    End With
End If

Answer 3

从例程中删除Application.DisplayAlerts = True。

来自Application.Quit Method的帮助

如果使用此方法时打开未保存的工作簿，Microsoft将显示一个对话框，询问是否要保存更改。可以通过在使用退出方法之前保存所有工作簿，或者通过将DisplayAlerts属性设置为False来防止出现这种情况。当此属性为False时，Microsoft在未保存的工作簿退出时不会显示对话框；它退出而不保存它们。

这将避免任何(可能隐藏的)提示阻止excel完全关闭。