在 excel 中开发一个接口以访问 SCADA 应用程序中的数据库(施耐德的 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 并获取与对象关联的所有属性的数组。
我目前解决这个问题的方法是对与对象关联的所有属性进行硬编码,并使用“案例选择”语句并将它们打印到 excel 中。此方法不是动态的,并且不能解决使用 .xml 文件添加的新属性的问题。
我认为这个问题可能与在对象上使用诸如“列表”之类的方法来查找属性的能力有关。
愿意写一些 C 来从另一个角度解决这个问题。只要朝着正确的方向推进就太好了!!
构建细节:
Excel 2016 Microsoft Visual Basic 应用程序 7.1 VBA:零售 7.1.1056