vba - 如何在 VBA 中处理对象声明(错误 91)

Question

我被困在 VBA 中，在与错误 91 相关的其他问题中找不到好的答案。我想创建一个对象并在该对象中存储变量和数组。我尝试了一种方法，就像我在 js 中所做的那样:

Dim block As Object
...
Set block = Nothing
block.Name = "Unbekannter Prüfblock"
block.Awf = "Unbekannter Anwendungsfall"
block.Conditions = Array()
block.Checks = Array()

我使用“Set block = Nothing”因为我会在一个循环中多次使用它。

但我得到的只是错误 91 - 未设置对象变量

如何设置对象？我真的必须在 vba 中声明所有内容吗？不是有一个“停止用声明通知烦我”的开关吗？ ;-)

更新

非常感谢大家的详细解答!

按照建议，我为“ block ”创建了一个类，还为“条件”和“检查”创建了一个类。 block 例如:

Option Explicit

Public name As String
Public awf As String
Public conditions As Collection
Public checks As Collection

然后我像这样在我的代码中使用它:

Dim bl As Block
Dim co As Condition
Dim ce As Check

Set bl = New Block
bl.name = ws.Range("B" & i).value
bl.awf = ws.Range("B" & i).value

Set co = New Condition
co.attr = ws.Range("B" & i).value
co.value = ws.Range("C" & i).value
bl.conditions.Add co

Answer 1

VBA 不是 Javascript；对象及其成员不能内联创建，它们需要类定义。

当您对一个对象进行成员调用时，您通过名称引用它，每当该名称引用空引用(Nothing)时，您将收到错误 91。

要修复它，您需要确保每个成员调用都是针对有效的对象引用进行的。使用 Set 关键字，您可以分配这样的引用，要创建对象的新实例，您可以使用 New 关键字，后跟定义对象的类的名称输入您想要的新实例:

Dim Block As Object
Block.Something = 42 ' Error 91

Set Block = New SomeClass ' set reference 
Block.Something = 42 ' OK

请注意，因为对象被声明为As Object，所以每个成员调用都是后期绑定(bind)的(在运行时解析)；如果该成员不存在(或者有拼写错误)，您将在运行时收到错误 438。

您可以通过为声明使用更具体的数据类型，将此错误移到具有早期绑定(bind)的编译时:

Dim Block As SomeClass

因为 SomeClass 的成员在编译时已知，IDE 现在会在您键入成员调用时为您提供一个成员完成列表，并且拼写错误在编译时将不再有效:努力保持在尽早进入境界!注意:As Variant(显式或非显式)也同样是后期绑定(bind)。

所以我们添加了一个新的类模块并将其命名为 SomeClass 并且我们添加了几个公共(public)字段:

Option Explicit
Public Name As String
Public Case As String 
Public Condition As Variant
Public Check As Variant

现在您可以创建和使用该类的新实例，并将其实例添加到集合中以供稍后处理(注意:您不能使用 UDT/Type 执行此操作) .

VBIDE 设置有一个恼人的选项(“自动语法检查”，IIRC)，当当前行出现编译错误时，它会立即弹出一个消息框；取消选中它(无效行将显示为红色，没有消息框)，但确实选中了“需要变量声明”设置:它将添加 Option Explicit 到每个模块，这将使您免于一些很容易避免的运行时错误，将它们移至编译时。