获取对象的所有属性的列表

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

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

list = 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