要用VBA來關(guān)閉工作簿,用Workbook.Close 方法即可,而要退出Excel,則用Application.Quit 方法。下面是一些代碼示例: 關(guān)閉活動(dòng)工作簿,如果工作簿有更改,提示是否保存: Sub CloseWorkbook() ActiveWorkbook.Close End Sub 如果要避免出現(xiàn)提示,可添加“SaveChanges”參數(shù),如直接保存并關(guān)閉工作簿: Sub ClostAndSaveWorkbook() ActiveWorkbook.Close Savechanges:=True End Sub 將上述代碼中的“True”改為“False”,則直接關(guān)閉工作簿而不保存。 關(guān)閉所有打開的工作簿,并提示是否保存: Sub CloseAllWorkbooks() On Error Resume Next Workbooks.Close End Sub 退出Excel,并提示對(duì)有更改的工作簿進(jìn)行保存: Sub QuitExcel() Application.Quit End Sub 保存活動(dòng)工作簿并退出Excel: Sub SaveActiveWorkAndQuit() ActiveWorkbook.Save Application.Quit End Sub 下面的代碼在退出Excel時(shí)都不會(huì)提示是否保存工作簿。 保存所有打開的工作簿并退出Excel: Sub SaveAllAndQuit() For Each wbk In Workbooks wbk.Save Next Application.Quit End Sub 退出Excel,所有的改動(dòng)都不保存: Sub QutiAndNoAlerts() Application.DisplayAlerts = False Application.Quit End Sub