Проблема с массивом объектов в качестве свойства объекта в VBA Excel 2010

Question

Private oiCustoms() As CCustomClass
Public Property Get Partners() As CCustomClass()
    Set Partners() = oiCustoms()
End Property

Public Property Set Partners(values() As CCustomClass)
    ReDim oiPartners(values.Count)
    Set oiCustoms() = values()
End Property

Когда я пытаюсь запустить, я получаю ошибку компиляции: определения процедур свойств для одного и того же свойства противоречивы, или у свойства proc есть n необязательных параметров, ParamArray или недопустимый последний параметр.1003 * Что здесь не так?Я немного посмотрел, и похоже, что я не могу использовать массив в качестве параметра свойства.Это правильно?Любые хорошие обходные пути.Мне нужно, чтобы эти данные были сохранены в массиве для использования в другом месте.

Answer 1

Вы путаете массивы с объектами.

Private oiCustoms() As CCustomClass
Public Property Get Partners() As CCustomClass()
    Partners = oiCustoms
End Property

Public Property Let Partners(values() As CCustomClass)
    ReDim oiPartners(LBound(values) To UBound(values))
    oiCustoms = values
End Property