VBA-CreateObject 函数

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 函数示例 

该示例使用 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")