CreateObject 函数

重要:  本文是由机器翻译的,请参阅免责声明。请在 此处 中查找本文的英文版本以便参考。

注意: 如果 Microsoft Jet 表达式服务运行在沙盒模式下,可防止潜在不安全的表达式的求值,则禁用函数、 方法、 对象或本主题中介绍的属性。沙盒模式的详细信息,"沙盒模式"中搜索帮助。

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

语法

CreateObject [、 servername] )

CreateObject函数语法具有以下参数︰

参数

说明

必填。变体(字符串)。应用程序名称和类要创建的对象中。

服务器名称

可选。变体(字符串)。将在其中创建该对象的网络服务器的名称。如果服务器名为空字符串 (""),则使用本地计算机。


参数使用语法应用程序名.对象类型,包含以下部分︰

部分

说明

应用程序名

必填。变体(字符串)。提供该对象的应用程序名称。

对象类型

必填。变体(字符串)。若要创建的类型或类的对象。


注解

每个应用程序支持自动化提供至少一种类型的对象。例如,word 处理应用程序可能会提供应用程序对象、文档对象和工具栏对象。

若要创建 ActiveX 对象,分配到对象变量CreateObject返回的对象︰

注意: 下面的示例说明使用此函数在 Visual Basic for Applications (VBA) 模块。有关处理 VBA 的详细信息,搜索旁边的下拉列表中选择开发人员参考,然后在搜索框中输入一个或多个术语。

' 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 Office Excel 2007电子表格。创建对象后,您可以在代码中使用您定义的对象变量引用它。在下面的示例中,您可以访问属性和使用对象变量、 ExcelSheet和其他 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 变量例如,您可以声明并创建以下 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服务器名参数传递的计算机的名称的网络的远程计算机上创建对象。该名称是一个共享名称的计算机名称部分相同︰ 对于 \\MyServer\Public 共享名"",服务器名称是"MyServer"。

注意: 请参阅 COM 文档 (请参阅Microsoft 开发人员网络) 上进行远程网络计算机上的应用程序可见的其他信息。您可能需要添加注册表项的应用程序。

下面的代码返回名为MyServer远程计算机上运行的版本的 Excel 实例数︰

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

如果远程服务器不存在或不可用,则运行时将发生错误。

注意: 当没有对象的当前实例,请使用CreateObject 。如果已经运行对象的实例,启动一个新实例,并创建特定类型的对象。要使用的当前实例,或者要启动应用程序,并使其加载文件,请使用GetObject函数。

如果对象已注册本身作为单个对象,仅创建一个实例的对象,无论执行CreateObject次数。

示例

此示例使用CreateObject函数来设置引用 (

xlApp

) 到 Excel。它将使用的引用访问的 Excel 中,可见属性,然后使用 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.
xlApp.Quit ' When you finish, use the Quit method to close
Set xlApp = Nothing ' the application, then release the reference.

注意: 机器翻译免责声明:本文是由无人工介入的计算机系统翻译的。Microsoft 提供机器翻译是为了帮助非英语国家/地区用户方便阅读有关 Microsoft 产品、服务和技术的内容。由于机器翻译的原因,本文可能包含词汇、语法或文法方面的错误。

扩展你的技能
了解培训
抢先获得新功能
加入 Office 预览体验计划

此信息是否有帮助?

谢谢您的反馈!

谢谢你的反馈! 可能需要转接到 Office 支持专员。

×