Получить список всех свойств объекта

Есть ли способ получить список всех допустимых свойств для данного объекта?

Если бы я хотел начать работу с ячейкой a1 и спуститься вниз и назначить a1, a2, a3 все допустимые свойства, например, например, например, объект рабочего листа, это то, что можно сделать? Я не могу найти:

list = object.enumproperties

Любые идеи?

Ответы

Ответ 1

Инструменты - Ссылки - TypeLib Information.

Тогда:

Sub DumpProperties(ByVal o As Object)

  Dim t As TLI.TLIApplication
  Set t = New TLI.TLIApplication

  Dim ti As TLI.TypeInfo
  Set ti = t.InterfaceInfoFromObject(o)

  Dim mi As TLI.MemberInfo, i As Long
  For Each mi In ti.Members
    i = i + 1
    ActiveSheet.Cells(i, 1).Value = mi.Name
  Next

End Sub