Excel VBA之CreateObject 函数

先看一下下面的句子，体会一哈：

Set d = CreateObject("Scripting.Dictionary")    '建立字典对象变量d

Set xlApp = CreateObject("excel.application")   '建立Excel对象变量xlApp

Set fso = CreateObject("Scripting.FileSystemObject")    '建立文件系统对象变量fso

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

语法

CreateObject(class,[servername])

CreateObject函数的语法有如下部分：

class参数使用 appname.objecttype这种语法，包括以下部分：

说明

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

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

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

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

Dim ExcelSheet As Object

Set ExcelSheet = CreateObject("Excel.Sheet")

上述代码将启动该应用程序创建该对象，在本例中就是创建一个 Microsoft Excel 电子数据表。对象创建后，就可以在代码中使用自定义的对象变量来引用该对象。在下面的示例中，可以使用对象变量 ExcelSheet 来访问新建对象的属性和方法，以及访问 Microsoft Excel 的其它对象，包括应用程序对象和单元格集合。

'设置 Application 对象使 Excel 可见

ExcelSheet.Application.Visible = True

'在表格的第一个单元中写些文本

ExcelSheet.Application.Cells(1, 1).Value = "This is column A, row 1"

'将该表格保存到C:\test.xls 目录

CreateObject 函数示例

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

Dim xlApp As Object

'定义存放引用对象的变量。Set xlApp = CreateObject("excel.application")

'如果要让该应用程序可见，

则需将 Visible 属性设为 True。xlApp.Visible = True

'可以使用 xlApp 访问 Microsoft Excel 的

'其它对象。xlApp.Quit

'完成时，调用 Quit 方法关闭Set xlApp = Nothing

'该应用程序，然后释放该引用。

注：当你想用CreateObject 函数创建某个对象时，先查找到其对应的class

以下是常见的。～

creatobject("adodb.recordset") 数据库记录操作

creatobject("scripting.filesystemobject") 文件操作

creatobject("wscript.shell") SHELL

creatobject("wscript.network") 网络操作

createobject("microsoft.xmlhttp") XMLHTTP ，远程获取文件用的

createobject ("msxml2.xmlhttp.4.0") 同上

createobject("adodb.stream") 数据流传输

createobject("adodb.connection") 数据库连接

createobject ("word. application ") WORD

createobject ("excel. application ") EXCEL

createobject ("mswc.adrotator") 广告

createobject("scripting.dictionary")  HASH表操作

createobject("powerpoint.application")

createobject("Microsoft.XMLDOM") XML操作

createobject("WScript.Shell")

createobject("wscript.network")

createobject("MSWC.adRotator")

createobject("excel.sheet")

createobject("frontpage.application")

createobject("access.application")

createobject("msgraph.application")

createobject("photoshop.application")

//关于SQL Server的

CreateObject("SQLDMO.SQLServer")

CreateObject("SQLDMO.Login")

CreateObject("SQLDMO.Backup")

CreateObject("SQLDMO.User")

CreateObject("SQLDMO.BackupDevice")

CreateObject("SQLDMO.Database")

CreateObject("SQLDMO.Restore")