请帮修改VBA代码,如何关闭Excel?
请各位高手帮忙修改一下我的VBA代码。
Sub 完成工作()
ActiveWorkbook.Save
ThisWorkbook.Close
End Sub
以上代码执行后，怎么没有实现像“用鼠标点击Excel的“文件”-“退出”后的效果呢？”请高手指点迷津。
而且不用提示直接保存并退出。
这是因为你的代码中，只是关闭了一个Excel文件。
事实上，应该关闭整个Excel软件。
VBA代码可以修改为：
ActiveWorkbook.Save
ThisWorkbook.Application.Quit
'或者Application.Quit
End Sub
即可。
温馨提示：内容为网友见解，仅供参考
第1个回答 2010-01-23
要用对象方法才行。
双击工程资源管理器中左边的Thisworkbook一栏，在VBA代码窗口上方有两个下拉框，左边一个下拉窗中选择workbook,右边一个下拉框中选择beforclose，输入代码即可。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
activeWorkbook.Save
End Sub
双击工程资源管理器中左边的Thisworkbook一栏，在VBA代码窗口上方有两个下拉框，左边一个下拉窗中选择workbook,右边一个下拉框中选择beforclose，输入代码即可。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
activeWorkbook.Save
End Sub
第2个回答 2010-01-23
这样会关闭所有打开的工作簿。
Sub 完成工作()
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
End Sub
Sub 完成工作()
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
End Sub
第3个回答 推荐于2016-02-07
Sub 完成工作()
ActiveWorkbook.Save
ThisWorkbook.Application.Quit
End Sub本回答被提问者采纳
ActiveWorkbook.Save
ThisWorkbook.Application.Quit
End Sub本回答被提问者采纳
第4个回答 2010-01-23
Sub 完成工作()
quit
End Sub
quit
End Sub
相似回答
