| CreateObject 函数 |
|
class 参数使用语法 servername.typename，有以下部分：
| 部分 | 描述 |
| servername | 提供对象的应用程序名称。 |
| typename | 要创建的对象类型或类。 |
要创建 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