Excel VBA是面向對象的程序設計語言。在Excel中有各種層次的對象，不同的對象又有其自身的屬性、方法和事件，本期我們和大家一起來學習這些對象的常見屬性和方法，我們試圖通過具體的講解、應用、分析，給大家介紹一下Excel中的各種VBA對象以及它們常見的應用方法和技巧。

對象是程序設計中的重要元素。在Excel VBA中，常見的對象有：Application（Excel程序本身）、Workbook(工作薄)、WorkSheets(工作表對象集)和Range(單元格或單元格區(qū)域)，它們的各自的應用方法分別介紹如下：

一、Application對象及其應用

通常情況下，Application對象指的就是Excel程序本身，利用其屬性可以靈活地控制Excel應用程序的工作環(huán)境。常用的屬性有：ActiveWorkBook（當前工作?。?、ActiveWorkSheet（當前工作表）、ActiveCell（當前單元格）、Caption(標題)、DisplayAlerts(顯示警告)、Dialogs(對話框集合)、Quit(退出)等。

1、ActiveWorkBook屬性代表一個活動窗口工作薄對象，如退回當前活動工作薄的路徑：

MsgBox Application.ActiveWorkbook.Path

2、ActiveWorkSheet屬性代表一個活動工作薄或指定工作薄中的活動工作表對象。如顯示當前活動工作表的名字：

Worksheets(3).Select

MsgBox Application.ActiveSheet.Name

前一句激活第3張工作表，后一句用于顯示活動工作表的名字。

3、ActiveCell屬性代表一個活動單元格對象，如顯示當前活動窗口中活動單元格的地址：

MsgBox Application.ActiveCell.Address

4、Caption屬性用于顯示Excel程序窗口中標題欄的標題信息，如更改Excel窗口標題欄中的標題為“軟件報專用”：

Application.Caption = "軟件報專用"

應用完代碼后用戶可觀察到Excel程序傳統(tǒng)的標題信息“Microsoft Excel”已更改為“軟件報專用”（如圖1）。

    5、DisplayAlerts屬性用于是否顯示警告信息，如刪除工作表時是否提醒用戶，值為True時提醒，值為False時則不提醒，系統(tǒng)默認為True。使用方法如下：

Application.DisplayAlerts = False

Worksheets(2).Delete

Application.DisplayAlerts = True

以上代碼的功能是刪除第2張工作表且不出現(xiàn)警告提示。通常在程序結束之前要恢復系統(tǒng)到默認狀態(tài)。

6、Dialogs屬性用于顯示系統(tǒng)對話框，如顯示打開頁面設置的對話框：

Application.Dialogs(xlDialogPageSetup).Show

Excel VBA的內置對話框有200多個，在用戶輸入時系統(tǒng)會自動提示，另外也可以通過錄制需要的對話框的宏來實現(xiàn)。

7、Quit屬性用于強制關閉Excel程序。如應用程序在登錄時可檢查用戶名和密碼是否正確，如果錯誤則強制退出應用程序，使用方法如下：

Application.Quit

需要說明的是：在某些情況下，Application識別符是可以省略的，如“MsgBox Application.ActiveCell.Address”或直接簡寫為“MsgBox ActiveCell.Address”。

二、Workbook對象及其應用

Workbooks（工作薄對象集）是Application的下一層對象集，它包含若干個工作?。?span lang="EN-US" xml:lang="EN-US">Workbook）對象，與其有關的常用的屬性和方法有：Workbooks(工作薄對象集)屬性、ActivateWorkbook(活動工作薄)屬性、ThisWorkbook（當前工作?。傩?、ActiveSheet(活動工作表)屬性、Name(名稱)屬性、Path(路徑)屬性，另外還有Add（添加）、Open（打開）、Save（保存）、Close（關閉）、SaveAs（另存為）、Open(打開)等文件操作的方法。

1、Workbooks屬性可返回Excel程序中打開的每一個工作薄對象，該屬性使用的方法是：

Workbooks(2).Activate                 '激活第二個工作薄

Workbooks(Workbooks.Count).Activate   '激活最后一個工作薄

2、ActivateWorkbook屬性的作用是返回當前處于活動狀態(tài)的工作薄，下面的語句就是返回當前活動工作薄的名字：

MsgBox ActiveWorkbook.Name

3、ThisWorkbook用于返回當前VBA代碼正在運行的工作薄。如返回當前活動工作薄所在的路徑：

MsgBox ThisWorkbook.Path

4、ActiveSheet屬性用于返回指定工作薄中的活動工作表對象。如顯示第2個工作薄中的活動工作表的名字：

MsgBox Workbooks(2).ActiveSheet.Name

5、Name屬性用于返回當前VBA代碼操作的工作薄的名稱。如顯示當前工作薄的文件名：

MsgBox ThisWorkbook.Name

若要顯示當前工作薄的完整路徑和文件名可使用FullName屬性。

6、Path屬性用于返回指定工作薄的路徑（不含文件名）。

7、Add方法可創(chuàng)建新的工作薄對象并將其添加到Wookbooks對象集中。如新建一個工作?。?/span>

Workbooks.add

8、Save和Close方法用于保存和關閉指定的工作薄對象。如下面的兩條語句分別為保存名為“我的表格”的工作薄后將其關閉。

Workbooks("我的表格").Save

Workbooks("我的表格").Close

9、Open和SaveAs方法用于指定工作薄的打開和更名保存操作。下面的兩條語句的作用是打開C盤根目錄下的“我的表格”文檔并將其另存為“表格備份”后保存D盤的根目錄下。

Workbooks.Open Filename:="c:我的表格"

Workbooks("我的表格").SaveAs Filename:="d:表格備份"

在上例中，“Filename:=”均可以省略，即可以在相應的方法后直接跟上需要打開或保存的路徑和文件名。

由于版面所限，這期我們只能講到這兒了，下期我們將繼續(xù)給大家介紹Excel VBA中的另外兩個非常重要的對象WorkSheet（工作表）對象和Range對象，希望各位讀者朋友繼續(xù)關注！