如何在不使用字典的情况下创建动态变量名称？

Question

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

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

Answer 1

是的，对于类，您可以使用CallByName 函数。见这里：CallByName

返回一个类属性，例如：

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

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