作者:乔山办公网日期:
返回目录:excel表格制作
代码示例:
WorkBooks("abc.xls").Close
要用VBA来关闭工作簿,用Workbook.Close 方法即可,e799bee5baa6e79fa5e98193e58685e5aeb9338而要退出Excel,则用Application.Quit 方法:
关闭活动工作簿,如果工作簿有更改,提示是否保存:
Sub CloseWorkbook()
ActiveWorkbook.Close
End Sub
如果要避免出现提示,可添加“SaveChanges”参数,如直接保存并关闭工作簿:
Sub ClostAndSaveWorkbook()
ActiveWorkbook.Close Savechanges:=True
End Sub
将上述代码中的“True”改为“False”,则直接关闭工作簿而不保存。
关闭所有打开的工作簿,并提示是否保存:
Sub CloseAllWorkbooks()
On Error Resume Next
Workbooks.Close
End Sub
退出Excel,并提示对有更改的工作簿进行保存:
Sub QuitExcel()
Application.Quit
End Sub
保存活动工作簿并退出Excel:
Sub SaveActiveWorkAndQuit()
ActiveWorkbook.Save
Application.Quit
End Sub
下面的代码在退出Excel时都不会提示是否保存工作簿。
保存所有打开的工作簿并退出Excel:
Sub SaveAllAndQuit()
For Each wbk In Workbooks
wbk.Save
Next
Application.Quit
End Sub
退出Excel,所有的改动都不保存:
Sub QutiAndNoAlerts()
Application.DisplayAlerts = False
Application.Quit
End Sub
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
上面代码是保知存已打开的所有工作簿道,然后关内闭EXCEL
最后一句就容是关闭EXCEL和进程
要用VBA来关闭工作簿,用Workbook.Close 方法即可,而要退出Excel,则用Application.Quit 方法:
关闭活动工作簿,如果工作簿有更改,提示是否保7a64e4b893e5b19e363存:
Sub CloseWorkbook()
ActiveWorkbook.Close
End Sub
如果要避免出现提示,可添加“SaveChanges”参数,如直接保存并关闭工作簿:
Sub ClostAndSaveWorkbook()
ActiveWorkbook.Close Savechanges:=True
End Sub
将上述代码中的“True”改为“False”,则直接关闭工作簿而不保存。
关闭所有打开的工作簿,并提示是否保存:
Sub CloseAllWorkbooks()
On Error Resume Next
Workbooks.Close
End Sub
退出Excel,并提示对有更改的工作簿进行保存:
Sub QuitExcel()
Application.Quit
End Sub
保存活动工作簿并退出Excel:
Sub SaveActiveWorkAndQuit()
ActiveWorkbook.Save
Application.Quit
End Sub
下面的代码在退出Excel时都不会提示是否保存工作簿。
保存所有打开的工作簿并退出Excel:
Sub SaveAllAndQuit()
For Each wbk In Workbooks
wbk.Save
Next
Application.Quit
End Sub
退出Excel,所有的改动都不保存:
Sub QutiAndNoAlerts()
Application.DisplayAlerts = False
Application.Quit
End Sub