Excel VBA之CreateObject 函数 先看一下下面的句子，体会一哈：
Set d = CreateObject(\建立字典对象变量d Set xlApp = CreateObject(\建立Excel对象变量xlApp Set fso = CreateObject(\建立文件系统对象变量fso
CreateObject 函数创建并返回一个对 ActiveX 对象的引用。 语法
CreateObject(class,[servername]) CreateObject函数的语法有如下部分：
部分 描述 必需的；Variant（字符串）。提供该对象的应用程序名。 必需的；Variant（字符串）。待创建对象的类型或类。 appname objecttype class参数使用 appname.objecttype这种语法，包括以下部分：
部分 描述 必需的；Variant（字符串）。提供该对象的应用程序名。 必需的；Variant（字符串）。待创建对象的类型或类。 appname objecttype 说明
每个支持自动化的应用程序都至少提供一种对象类型。例如，一个字处理应用程序能会提供 Application对象，Document对象，以及 Toolbar对象。
要创建 ActiveX 对象，只需将 CreateObject返回的对象赋给一个对象变量：
'声明一个对象变量来存放该对象
'的引用。Dim as Object 采用后期绑定方式。 Dim ExcelSheet As Object
Set ExcelSheet = CreateObject(\
上述代码将启动该应用程序创建该对象，在本例中就是创建一个 Microsoft Excel 电子数据表。对象创建后，就可以在代码中使用自定义的对象变量来引用该对象。在下面
的示例中，可以使用对象变量 ExcelSheet 来访问新建对象的属性和方法，以及访问 Microsoft Excel 的其它对象，包括应用程序对象和单元格集合。
'设置 Application 对象使 Excel 可见 ExcelSheet.Application.Visible = True '在表格的第一个单元中写些文本
ExcelSheet.Application.Cells(1, 1).Value = \'将该表格保存到C:\\test.xls 目录
CreateObject 函数示例
该示例使用 CreateObject函数设置一个对 Microsoft Excel 的引用 (xlApp)。它使用该引用来访问 Microsoft Excel 的 Visible属性，并使用 Microsoft Excel 的 Quit方法将其关闭，最后再释放该引用。
Dim xlApp As Object
'定义存放引用对象的变量。Set xlApp = CreateObject(\'如果要让该应用程序可见，
则需将 Visible 属性设为 True。xlApp.Visible = True '可以使用 xlApp 访问 Microsoft Excel 的 '其它对象。xlApp.Quit
'完成时，调用 Quit 方法关闭Set xlApp = Nothing '该应用程序，然后释放该引用。
注：当你想用CreateObject 函数创建某个对象时，先查找到其对应的class 以下是常见的。～
creatobject(\数据库记录操作 creatobject(\文件操作 creatobject(\creatobject(\网络操作
createobject(\，远程获取文件用的 createobject (\同上
createobject(\数据流传输 createobject(\数据库连接 createobject (\createobject (\createobject (\广告
createobject(\表操作 createobject(\createobject(\操作 createobject(\createobject(\createobject(\createobject(\
createobject(\createobject(\createobject(\createobject(\
//关于SQL Server的
CreateObject(\CreateObject(\CreateObject(\CreateObject(\
CreateObject(\CreateObject(\CreateObject(\