CreateObject 函数

  • 项目

创建并返回对 ActiveX 对象的引用。

语法

CreateObject(class, [ servername ])

CreateObject 函数语法包含以下部分：

Part 说明
class 必需；Variant (String)。 要创建对象的应用程序名称和类。
servername 可选；Variant (String)。 将在其中创建对象的网络服务器的名称。 如果 servername 为空字符串 ("")，则使用本地计算机。

类参数使用语法 appname。objecttype 和 具有以下部分：

Part 说明
appname 必需；Variant (String)。 提供对象的应用程序的名称。
objecttype 必需；Variant (String)。 要创建对象的类型或类。

注解

每个支持 Automation 的应用程序都提供至少一种类型的对象。 例如，字处理应用程序可能提供 Application 对象、Document 对象和 Toolbar 对象。

要创建 ActiveX 对象，请将 CreateObject 返回的对象指定给对象变量。

' Declare an object variable to hold the object 
' reference. Dim as Object causes late binding. 
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")

此代码启动创建对象的应用程序，在本例中是 Microsoft Excel 电子表格。 创建对象后，就可以使用定义的对象变量在代码中对其进行引用。 在下面的示例中，访问使用对象变量的新对象的属性和方法、ExcelSheet 以及其他 Microsoft Excel 对象（包括 Application 对象与 Cells 集合）。

' Make Excel visible through the Application object.
ExcelSheet.Application.Visible = True
' Place some text in the first cell of the sheet.
ExcelSheet.Application.Cells(1, 1).Value = "This is column A, row 1"
' Save the sheet to C:\test.xls directory.
ExcelSheet.SaveAs "C:\TEST.XLS"
' Close Excel with the Quit method on the Application object.
ExcelSheet.Application.Quit
' Release the object variable.
Set ExcelSheet = Nothing

使用 As Object 子句声明对象变量将创建可包含对任意类型对象的引用的变量。 但是，通过该变量访问该对象属于晚期绑定（即，在程序运行时绑定）。 要创建导致早期绑定（即，在编译程序时绑定）的对象变量，请使用特定的类 ID 声明对象变量。 例如，可以声明并创建以下 Microsoft Excel 引用：

Dim xlApp As Excel.Application 
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

通过早期绑定变量进行引用可实现更佳的性能，但只能包含对声明中所指定类的引用。

可以将 CreateObject 函数返回的对象传递到预期对象为参数的函数。 例如，使用以下代码创建并传递对 Excel.Application 对象的引用：

Call MySub (CreateObject("Excel.Application"))

可以通过将计算机的名称传递给 CreateObject 的 servername 参数在远程网络计算机上创建对象。 该名称与共享名称的“计算机名称”部分相同;对于名为“\MyServer\Public”的共享， servername 为“MyServer”。

以下代码返回在名为 MyServer 的远程计算机上运行的 Excel 实例的版本号：

Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application", "MyServer")
Debug.Print xlApp.Version

如果远程服务器不存在或不可用，将出现运行时错误。

注意

如果没有对象的当前实例，请使用 CreateObject。 如果对象实例已在运行，则启动新的实例并创建指定类型的对象。 要使用当前实例，或启动应用程序并加载文件，请使用 GetObject 函数。

如果对象本身注册为单实例对象，无论执行多少次 CreateObject 都只创建一个对象实例。

示例

本示例使用 CreateObject 函数来设置对 Microsoft Excel 的引用 (xlApp)。 其通过引用访问 Microsoft Excel 的 Visible 属性，再使用 Microsoft Excel Quit 方法进行关闭。 最后，释放引用本身。

Dim xlApp As Object    ' Declare variable to hold the reference.
    
Set xlApp = CreateObject("excel.application")
    ' You may have to set Visible property to True
    ' if you want to see the application.
xlApp.Visible = True
    ' Use xlApp to access Microsoft Excel's 
    ' other objects.
    ' Closes the application using the Quit method
xlApp.Quit

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。