Wyświetl listę wszystkich właściwości obiektu

Question

Czy istnieje sposób uzyskania listy wszystkich poprawnych właściwości dla danego obiektu?

Jeśli chciałbym zacząć od komórki a1, a następnie przejść w dół i przypisać a1, a2, a3, wszystkie poprawne właściwości, powiedzmy na przykład obiekt arkusza, czy to jest coś, co można zrobić? Nie mogę znaleźć żadnego:

list = object.enumproperties

Jakieś pomysły?

Answer 1

Narzędzia - Referencje - TypeLib Information.

Następnie:

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