| 查看: 2323 | 回复: 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 ] |
回复此楼» 猜你喜欢
版面费该交吗
已经有9人回复
-
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低
已经有13人回复
-
为什么中国大学工科教授们水了那么多所谓的顶会顶刊，但还是做不出宇树机器人？
已经有8人回复
-
面上可以超过30页吧？
已经有4人回复
-
“人文社科而论，许多学术研究还没有达到民国时期的水平”
已经有5人回复
-
什么是人一生最重要的？
已经有4人回复
-
今年春晚有几个节目很不错，点赞！
已经有12人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- aspen plus做萃取的模拟
已经有4人回复
- 帮忙分析下ASPEN PLUS 11.1中的这个错误报告
已经有10人回复
- aspen plus下载
已经有8人回复
- aspen plus练习三：根据实验数据利用aspen plus回归二元交互参数实例
已经有19人回复
- aspen plus第17章的学习
已经有5人回复
- 【讨论】Aspenplus环己烷生产过程模拟-涉及循环物流
已经有24人回复
» 抢金币啦！回帖就可以得到:
-
单曲循环久了很多都会变
+1/413
-
南通大学生物医药方向国家级人才团队招聘教师
+3/122
-
招收桥梁工程方向博士研究生！
+3/116
-
上海交通大学叶天南课题组招聘2026级博士研究生
+1/88
-
广工-董华锋教授团队招收博士生（1学博-0-1专博）
+1/81
-
上海交通大学叶天南课题组招聘2026级博士研究生
+3/49
-
澳门理工大学人工智能智慧康养方向26 年9月入学博士招生有奖学金
+1/43
-
大连海事大学轮机学院尚有博士名额
+2/38
-
邀稿综述，作者排名和工作量分工问题，存在不满和疑问。
+1/18
-
代朋友发 88公务员诚征男友
+1/13
-
新西兰 奥克兰理工大学（AUT）招博士，海藻资源化方向，详情请见如下内容，谢谢！
+1/13
-
博士招生
+1/7
-
英国南安普顿大学禅铎课题组诚招气候动力方向博士后
+1/5
-
南昌大学资源与环境学院刘进教授团队招收2026硕博研究生
+1/5
-
全奖博士 英国利物浦大学+台湾清华大学 双博士学位
+1/5
-
国自然B0706药物化学生物学，需要什么样的文章才能中
+1/4
-
内江师范学院能源转化与储能实验室诚聘博士1-2人
+1/3
-
澳科大招收2026秋纳米医学/生物材料方向全奖博士研究生（3月5日18:00截止）
+1/2
-
【科研助理招聘-北京理工大学-集成电路与电子学院-国家杰青团队】
+1/1
-
武汉理工大学数学与统计学院张秀军教授课题组招收2026级秋季博士研究生
+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