要用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