| 查看: 2400 | 回复: 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 ] |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有4人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有4人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有5人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有5人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有5人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有5人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有4人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- aspen plus做萃取的模拟
已经有4人回复
- 帮忙分析下ASPEN PLUS 11.1中的这个错误报告
已经有10人回复
- aspen plus下载
已经有8人回复
- aspen plus练习三：根据实验数据利用aspen plus回归二元交互参数实例
已经有19人回复
- aspen plus第17章的学习
已经有5人回复
- 【讨论】Aspenplus环己烷生产过程模拟-涉及循环物流
已经有24人回复
» 抢金币啦！回帖就可以得到:
-
乙二醇二甲基环硅醚（CAS：57915-66-9）
+1/87
-
1-甲基-1,2-双(三甲基硅氧基)乙烷（CAS：17887-27-3）
+1/86
-
2-氯-1,3,2-二氧磷杂环戊烷（CAS：822-39-9）
+1/86
-
1,2-双(三甲基硅氧基)乙烷（CAS：7381-30-8 ）
+1/85
-
三(三甲基硅烷)磷酸酯（CAS：10497-05-9）
+1/83
-
四(三甲基硅基)赤藓醇醚（CAS：18547-29-0 ）
+1/81
-
具身智能机器人公司招聘机械结构岗位（工程师、专家、负责人均可）薪酬最高150万
+1/80
-
香港城市大学郑星课题组诚聘博士后 (生态学、环境科学、植物学、大气科学背景)
+1/78
-
南京大学医工交叉方向薛璐璐团队招聘脂质纳米材料与RNA递送方向博士后1-2名
+1/73
-
2027 Chemical Engineering Ph.D 招生
+1/39
-
上海交通大学诚聘有机化学方向博士生/科研助理
+1/29
-
哈工大（深圳）何自开团队诚招化学工程与技术专业博士生
+1/27
-
希望大家都高中！！
+1/7
-
香港理工大学殷骏课题组诚聘1 名博士后以及2 名博士生
+1/5
-
北理工集成电路杰青团队 | 诚招科助理
+1/4
-
高弯曲强度玻璃制品的特殊加工工艺
+1/3
-
请大家抽空欣赏一下我们网站的配图
+1/3
-
北理工集成电路杰青团队 | 诚招科助理
+1/2
-
27届申博求助
+1/1
-
POSTDOCTORAL POSITION in Structural Virology at the University of Minnesota
+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
