将类属性设置为 VBA 中的类？

debugcn 发表于 Dev

爸爸

不确定如何以书面形式表达这一点，但我会尝试，如果您需要更多解释，请告诉我？

我正在尝试将类属性（定义为自定义类对象类型）设置为具有相同类类型的已定义变量。问题是我收到此错误：

Run-time error '91': Object variable or With block variable not set

所以，假设我们有这两个类：

MT940消息

Public BasicHeaderInput As String
Public ApplicationHeaderInput As String
Public Trailer As String
Public Text As MT940TextObject

MT940 文本对象

Public TransactionReferenceNumber As String
Public RelatedReference As String
Public AccountIdentification As String
Public StatementNumber As String
Public OpeningBalance As String
Public StatementLine As String
Public InformationToAccountOwner As String
Public ClosingBalance As String
Public ClosingAvailableBalance As String
Public ForwardAvailableBalance As String
Public InformationToAccountOwner2 As String

然后我正在做类似的事情

Dim message As MT940Message
Set message = New MT940Message

Dim newTextObject As MT940TextObject
Set newTextObject = New MT940TextObject


newTextObject.TransactionReferenceNumber = "ref123"
newTextObject.RelatedReference = "rel123"
newTextObject.AccountIdentification "456677"

message.ApplicationHeaderInput = "abc"
message.BasicHeaderInput = "def"
message.Trailer = "ghi"
message.Text = newTextObject ' this causes Run-time error '91'

当我调试message.Text等于Nothing.

保持目标

由于该.Text属性是对象引用，请尝试使用Set诸如：

Set message.Text = newTextObject.

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。