VBA中的CreateObject函数.doc

Excel VBA之CreateObject 函数先看一下下面的句子，体会一哈：Set d = CreateObject(Scripting.Dictionary) 建立字典对象变量dSet xlApp = CreateObject(excel.application) 建立Excel对象变量xlAppSet fso = CreateObject(Scripting.FileSystemObject) 建立文件系统对象变量fsoCreateObject 函数创建并返回一个对 ActiveX 对象的引用。语法CreateObject(class,servername)CreateObject函数的语法有如下部分：部分描述appname必需的；Variant（字符串）。提供该对象的应用程序名。objecttype必需的；Variant（字符串）。待创建对象的类型或类。class参数使用 appname.objecttype这种语法，包括以下部分：部分描述appname必需的；Variant（字符串）。提供该对象的应用程序名。objecttype必需的；Variant（字符串）。待创建对象的类型或类。说明每个支持自动化的应用程序都至少提供一种对象类型。例如，一个字处理应用程序能会提供 Application对象，Document对象，以及 Toolbar对象。要创建 ActiveX 对象，只需将 CreateObject返回的对象赋给一个对象变量：声明一个对象变量来存放该对象的引用。Dim as Object 采用后期绑定方式。Dim ExcelSheet As ObjectSet 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) SHELLcreatobject(work) 网络操作createobject(microsoft.xmlhttp) XMLHTTP ，远程获取文件用的createobject (msxml2.xmlhttp.4.0) 同上createobject(adodb.stream) 数据流传输createobject(adodb.connection) 数据库连接createobject (word. application ) WORDcreateobject (excel. application ) EXCELcreateobject (mswc.adrotator) 广告createobject(scripting.dictionary) HASH表操作createobject(powerpoint.application)createobject(Microsoft.XMLDOM) XML操作createobject(WScript.Shell)createobject(work) 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