0

我正在将 Excel 与 Aspen Hysys 链接，这允许我从第二个导入数据。Hysys 具有包含 Stream 对象在内的三个对象的大层次结构。Stream 对象包含温度、蒸气分数等变量，我通过对象语法访问它们，如下所示：

Dim hyApp As HYSYS.Application
Dim hyCase As HYSYS.SimulationCase
Dim hyStream As HYSYS.Streams
Dim temperature As Double

Set hyApp = CreateObject("HYSYS.Application")
Set hyCase = hyApp.ActiveDocument
Set hyStream = hyCase.Flowsheet.MaterialStreams.Item(0)
temperature = hyStream.TemperatureValue

现在，如果我需要，VaporFraction我需要执行以下操作：

Dim vaporFraction As Double
vaporFraction = hyStream.VaporFractionValue

但是，如果我需要其他属性怎么办？还是需要 100 个属性？

有没有办法将字符串（存储在单元格中）转换为变量名。我理解使用字典的概念。但在这种情况下，它不起作用。

我期望的是这样的：

properties = ("Temperature", "VaporFraction")
For Each property in properties
    createVaribleName(property + "Value")
Next property
4

1 回答 1

4

是的，对于类，您可以使用该CallByName功能。见这里：CallByName

返回一个类属性，例如：

Dim MyCollection As Collection: Set MyCollection = New Collection
MyCollection.Add "A"
MyCollection.Add "B"
Debug.Print CallByName(MyCollection, "Count", VbMethod)

如果您正在使用在标准模块中编写的代码，请查看Application.Run.

于 2018-12-30T01:58:49.367 回答