Obtenir la liste de toutes les propriétés d'un objet

Est-il possible d'obtenir une liste de toutes les propriétés d'un objet donné?

Si je voulais commencer à la cellule a1, et de descendre et de s'attribuer a1, a2, a3, toutes les propriétés valides pour disons un objet de feuille de calcul par exemple, c'est quelque chose qui peut être fait? Je ne peux pas trouver tout:

liste = objet.enumproperties

Des idées?

source d'informationauteur user2021539

  1. 17

    Outils - Références - TypeLib Information.

    Alors:

    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