我被困在 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
最佳答案
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
到每个模块,这将使您免于一些很容易避免的运行时错误,将它们移至编译时。
https://stackoverflow.com/questions/74536579/