CreateObject函数

创建并返回对ActiveX对象的引用。
语法
CreateObject (class，[servername])
CreateObject函数的语法有以下几个部分:
部分描述
class是必需的；变量(字符串)。要创建的应用程序的名称和类别。
servername是可选的；变量(字符串)。要在其上创建对象的网络服务器的名称。

Class参数使用appname.objecttype的语法，包括以下部分:
Part descriptions
appname是必需的；变量(字符串)。提供此对象的应用程序名称。
必需的
object type；变量(字符串)。要创建的对象的类型或类。

描述
每个支持自动化的应用程序都至少提供一种对象类型。例如，文字处理应用程序可以提供应用程序对象、文档对象和工具栏对象。
要创建ActiveX对象，只需将CreateObject返回的对象赋给一个对象变量:
'声明一个对象变量来保存对象的引用
'。Dim as Object采用后期绑定方式。
Dim Excel sheet As Object
Set Excel sheet = CreateObject(" Excel。工作表”)

上面的代码将启动应用程序来创建对象，在本例中是一个Microsoft Excel电子表格。创建对象后，可以使用自定义对象变量在代码中引用它。在下面的示例中，可以使用对象变量ExcelSheet来访问新建对象的属性和方法，以及Microsoft Excel中的其他对象，包括application对象和单元格集合。
'设置Application对象以使Excel可见
excelsheet . Application . visible = true
'在表格的第一个单元格中写入一些文本
Excel sheet。单元格(1，1)。value = "这是a列第1行"
'将表格保存到C:\test.doc目录
excelsheetsavas " C:\ test . doc "
'使用application对象的Quit方法关闭Excel。
excel sheet . application . quit
'释放对象变量
Set ExcelSheet = Nothing。

您可以使用As Object子句来声明对象变量，并且可以创建包含任何类型的对象引用的变量。但是，变量access对象是后期绑定的，也就是说，只有在程序运行时才进行绑定。要创建使用预绑定的对象变量，即在编译程序时完成绑定，对象变量应该在声明时指定类ID。例如，您可以声明并创建以下Microsoft Excel引用:
dimxlapp as Excel . application
dimxl book as Excel . workbook
dimxl sheet as Excel . worksheet
Set XL app = createobject(" Excel . application ")
Set XL book = XL app . workbooks . add
Set XL sheet = XL book . worksheets(1)
早期绑定中的变量引用可以提供更好的性能，但该变量只能保存指定类的引用
您可以将CreateObject函数返回的对象传递给参数为object的函数。例如，下面的代码创建并传递对Excel的引用。应用程序对象:
callmy sub(CreateObject(" excel . application "))

通过将计算机名传递给CreateObject的servername参数，可以在远程联网计算机上创建对象。此名称与共享名的计算机名部分相同:对于共享名“\ \ MyServer \ \ public”，servername参数是“MyServer”。
下面的代码返回在名为MyServer的远程计算机上运行的Excel实例的版本号:
dimxlapp as object
setxlapp = createobject(" Excel . application "，" my server ")
debug . printlapp . version。

如果远程服务器不存在或不可用，将会出现运行时错误。
注意当当前没有此对象的实例时，应使用CreateObject。如果对象的现有实例正在运行，将启动一个新实例，并创建一个指定类型的对象。要使用当前实例，或者启动应用程序并加载文件，可以使用GetObject函数。
如果一个对象注册为单个实例对象，无论执行多少次CreateObject，都只能创建该对象的一个实例。