获取对象的所有属性列表

Question

有没有办法获得给定对象的所有有效属性列表？

如果我想从单元格a1开始，然后分配a1，a2，a3，那么所有有效的属性例如工作表对象都是可以完成的事情吗？我找不到任何：

列表= object.enumproperties

任何想法？

Answer 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