要用VBA來關閉工作簿,用e 方法即可,而要退出Excel,則用 方法。
下面是一些程式碼示例: 關閉活動工作簿,如果工作簿有更改,提示是否儲存:
複製程式碼 程式碼如下:
Sub CloseWorkbook()
e
End Sub
如果要避免出現提示,可新增“SaveChanges”引數,如直接儲存並關閉工作簿:
複製程式碼 程式碼如下:
Sub ClostAndSaveWorkbook()
e Savechanges:=True
End Sub
將上述程式碼中的“True”改為“False”,則直接關閉工作簿而不儲存。
關閉所有開啟的工作簿,並提示是否儲存:
複製程式碼 程式碼如下:
Sub CloseAllWorkbooks()
On Error Resume Next
e
End Sub
退出Excel,並提示對有更改的工作簿進行儲存:
複製程式碼 程式碼如下:
Sub QuitExcel()
End Sub
儲存活動工作簿並退出Excel:
複製程式碼 程式碼如下:
Sub SaveActiveWorkAndQuit()
End Sub
下面的程式碼在退出Excel時都不會提示是否儲存工作簿。
儲存所有開啟的工作簿並退出Excel:
複製程式碼 程式碼如下:
Sub SaveAllAndQuit()
For Each wbk In Workbooks
Next
End Sub
退出Excel,所有的改動都不儲存:
複製程式碼 程式碼如下:
Sub QutiAndNoAlerts()
layAlerts = False
End Sub
下面列舉了一些VBA的常用操作:
開啟一個新工作簿
複製程式碼 程式碼如下:
獲得第一個工作簿的名稱
複製程式碼 程式碼如下:
Workbooks(1)
獲得開啟的工作簿數目
複製程式碼 程式碼如下:
t
啟用第二個開啟的工作簿
複製程式碼 程式碼如下:
Workbooks(2)vate
啟用工作簿
複製程式碼 程式碼如下:
Workbooks("")vate
當前活動的工作簿存檔為
複製程式碼 程式碼如下:
As Filename:=""
關閉第一個工作簿
複製程式碼 程式碼如下:
Workbooks(1)e
關閉當前活動的'工作簿,不儲存變化
複製程式碼 程式碼如下:
e SaveChanges:=False
關閉所有開啟的工作簿
複製程式碼 程式碼如下:
e
如果你運行了最後一個例子,那麼現在你所有的工作簿都已經關閉了。
在你要在工作表上使用前,請確保先開啟一個新工作簿。
當你除了單個工作表時,你必須知道如何在工作簿裡新增新的工作表,知道如何選擇一個或一組工作表,知道如何命名、複製、移動和刪除工作表。
在VB裡,每個任務都需要一個專門的方法或屬性。
新增一個新工作表
複製程式碼 程式碼如下:
獲得第一個工作表的名稱
複製程式碼 程式碼如下:
Worksheets(1)
選擇名為“Sheet3”的工作表
複製程式碼 程式碼如下:
Worksheets(3)ct
選擇第一,第三和第四個工作表
複製程式碼 程式碼如下:Worksheets(Array(1,3,4))ct
啟用名為“Sheet1”的工作表
複製程式碼 程式碼如下:
Worksheets(“Sheet1”)vate
將工作表“Sheet2”移動到工作表“Sheet1”之前
複製程式碼 程式碼如下:
Worksheets("Sheet2") Before:=Worksheets("Sheet1")
重新命名工作表“Sheet2”為“Expenses”
複製程式碼 程式碼如下:
Worksheets("Sheet2") = "Expenses"
獲得當前工作簿裡的工作表數目
複製程式碼 程式碼如下:
t
刪除當前工作簿裡的工作表“Expenses”
複製程式碼 程式碼如下:
Worksheets("Expenses")te