VBA中的CreateObject函数

Excel VBA之CreateObject 函数 先看一下下面的句子，体会一哈：

Set d = CreateObject(\建立字典对象变量d Set xlApp = CreateObject(\建立Excel对象变量xlApp Set fso = CreateObject(\建立文件系统对象变量fso

CreateObject 函数创建并返回一个对 ActiveX 对象的引用。 语法

CreateObject(class,[servername]) CreateObject函数的语法有如下部分：

部分 描述 必需的；Variant（字符串）。提供该对象的应用程序名。 必需的；Variant（字符串）。待创建对象的类型或类。 appname objecttype class参数使用 appname.objecttype这种语法，包括以下部分：

部分 描述 必需的；Variant（字符串）。提供该对象的应用程序名。 必需的；Variant（字符串）。待创建对象的类型或类。 appname objecttype 说明

每个支持自动化的应用程序都至少提供一种对象类型。例如，一个字处理应用程序能会提供 Application对象，Document对象，以及 Toolbar对象。

要创建 ActiveX 对象，只需将 CreateObject返回的对象赋给一个对象变量：

'声明一个对象变量来存放该对象

'的引用。Dim as Object 采用后期绑定方式。 Dim ExcelSheet As Object

Set ExcelSheet = CreateObject(\

上述代码将启动该应用程序创建该对象，在本例中就是创建一个 Microsoft Excel 电子数据表。对象创建后，就可以在代码中使用自定义的对象变量来引用该对象。在下面

的示例中，可以使用对象变量 ExcelSheet 来访问新建对象的属性和方法，以及访问 Microsoft Excel 的其它对象，包括应用程序对象和单元格集合。

'设置 Application 对象使 Excel 可见 ExcelSheet.Application.Visible = True '在表格的第一个单元中写些文本

ExcelSheet.Application.Cells(1, 1).Value = \'将该表格保存到C:\\test.xls 目录

CreateObject 函数示例

该示例使用 CreateObject函数设置一个对 Microsoft Excel 的引用 (xlApp)。它使用该引用来访问 Microsoft Excel 的 Visible属性，并使用 Microsoft Excel 的 Quit方法将其关闭，最后再释放该引用。

Dim xlApp As Object

'定义存放引用对象的变量。Set xlApp = CreateObject(\'如果要让该应用程序可见，

则需将 Visible 属性设为 True。xlApp.Visible = True '可以使用 xlApp 访问 Microsoft Excel 的 '其它对象。xlApp.Quit

'完成时，调用 Quit 方法关闭Set xlApp = Nothing '该应用程序，然后释放该引用。

注：当你想用CreateObject 函数创建某个对象时，先查找到其对应的class 以下是常见的。～

creatobject(\数据库记录操作 creatobject(\文件操作 creatobject(\creatobject(\网络操作

createobject(\，远程获取文件用的 createobject (\同上

createobject(\数据流传输 createobject(\数据库连接 createobject (\createobject (\createobject (\广告

createobject(\表操作 createobject(\createobject(\操作 createobject(\createobject(\createobject(\createobject(\

createobject(\createobject(\createobject(\createobject(\

//关于SQL Server的

CreateObject(\CreateObject(\CreateObject(\CreateObject(\

CreateObject(\CreateObject(\CreateObject(\

本文来源：https://www.bwwdw.com/article/stj6.html