在excel中开发接口以访问SCADA应用程序中的数据库（由Schneider提供的clearSCADA）
需要能够在excel后面的Visual Basic中列出对象的所有属性。
基于像“InService”这样的属性列出所有对象非常简单。并创建一个包含所有对象的数组。
Set oPnts = myFolder.List("CDBObject")
For Each item In oPnts
Set oObj = oServ.FindObject(oPnts.item(Count + 1).FullName)
Next Item
但我无法列出对象的所有属性。像CNDP3AnalogIn。
我想做这样的事情。 oObj.list并获取与object关联的所有属性的数组。
我如何解决这个问题目前是硬编码与对象相关的所有属性并使用'case select'语句并将它们打印到excel。此方法不是动态的，并且无法解决使用.xml文件添加的新属性的问题。
我认为这个问题可能与在对象上使用诸如'list'之类的方法来查找属性的能力有关。
愿意从另一个角度编写一些C来解决这个问题。只是推动正确的方向将是伟大的！
构建详细信息：
Excel 2016 Microsoft Visual Basic For Application 7.1 VBA：零售7.1.1056