test.rar

学习学习，谢谢楼主分享

本帖最后由 zhanglin 于 2016-12-27 15:58 编辑

试试这个看看
Dim flowunits as variant
flowunits = array(bfb_LiquidVolume,bfb_mass)
hyBlend.flowbasis.setvalue flowunits
===编辑===
搞错了，flowbasis是只读属性，试试这个
hyblend.flowbasisvalue = flowunits

本帖最后由 nightwish 于 2016-12-28 08:49 编辑

先谢谢你。我试了试。提示拒绝的权限，应该这个也是只读的！附件是代码。能麻烦你能给调试下吗？

我没VB，所以在hysys的宏里面调试了下，下面这段代码是可以实现的：
    HyBlend.AddAssay "cuichai222"
    HyBlend.AddAssay "jiaochai222"
    HyBlend.AddAssay "yuan5"
    HyBlend.FlowBasisValue = Array(bfb_Mass,bfb_Molar,bfb_LiquidVolume)

能留个联系方式吗？在有问题可以请教你