VBA Excel:编译错误:需要对象？

Question

我得到一个VBA Excel'编译器错误:需要对象' - 标记行中出错.我不明白原因.

顺便说一句:希望Excel支持没有包装需求的.Net语言.

Option Explicit

Public Type Inherit
    ReqId As Integer
    Parent As Integer
    Depth As Integer
    Path As String
End Type

Sub test()
    Dim MyStructure() As Inherit
    ReDim MyStructure(1 To 1000)

    MyStructure(1).ReqId = 1

    Dim Data, refData As Inherit
    Set Data = MyStructure(1)  ' <---! 
    Beep

End Sub

Answer 1

Set用于对象的赋值,用户定义的类型被视为常规变量,因此用于=赋值.

另外(令人困惑); Dim Data, refData As Inherit只声明refData类型Inherit声明它们必须在一行上;Dim Data As Inherit, refData As Inherit