Excel 2010 vba数组作为类成员错误

Question

我正在做一个项目，遇到了一些我不明白的事情。将数组分配给类成员时，Let 和 Get 名称不能相同。如果是，我会收到错误:

同一属性的属性过程定义不一致，或者属性过程有可选参数、ParamArray 或无效的 Set Final 参数

谁能告诉我我是否只是做错了什么，或者这就是事实。下面的代码生成上述消息。

测试代码:

Sub loadServer()
Dim testServer As AvayaServer
Dim i As Long
Dim arr() As Variant

arr = Array("1", "2", "3", "4", "5")

Set testServer = New AvayaServer
testServer.Name = "This Sucks"
testServer.Skill = arr
MsgBox testServer.Skills(4)
MsgBox testServer.Name

End Sub

类代码:

Private pName As String
Private pSkills() As String
Public Property Get Skills() As Variant
Skills = pSkills()
End Property

Public Property Let Skills(values() As Variant)
ReDim pSkills(UBound(values))
Dim i As Long
For i = LBound(values) To UBound(values)
    pSkills(i) = values(i)
Next
End Property

Answer 1

将 values() As Variant 更改为 values As Variant:

类别代码:

Private pName As String
Private pSkills() As String
Public Property Get Skills() As Variant
Skills = pSkills()
End Property

Public Property Let Skills(values As Variant)          'Fixed here
ReDim pSkills(UBound(values))
Dim i As Long
For i = LBound(values) To UBound(values)
    pSkills(i) = values(i)
Next
End Property

说明:

values As Variant 将是 Variant 类型，稍后您将用它来存储数组。 values() As Variant 是一个 Variant 类型的数组，不能为其分配 Array ； Array 只能分配给前者。