VBA关闭工作簿和退出Excel 代码

来源:转载

要用VBA来关闭工作簿,用Workbook.Close 方法即可,而要退出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

分享给朋友:
您可能感兴趣的文章:
随机阅读: