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

Question

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

Definitions of property procedures for the same property are inconsistent, or property procedure has an optional parameter, a ParamArray, or an invalid Set final parameter

谁能告诉我是我做错了什么，还是事情就是这样。下面的代码生成上述消息。

测试代码：

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 只能分配给前者。