VBA中操作Excel常用方法總結

福竹昊晟 2019-02-01

展開全文

要用VBA來關閉工作簿，用Workbook.Close 方法即可，而要退出Excel，則用Application.Quit 方法。
下面是一些代碼示例：關閉活動工作簿，如果工作簿有更改，提示是否保存：

復制代碼代碼如下:

    Sub CloseWorkbook()
    ActiveWorkbook.Close
    End Sub

如果要避免出現(xiàn)提示，可添加“SaveChanges”參數(shù)，如直接保存并關閉工作簿：

復制代碼代碼如下:

    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

獲得打開的工作簿數(shù)目

復制代碼代碼如下:

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

如果你運行了最后一個例子，那么現(xiàn)在你所有的工作簿都已經關閉了。
在你要在工作表上使用前，請確保先打開一個新工作簿。
當你除了單個工作表時，你必須知道如何在工作簿里添加新的工作表，知道如何選擇一個或一組工作表，知道如何命名、復制、移動和刪除工作表。
在VB里，每個任務都需要一個專門的方法或屬性。

添加一個新工作表

復制代碼代碼如下:

Worksheets.Add

獲得第一個工作表的名稱

復制代碼代碼如下:

Worksheets(1).Name

選擇名為“Sheet3”的工作表

復制代碼代碼如下:

Worksheets(3).Select

選擇第一，第三和第四個工作表

復制代碼代碼如下:

Worksheets(Array(1,3,4)).Select