2、Application 对象

Application

多个对象

代表整个 Microsoft Excel 应用程序。Application 对象包含：

· 应用程序范围内的设定和选项（例如“工具”菜单中“选项”对话框内的许多选项。

· 返回处于活动状态的对象的方法，例如 ActiveCell 和 ActiveSheet 等。

Application 对象用法

可用 Application 属性返回 Application 对象。下例应用 Application 对象的 Windows 属性。

Application.Windows("book1.xls").Activate

下例在其他应用程序中创建 Microsoft Excel 工作簿对象，然后在 Microsoft Excel 中打开工作簿。

Set xl = CreateObject("Excel.Sheet")

xl.Application.Workbooks.Open "newbook.xls"

说明

许多返回常用用户界面对象（例如活动单元格）的属性和方法（例如 ActiveCell 属性），可不加 Application 对象识别符而直接使用。例如，可用 ActiveCell.Font.Bold = True 代替 Application.ActiveCell.Font.Bold = True。

3、Workbook 对象

Application

Workbook［Workbooks］

多个对象

代表 Microsoft Excel 工作簿。Workbook 对象是 Workbooks 集合的成员。Workbooks 集合包含 Microsoft Excel 中所有当前打开 Workbook 对象。

Workbook 对象用法

本部分将说明下列返回 Workbook 对象的属性和方法：

· Workbooks 属性

· ActiveWorkbook 属性

· ThisWorkbook 属性

4、Workbooks 属性

可用 Workbooks(index)（其中 index 为工作簿名称或编号）返回单个 Workbook 对象。下例激活第一个工作簿。

Workbooks(1).Activate

索引号表明创建或打开工作簿的顺序。Workbooks(1) 为创建的第一个工作簿，而 Workbooks(Workbooks.Count) 为最后一个。激活某工作簿并不改变其编号。所有工作簿均包括在编号序列中，即便是隐藏工作簿也是如此。

Name 属性返回工作簿名称。不能用该属性设置工作簿的名称；如果需要改名，应当用 SaveAs 方法以其它名称保存工作簿。下例激活工作簿“Cogs.xls”中的工作表“Sheet1”（该工作簿必须已在 Microsoft Excel 中打开）。

Workbooks("cogs.xls").Worksheets("sheet1").Activate

ActiveWorkbook 属性

ActiveWorkbook 属性返回当前处于活动状态的工作簿。下例设置活动工作簿的作者名称。

ActiveWorkbook.Author = "Jean Selva"

ThisWorkbook 属性

ThisWorkbook 属性返回其中正在运行 Visual Basic 代码的工作簿。在绝大多数情况下，这也就是活动工作簿。然而，如果 Visual Basic 代码是加载宏的一部分，那么 ThisWorkbook 属性就不会返回活动工作簿。在这种情况下，活动工作簿是调用加载宏的工作簿，而 ThisWorkbook 属性将返回该加载宏工作簿。

如果用 Visual Basic 代码创建加载宏，那么对于那些编译到加载宏中的工作簿，在其中运行的语句应当用 ThisWorkbook 属性加以限定。