VBA中操作Excel常用方法總結內容

時間：2024-09-10 10:42:28 office辦公我要投稿

相關推薦

VBA中操作Excel常用方法總結內容

　　要用VBA來關閉工作簿，用Workbook.Close 方法即可，而要退出Excel，則用Application.Quit 方法。

VBA中操作Excel常用方法總結內容

　　下面是一些代碼示例：關閉活動工作簿，如果工作簿有更改，提示是否保存：

　　復制代碼代碼如下:

　　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

　　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里，每個任務都需要一個專門的方法或屬性。

　　添加一個新工作表

　　復制代碼代碼如下:

　　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

【VBA中操作Excel常用方法總結內容】相關文章：

分享Excel VBA教程 Excel多個表格匯總的方法教程05-15

Excel操作大全09-03

Excel中vlookup函數使用方法06-21

excel中vlookup函數的使用方法08-05

vlookup函數在Excel中的使用方法09-21