要用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
VBA操作
立即窗口輸入
打開一個新工作簿
Workbooks.Add
獲得第一個工作簿的名稱
Workbooks(1).Name
獲得打開的工作簿數目
Workbooks.Count
激活第二個打開的工作簿
Workbooks(2).Activate
激活工作簿Chap02.xls
Workbooks("Chap02.xls").Activate
當前活動的工作簿存盤為NewChap.xls
ActiveWorkbook.SaveAs Filename:="NewChap.xls"
關閉第一個工作簿
Workbooks(1).Close
關閉當前活動的工作簿，不保存變化
ActiveWorkbook.Close SaveChanges:=False
關閉所有打開的工作簿
Workbooks.Close
如果你運行了最后一個例子，那么現在你所有的工作簿都已經關閉了。在你要在工作表上使用前，請確保先打開一個新工作簿。當你除了單個工作表時，你必須知道如何在工作簿里添加新的工作表，知道如何選擇一個或一組工作表，知道如何命名、復制、移動和刪除工作表。在VB里，每個任務都需要一個專門的方法或屬性。
VBA操作
立即窗口輸入
添加一個新工作表
Worksheets.Add
獲得第一個工作表的名稱
Worksheets(1).Name
選擇名為“Sheet3”的工作表
Worksheets(3).Select
選擇第一，第三和第四個工作表
Worksheets(Array(1,3,4)).Select
激活名為“Sheet1”的工作表
Worksheets(“Sheet1”).Activate
將工作表“Sheet2”移動到工作表“Sheet1”之前
Worksheets("Sheet2").Move Before:=Worksheets("Sheet1")
重命名工作表“Sheet2”為“Expenses”
Worksheets("Sheet2").Name = "Expenses"
獲得當前工作簿里的工作表數目
Worksheets.Count
刪除當前工作簿里的工作表“Expenses”
Worksheets("Expenses").Delete
本站僅提供存儲服務，所有內容均由用戶發布，如發現有害或侵權內容，請
點擊舉報。
