VBA中的CreateObject如何在VBA中使用CreateObject函数?

VBA中的CreateObject函数

在VBA编码中,对象是非常重要的概念,理解对象的工作模型非常复杂。当我们在VBA编码中引用对象时,我们以两种方式进行操作,即“早期绑定”和“后期绑定”。 “早期绑定”是从VBA的引用库中设置对象引用的过程,当我们将文件发送给其他人时,他们还需要将引用设置为这些对象。但是,“后期绑定”不需要用户设置任何对象引用,因为在后期绑定编码中,我们使用VBA的“ CreateObject”功能将引用设置为各个对象。

什么是Excel VBA中的CreateObject?

顾名思义,“创建对象”将通过Excel VBA创建提到的对象。因此,“创建对象”功能返回对由Active X组件启动的对象的引用。

以下是VBA中CreateObject函数的语法

  • 班级: 我们试图初始化并设置对该变量的引用的对象的名称。
  • [服务器名称]: 这是一个可选参数,如果忽略,它将仅使用本地计算机。

在Excel VBA中创建对象函数的示例

以下是VBA CreateObject的示例。

您可以在此处下载此VBA CreateObject Excel模板– VBA CreateObject Excel模板

范例#1

现在,我们将看到如何使用VBA中的CreateObject函数从excel启动PowerPoint应用程序。打开excel文件,然后按进入Visual Basic编辑器窗口。 ALT + F11 钥匙。

代码:

 子CreateObject_Example1()结束子 

将变量声明为PowerPoint.Application。

正如您在上方看到的那样,当我们开始输入单词“ PowerPoint”时,我们看不到任何智能感知列表显示相关搜索,这是因为“ PowerPoint”是外部对象。但是不必担心将变量声明为“对象”。

代码:

 子CreateObject_Example1()调暗PPT作为对象结尾子 

由于我们已将变量声明为“对象”,因此我们需要使用“设置”关键字来设置对对象的引用。通过输入“ Set”关键字,提及变量并放置等号。

代码:

 Sub CreateObject_Example1()昏暗的PPT作为对象集PPT =结束Sub 

现在打开CreateObject函数。

由于我们将“ PowerPoint”的外部对象引用为 “班级” “创建对象”函数的参数用双引号将外部对象名称提及为“ PowerPoint.Application”。

代码:

 Sub CreateObject_Example1()昏暗的PPT作为对象集PPT = CreateObject(“ PowerPoint.Application”)End Sub 

现在,“创建对象”功能将启动PowerPoint应用程序。对象启动后,我们需要使用变量名使其可见。

创建对象方法或后期绑定方法的问题之一是我们无法及时了解智能感知列表,因此需要绝对确定要编写的代码。

对于变量“ PPT”,请使用“可见”属性,并将状态设置为“真”。

代码:

 Sub CreateObject_Example1()将PPT设置为对象集PPT = CreateObject(“ PowerPoint.Application”)PPT.Visible = True结束Sub 

要将幻灯片添加到PPT,请定义以下VBA代码。

代码:

 Sub CreateObject_Example1()将PPT设置为对象集PPT = CreateObject(“ PowerPoint.Application”)PPT.Visible = True PPT.Presentations.Add End Sub 

现在,手动或通过F5键执行代码,然后打开“ PowerPoint”应用程序。

使用变量“ PPT”启用PowerPoint应用程序后,我们可以开始访问PowerPoint应用程序。

范例#2

现在,我们将看到如何使用VBA中的CreateObject函数来启动Excel应用程序。再次将变量声明为“对象”。

代码:

 Sub CreateObject_Example2()将ExcelSheet设置为对象结尾Sub 

当我们将变量声明为对象时,它会导致后期绑定,因此我们需要使用“ Set”关键字来设置所需对象的引用。

由于我们从excel应用程序中引用excel工作表,因此请在双引号中输入“ Excel.Sheet”。

代码:

 Sub CreateObject_Example2()将ExcelSheet设置为对象集ExcelSheet = CreateObject(“ Excel.Sheet”)End Sub 

设置Excel工作表的引用后,我们需要使它可见以使用它。这类似于我们使PowerPoint应用程序可见的方式。

代码:

 Sub CreateObject_Example2()将ExcelSheet设置为对象集ExcelSheet = CreateObject(“ Excel.Sheet”)ExcelSheet.Application.Visible = True End Sub 

现在它将激活excel工作表。

同样,要从其他Microsoft产品启动excel工作簿,我们可以使用以下代码。

代码:

 Sub CreateObject_Example3()将Dim ExlWb设置为对象集ExlWb = CreateObject(“ Excel.Application”)ExlWb.Application.Visible = True End Sub 

有关VBA中CreateObject的注意事项

  • 在VBA中,CreateObject函数用于引用对象。
  • 创建对象功能导致后期绑定过程。
  • 使用创建对象功能,我们无法访问VBA的智能列表。