Question

请帮修改VBA代码,如何关闭Excel?

请各位高手帮忙修改一下我的VBA代码。
Sub 完成工作()
ActiveWorkbook.Save
ThisWorkbook.Close
End Sub
以上代码执行后，怎么没有实现像“用鼠标点击Excel的“文件”-“退出”后的效果呢？”请高手指点迷津。
而且不用提示直接保存并退出。

Answer 1

这是因为你的代码中，只是关闭了一个Excel文件。

事实上，应该关闭整个Excel软件。

VBA代码可以修改为：

Sub 完成工作()    
    ActiveWorkbook.Save    
    ThisWorkbook.Application.Quit
    '或者Application.Quit
End Sub

即可。

Answer 2

要用对象方法才行。
双击工程资源管理器中左边的Thisworkbook一栏，在VBA代码窗口上方有两个下拉框，左边一个下拉窗中选择workbook,右边一个下拉框中选择beforclose，输入代码即可。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
activeWorkbook.Save
End Sub

Answer 3

这样会关闭所有打开的工作簿。
Sub 完成工作()
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
End Sub

Answer 4

Sub 完成工作()
ActiveWorkbook.Save
ThisWorkbook.Application.Quit
End Sub

Answer 5

Sub 完成工作()
quit
End Sub