VBA中的CreateObject函数

1、ExcelVBA之CreateObject函数先看一下下面的句子，体会一哈：Setd=CreateObject(Scripting.Dictionary)建立字典对象变量dSetxlApp=CreateObject(excel.application)建立Excel对象变量xlAppSetfso=CreateObject(Scripting.FileSystemObject)建立文件系统对象变量fsoCreateObject函数创建并返回一个对ActiveX对象的引用。语法CreateObject(class,servername)CreateObject函数的语法有如下部分：部分描述appn

2、ame必需的；Variant（字符串）。提供该对象的应用程序名。objecttype必需的；Variant（字符串）。待创建对象的类型或类。class参数使用appname.objecttype这种语法，包括以下部分：部分描述appname必需的；Variant（字符串）。提供该对象的应用程序名。objecttype必需的；Variant（字符串）。待创建对象的类型或类。说明每个支持自动化的应用程序都至少提供一种对象类型。例如，一个字处理应用程序能会提供Application对象，Document对象，以及Toolbar对象。要创建ActiveX对象，只需将CreateObject返回的对象赋

3、给一对象变量：声明一个对象变量来存放该对象的引用。DimasObject采用后期绑定方式。DimExcelSheetAsObjectSetExcelSheet=CreateObject（Excel.Sheet）上述代码将启动该应用程序创建该对象，在本例中就是创建一个MicrosoftExcel电子数据表。对象创建后，就可以在代码中使用自定义的对象变量来引用该对象。在下面的示例中，可以使用对象变量ExcelSheet来访问新建对象的属性和方法，以及访问MicrosoftExcel的其它对象，包括应用程序对象和单元格集合。设置Application对象使Excel可见ExcelSheet.Appl

4、ication.Visible=True在表格的第一个单元中写些文本ExcelSheet.Application.Cells(1,1).Value=ThisiscolumnA,row1将该表格保存到C:test.xls目录CreateObject函数示例该示例使用CreateObject函数设置一个对MicrosoftExcel的引用(xIApp)。它使用该引用来访问MicrosoftExcel的Visible属性，并使用MicrosoftExcel的Quit方法将其关闭，最后再释放该引用。DimxlAppAsObject定义存放引用对象的变量。SetxlApp=CreateObject(ex

5、cel.application)如果要让该应用程序可见，则需将Visible属性设为True。xlApp.Visible=True可以使用xlApp访问MicrosoftExcel的其它对象。xlApp.Quit完成时，调用Quit方法关闭SetxlApp=Nothing该应用程序，然后释放该引用。注：当你想用CreateObject函数创建某个对象时，先查找到其对应的class以下是常见的。creatobject(adodb.recordset)数据库记录操作creatobject(scripting.filesystemobject)文件操作creatobject(wscript.shel

6、l)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.di

7、ctionary)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)/关于SQLServer的CreateObject(SQLDMO.SQLServer)CreateObject(SQLDMO.Login)CreateObject(SQLDMO.Backup