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