Excel VBA是面向?qū)ο蟮某绦蛟O(shè)計(jì)語言。在Excel中有各種層次的對象，不同的對象又有其自身的屬性、方法和事件，本期我們和大家一起來學(xué)習(xí)這些對象的常見屬性和方法，我們試圖通過具體的講解、應(yīng)用、分析，給大家介紹一下Excel中的各種VBA對象以及它們常見的應(yīng)用方法和技巧。

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

一、Application對象及其應(yīng)用

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

1、ActiveWorkBook屬性代表一個(gè)活動(dòng)窗口工作薄對象，如退回當(dāng)前活動(dòng)工作薄的路徑：

MsgBox Application.ActiveWorkbook.Path

2、ActiveWorkSheet屬性代表一個(gè)活動(dòng)工作薄或指定工作薄中的活動(dòng)工作表對象。如顯示當(dāng)前活動(dòng)工作表的名字：

Worksheets(3).Select

MsgBox Application.ActiveSheet.Name

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

3、ActiveCell屬性代表一個(gè)活動(dòng)單元格對象，如顯示當(dāng)前活動(dòng)窗口中活動(dòng)單元格的地址：

MsgBox Application.ActiveCell.Address

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

Application.Caption = "軟件報(bào)專用"

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

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

Application.DisplayAlerts = False

Worksheets(2).Delete

Application.DisplayAlerts = True

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

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

Application.Dialogs(xlDialogPageSetup).Show

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

7、Quit屬性用于強(qiáng)制關(guān)閉Excel程序。如應(yīng)用程序在登錄時(shí)可檢查用戶名和密碼是否正確，如果錯(cuò)誤則強(qiáng)制退出應(yīng)用程序，使用方法如下：

Application.Quit

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

二、Workbook對象及其應(yīng)用

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

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

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

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

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

MsgBox ActiveWorkbook.Name

3、ThisWorkbook用于返回當(dāng)前VBA代碼正在運(yùn)行的工作薄。如返回當(dāng)前活動(dòng)工作薄所在的路徑：

MsgBox ThisWorkbook.Path

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

MsgBox Workbooks(2).ActiveSheet.Name

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

MsgBox ThisWorkbook.Name

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

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

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

Workbooks.add

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

Workbooks("我的表格").Save

Workbooks("我的表格").Close

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

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

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

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

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