从Access VBA退出excel会话而不保存

Question

我一直在寻找使用vba退出excel的解决方案并杀死它的进程，但我仍然找不到任何解决方案，这里讨论的方法是隐藏保存提示，但是如何退出excel应用程序（不仅是实例）没有保存，当然，停止执行？ 谢谢

Answer 1

此代码将隐藏提示并关闭而不保存

Sub CloseActiveBook()
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

或强迫它

Sub Auto_Close()
ThisWorkbook.Saved = True
End Sub

此示例关闭Book1.xls并丢弃对其进行的任何更改。

Sub saveWNoChanges ()
Workbooks("BOOK1.XLS").Close SaveChanges:=False
End Sub

Answer 2

有两种方法可以做到这一点。首先，将显示警报设置为false。其次，将保存状态设置为true。两者都是等价的，但如果多个工作簿打开，第二个将需要循环，因此建议使用第一个（并在下面包含）

Application.DisplayAlerts = False
Application.Quit

Answer 3

结合Mr.krib所说的，如果您将 ThisWorkbook 更改为 name_of_your_instance_Excel.ActiveWorkbook ，则ThisWorkbook.Saved = True正在运行 例如：

Set myxl = CreateObject("Excel.Application")
myxl.ActiveWorkbook.saved= True

P.S：它适用于多个工作簿！

谢谢@Krib