0

在 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

4

0 回答 0