[转载]Excel中的VBA对象及其应用之一

Excel VBA是面向对象的程序设计语言。在Excel中有各种层次的对象，不同的对象又有其自身的属性、方法和事件，本期我们和大家一起来学习这些对象的常见属性和方法，我们试图通过具体的讲解、应用、分析，给大家介绍一下Excel中的各种VBA对象以及它们常见的应用方法和技巧。

对象是程序设计中的重要元素。在Excel VBA中，常见的对象有：Application（Excel程序本身）、Workbook(工作薄)、WorkSheets(工作表对象集)和Range(单元格或单元格区域)，它们的各自的应用方法分别介绍如下：

一、Application对象及其应用

通常情况下，Application对象指的就是Excel程序本身，利用其属性可以灵活地控制Excel应用程序的工作环境。常用的属性有：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程序传统的标题信息“Microsoft Excel”已更改为“软件报专用”（如图1）。

    5、DisplayAlerts属性用于是否显示警告信息，如删除工作表时是否提醒用户，值为True时提醒，值为False时则不提醒，系统默认为True。使用方法如下：

Application.DisplayAlerts = False

Worksheets(2).Delete

Application.DisplayAlerts = True

以上代码的功能是删除第2张工作表且不出现警告提示。通常在程序结束之前要恢复系统到默认状态。

6、Dialogs属性用于显示系统对话框，如显示打开页面设置的对话框：

Application.Dialogs(xlDialogPageSetup).Show

Excel VBA的内置对话框有200多个，在用户输入时系统会自动提示，另外也可以通过录制需要的对话框的宏来实现。

7、Quit属性用于强制关闭Excel程序。如应用程序在登录时可检查用户名和密码是否正确，如果错误则强制退出应用程序，使用方法如下：

Application.Quit

需要说明的是：在某些情况下，Application识别符是可以省略的，如“MsgBox Application.ActiveCell.Address”或直接简写为“MsgBox ActiveCell.Address”。

二、Workbook对象及其应用

Workbooks（工作薄对象集）是Application的下一层对象集，它包含若干个工作薄（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属性的作用是返回当前处于活动状态的工作薄，下面的语句就是返回当前活动工作薄的名字：

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方法可创建新的工作薄对象并将其添加到Wookbooks对象集中。如新建一个工作薄：

Workbooks.add

8、Save和Close方法用于保存和关闭指定的工作薄对象。如下面的两条语句分别为保存名为“我的表格”的工作薄后将其关闭。

Workbooks("我的表格").Save

Workbooks("我的表格").Close

9、Open和SaveAs方法用于指定工作薄的打开和更名保存操作。下面的两条语句的作用是打开C盘根目录下的“我的表格”文档并将其另存为“表格备份”后保存D盘的根目录下。

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

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

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

由于版面所限，这期我们只能讲到这儿了，下期我们将继续给大家介绍Excel VBA中的另外两个非常重要的对象WorkSheet（工作表）对象和Range对象，希望各位读者朋友继续关注！