要用VBA來關(guān)閉工作簿，用Workbook.Close 方法即可，而要退出Excel，則用Application.Quit 方法。下面是一些代碼示例： 關(guān)閉活動工作簿，如果工作簿有更改，提示是否保存：
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，并提示對有更改的工作簿進行保存：
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
獲得打開的工作簿數(shù)目
Workbooks.Count
激活第二個打開的工作簿
Workbooks(2).Activate
激活工作簿Chap02.xls
Workbooks("Chap02.xls").Activate
當(dāng)前活動的工作簿存盤為NewChap.xls
ActiveWorkbook.SaveAs Filename:="NewChap.xls"
關(guān)閉第一個工作簿
Workbooks(1).Close
關(guān)閉當(dāng)前活動的工作簿，不保存變化
ActiveWorkbook.Close SaveChanges:=False
關(guān)閉所有打開的工作簿
Workbooks.Close
如果你運行了最后一個例子，那么現(xiàn)在你所有的工作簿都已經(jīng)關(guān)閉了。在你要在工作表上使用前，請確保先打開一個新工作簿。當(dāng)你除了單個工作表時，你必須知道如何在工作簿里添加新的工作表，知道如何選擇一個或一組工作表，知道如何命名、復(fù)制、移動和刪除工作表。在VB里，每個任務(wù)都需要一個專門的方法或?qū)傩浴?br>
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"
獲得當(dāng)前工作簿里的工作表數(shù)目
Worksheets.Count
刪除當(dāng)前工作簿里的工作表“Expenses”
Worksheets("Expenses").Delete
本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請
點擊舉報。
