| 查看: 2342 | 回复: 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 ] |
回复此楼» 猜你喜欢
366求调剂
已经有9人回复
-
材料工程085601，270求调剂
已经有37人回复
-
279学硕食品专业求调剂院校
已经有18人回复
-
290调剂生物0860
已经有31人回复
-
一志愿085802 323分求调剂
已经有13人回复
-
277求调剂
已经有23人回复
-
322求调剂，08工科
已经有4人回复
-
材料工程281还有调剂机会吗
已经有30人回复
-
化学070300 求调剂
已经有16人回复
-
化工学硕294分，求导师收留
已经有12人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- aspen plus做萃取的模拟
已经有4人回复
- 帮忙分析下ASPEN PLUS 11.1中的这个错误报告
已经有10人回复
- aspen plus下载
已经有8人回复
- aspen plus练习三：根据实验数据利用aspen plus回归二元交互参数实例
已经有19人回复
- aspen plus第17章的学习
已经有5人回复
- 【讨论】Aspenplus环己烷生产过程模拟-涉及循环物流
已经有24人回复
» 抢金币啦！回帖就可以得到:
-
小木虫又回来了，可喜可贺
+5/400
-
陕科大环境学院招收0857和0830调剂考生【新增名额，最后一次，可跨门类】
+3/300
-
2026年一战成硕的绝佳机会，青岛农大草业学院仍有大量调剂名额
+2/238
-
郑州人在北京，真诚找对象，非诚勿扰
+1/167
-
2007年一起玩耍的老虫子们，想死你们啦~~~出来冒个泡吧……
+1/162
-
江苏海洋大学接受生物学相关背景的研究生调剂
+2/136
-
四川农业大学（211和双一流）土木学院2026年市政工程（学硕）调剂2名
+1/89
-
华南理工大学微电子学院招博士研究生
+1/88
-
征位互相欣赏、双向奔赴、同甘共苦、安度余生的伴侣
+1/75
-
西安交通大学陕西省科技创新团队常年招聘博士生，每年1-2个名额。
+1/39
-
湖南师范大学药物分析学2026年硕士研究生调剂
+1/11
-
广东石油化工学院生物与医药专硕仍有部分调剂名额，欢迎农，工，理和医学的同学调剂。
+1/11
-
教育部长江学者和创新团队发展计划”入选团队招收 材料与化工硕士研究生（工科）
+1/9
-
河北大学招收生物与医药专业调剂考生
+1/8
-
福建理工大学学硕专业代码08开头还有调剂名额
+1/5
-
福建理工大学材料学院招收专业代码08开头学术型硕士研究生
+1/4
-
上海市过程安全与智能控制重点实验室招收安全工程研究生调剂-上岸既是高质量就业！
+1/4
-
福建理工大学材料学院招收专业代码08开头学术型硕士研究生
+1/3
-
大连工业大学食品交叉科学研究院招收调剂研究生
+1/1
-
哈尔滨林业机械研究所吴老师方向收调剂学生，要求08学硕 四级国家线。
+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
