VBA中的CreateObject函数

《VBA中的CreateObject函数》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

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

3、，以及Toolbar对象。要创建ActiveX对象，只需将CreateObject返回的对象赋给一个对象变量：'声明一个对象变量来存放该对象'的引用。DimasObject采用后期绑定方式。DimExcelSheetAsObjectSetExcelSheet=CreateObject("Excel.Sheet")上述代码将启动该应用程序创建该对象，在本例中就是创建一个MicrosoftExcel电子数据表。对象创建后，就可以在代码中使用自定义的对象变量来引用该对象。在下面的示例中，可以使用对象变量ExcelSheet来访问新建对象的属性和方法，以及访问Mic

4、rosoftExcel的其它对象，包括应用程序对象和单元格集合。'设置Application对象使Excel可见ExcelSheet.Application.Visible=True'在表格的第一个单元中写些文本ExcelSheet.Application.Cells(1,1).Value="ThisiscolumnA,row1"'将该表格保存到C:test.xls目录CreateObject函数示例该示例使用CreateObject函数设置一个对MicrosoftExcel的引用(xlApp)。它使用该引用来访问MicrosoftExcel的Visibl

5、e属性，并使用MicrosoftExcel的Quit方法将其关闭，最后再释放该引用。DimxlAppAsObject'定义存放引用对象的变量。SetxlApp=CreateObject("excel.application")'如果要让该应用程序可见，则需将Visible属性设为True。xlApp.Visible=True'可以使用xlApp访问MicrosoftExcel的'其它对象。xlApp.Quit'完成时，调用Quit方法关闭SetxlApp=Nothing'该应用程序，然后释放该引用。注：当你想用CreateObject函数创建某个对象时，先查

6、找到其对应的class以下是常见的。～creatobject("adodb.recordset")数据库记录操作creatobject("scripting.filesystemobject")文件操作creatobject("wscript.shell")SHELLcreatobject("wscript.network")网络操作createobject("microsoft.xmlhttp")XMLHTTP，远程获取文件用的createobject("msxml2.xmlhttp.4.0")同上createobject("adodb.stream")数

7、据流传输createobject("adodb.connection")数据库连接createobject("word.application")WORDcreateobject("excel.application")EXCELcreateobject("mswc.adrotator")广告createobject("scripting.dictionary")HASH表操作createobject("powerpoint.application")createobject("Microsoft.XMLDOM")XML操作createobject("WSc

8、ript.Shell")createobject("