作者:乔山办公网日期:
返回目录:excel表格制作
On Error Resume Next
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set ProcessList = WMI.ExecQuery("Select * from Win32_Process Where Name like 'EXCEL.EXE%'")
For Each process In ProcessList
process.Terminate
Next
1、首先打开需要编辑的Excel表格,右键单击工作表复选择打开“查看代码”。
2、然后在弹出来的窗口中点击打开“通用”。选择制Terminate 事件。
3、然后在弹出来的窗口中点击输入下方的代码,
Private Sub UserForm_Terminate()
ThisWorkbook.Saved = True
Application.Quit
End Sub4、然后运行程序,这样就可以设置关闭zhidao窗体同时关闭EXCEl了。
代码中,只是关闭了一复个Excel文件。
事实上,应该制关闭整个百Excel软件。
VBA代码可以修改为:
Sub 完成工作()
ActiveWorkbook.Save
ThisWorkbook.Application.Quit
'或者度Application.Quit
End Sub
即可。
Application.ActiveWorkbook.Save
Application.ActiveWorkbook.Close
先保存,后退出。
哦楼下对的,要完全退出