獲取對象的所有屬性列表

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