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

Excel 获取对象的所有属性的列表,excel,vba,Excel,Vba,有没有办法获取给定对象的所有有效属性的列表 如果我想从单元格a1开始,向下分配a1、a2、a3,比如说一个工作表对象的所有有效属性,这是可以做到的吗?我找不到: list = object.enumproperties 有什么想法吗?工具-参考-类型库信息 然后: 在对象浏览器中查看(Ctrl+F2)嗯,是的。我知道对象浏览器。但是我需要能够用属性填充一个工作表。我必须从一个隐藏的源下载DLL(和regsvr32),但是子工作非常好,谢谢!在另一个子循环中调用DumpProperties(my

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

如果我想从单元格a1开始,向下分配a1、a2、a3,比如说一个工作表对象的所有有效属性,这是可以做到的吗?我找不到:

list = object.enumproperties

有什么想法吗?

工具-参考-
类型库信息

然后:


在对象浏览器中查看(Ctrl+F2)嗯,是的。我知道对象浏览器。但是我需要能够用属性填充一个工作表。我必须从一个隐藏的源下载DLL(和regsvr32),但是子工作非常好,谢谢!在另一个子循环中调用DumpProperties(myObject)时,我得到了“错误数量的参数”。是否有运行此潜艇的特定方法?@KenIngram没有。你包括吗?我是。撇开帕伦夫妇,我又犯了一个错误。“ActiveX组件无法创建对象”->设置t=New TLI.tliaapplicationyep。我想这就是问题所在。世界跆拳道联盟?所以,只是挂起,无法查看对象属性…jfc
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