发布网友 发布时间:2022-04-23 09:23
共5个回答
热心网友 时间:2023-10-09 10:11
这是因为你的代码中,只是关闭了一个Excel文件。
事实上,应该关闭整个Excel软件。
VBA代码可以修改为:
即可。
热心网友 时间:2023-10-09 10:11
要用对象方法才行。
双击工程资源管理器中左边的Thisworkbook一栏,在VBA代码窗口上方有两个下拉框,左边一个下拉窗中选择workbook,右边一个下拉框中选择beforclose,输入代码即可。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
activeWorkbook.Save
End Sub
热心网友 时间:2023-10-09 10:12
这样会关闭所有打开的工作簿。
Sub 完成工作()
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
End Sub
热心网友 时间:2023-10-09 10:12
Sub 完成工作()
ActiveWorkbook.Save
ThisWorkbook.Application.Quit
End Sub
热心网友 时间:2023-10-09 10:13
Sub 完成工作()
quit
End Sub