描述

创建并返回对 Automation  对象的引用。

语法

CreateObject(class)

class 参数使用语法 servername.typename，有以下部分：  

部分	描述
servername	提供对象的应用程序名称。
typename	要创建的对象类型或类。

说明

Automation 服务器至少提供一种对象类型。例如，字处理应用程序可以提供应用程序对象、文档对象和工具条对象。

要创建 Automation 对象，将 CreateObject 函数返回的对象赋值给某对象变量：  

Dim ExcelSheet
Set ExcelSheet = CreateObject("Excel.Sheet") 

上述代码启动创建对象（在此实例中，是 Microsoft Excel  电子表格）的应用程序。对象创建后，就可以在代码中使用定义的对象变量引用此对象。在下面的示例中，可使用对象变量、ExcelSheet 和其他 Excel 对象，包括 Application 对象和 Cells 集合访问新对象的属性和方法。例如：  

' 通过 Application 对象使 Excel 可见。
ExcelSheet.Application.Visible = True
' 在工作表的第一个单元中放置文本。
ExcelSheet. ActiveSheet.Cells(1,1).Value = "这是 A 列第一行"
' 保存工作表。
ExcelSheet.SaveAs "C:\DOCS\TEST.XLS"
' 在 Application 对象中使用 Quit 方法退出 Excel。
ExcelSheet.Application.Quit
' 释放对象变量。
Set ExcelSheet = Nothing