| 查看: 2366 | 回复: 1 | |||
[交流]
excel VBA 控制 aspen plus
|
|
在excel控制 aspen plus simulation的时候，想在excel某一单元格循环赋值，然后通过aspen的solver返回计算结果，并把计算结果copy到excel指定栏。 问题是：想用VBA的for语句，循环调用aspen workbook的宏，来执行“运行模型”命令。可是返回的结果全部一样，而且是最后一次赋值后计算所得的结果，之前的被覆盖了。请高手解决这个问题，谢谢。 语句如下： Option Explicit Option Base 1 Sub arr() Dim x As Integer, y As Integer, i As Integer Dim arr（4, 2) As Double For x = 1 To 4 For y = 1 To 2 arr(x, y) = Cells(x, y + 11) ' 把单元格区域的数据赋值到数组 Next y Next x For i = 1 To 4 Cells(2, 2) = arr(i, 1) ' assign row 1, col i of arr to cells(2,2) ‘把数组的值顺序赋值给 Cells(3, 2) = arr(i, 2) ' assign row 2, col i of arr to cells(3,2) ’指定单元格 ASWRunSynchActiveSimulation ‘调用aspen plus进行计算 Cells(i, 13) = Cells(4, 2).Value ’ 结果赋值到指定列 Next i End Sub Sub ASWRunSynchActiveSimulation() Application.Run ("AspenSimulationWorkbook.xla!ASWRunSynchActiveSimulation"  End Sub [ Last edited by zhchh008 on 2011-11-2 at 07:29 ] |
回复此楼» 猜你喜欢
评审感受-评审感受-评审感受
已经有18人回复
-
这年头没有找到涵评专家，还有中面上的可能吗
已经有10人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
-
青C资助名额大幅增加！
已经有14人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有4人回复
-
风把牡丹吹跑了
已经有7人回复
-
教学课件你会给同学吗
已经有8人回复
-
26应届毕业生考博求助
已经有3人回复
-
重磅！青年科学基金项目（C类）资助增幅预计超过50%
已经有7人回复
-
求助2，4-二氯-5-嘧啶甲醛的合成方法
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- aspen plus做萃取的模拟
已经有4人回复
- 帮忙分析下ASPEN PLUS 11.1中的这个错误报告
已经有10人回复
- aspen plus下载
已经有8人回复
- aspen plus练习三：根据实验数据利用aspen plus回归二元交互参数实例
已经有19人回复
- aspen plus第17章的学习
已经有5人回复
- 【讨论】Aspenplus环己烷生产过程模拟-涉及循环物流
已经有24人回复
» 抢金币啦！回帖就可以得到:
-
河南大学化学与分子科学学院博士招生
+2/428
-
😭救救孩子的毕业论文吧💰有偿招募访谈对象丨延期学术型博士生
+1/291
-
济南大学化学化工学院泰山学者张昭良教授招收2026年师资博士后和科研博士后
+1/82
-
有偿招募访谈对象丨延期学术型博士生
+1/74
-
谷歌学术引用量
+1/29
-
2026年重庆大学药学院有机化学方向博士研究生第三批招生
+1/29
-
中国科学院国家级人才团队科研助理招聘启示
+1/19
-
岩土团队招收博士研究生
+1/14
-
杨亚研究员课题组（广西大学-纳米能源研究中心）招收2026年物理学专业学术型博士
+1/7
-
河南省多酸制备与应用重点实验室招收2026级博士1名。
+1/7
-
中科院力学所CAE科研助理招聘
+1/6
-
博士后招聘（高薪40万+）
+1/5
-
谷歌学术引用量增长
+1/5
-
山东大学集成电路学院招收2026年9月入学的博士研究生
+1/5
-
华侨大学（厦门）——急招化工/材料/化学/能动——26年9月份博士
+1/5
-
华侨大学（厦门）——急招化工/材料/化学/能动——26年9月份博士
+1/5
-
机器人关节电机、减速器、灵巧手等方向招聘，薪酬优渥
+1/5
-
机器人关节电机、减速器、灵巧手等方向招聘，薪酬优渥
+1/5
-
中国水产科学研究院黄海水产研究所渔业环境与生物修复研究室招聘科研助理1名
+1/1
-
【已入职｜急需医学类（全路径）博士、】有偿访谈招募
+1/1
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
zhchh008(金币+1): 那是输入错误，用F8测试过，可以正确的将数据赋给指定单元格，谢谢 2011-11-02 07:29:21
臭水沟(金币+1): 谢谢交流~~ 2011-11-02 09:23:00
小木虫(金币+0.5):给个红包，谢谢回帖
zhchh008(金币+1): 那是输入错误，用F8测试过，可以正确的将数据赋给指定单元格，谢谢 2011-11-02 07:29:21
臭水沟(金币+1): 谢谢交流~~ 2011-11-02 09:23:00
|
Cells(2, 2) = arr(i, 1) ' assign row 1, col i of arr to cells(2,2) ‘把数组的值顺序赋值给 Cells(3, 2) = arr(i, 2) ' assign row 2, col i of arr to cells(2,2) ’指定单元格 这个地方有问题！ |
2楼2011-11-02 07:19:18
精华III:
