| 查看: 2441 | 回复: 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文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有4人回复
-
上海工程技术大学 激光智能制造课题组 2027级博士研究生招生
已经有6人回复
-
课题组招2027级博士 上海工程技术大学 激光智能制造方向
已经有6人回复
-
现代”学阀”该如何界定
已经有14人回复
-
求合成方法
已经有8人回复
-
师弟论文见刊大半年才想起来申请专利，还能抢救一下吗？
已经有4人回复
-
有机合成以后会不会被AI改变？做科研的虫友怎么看
已经有8人回复
-
我的奶奶
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- aspen plus做萃取的模拟
已经有4人回复
- 帮忙分析下ASPEN PLUS 11.1中的这个错误报告
已经有10人回复
- aspen plus下载
已经有8人回复
- aspen plus练习三：根据实验数据利用aspen plus回归二元交互参数实例
已经有19人回复
- aspen plus第17章的学习
已经有5人回复
- 【讨论】Aspenplus环己烷生产过程模拟-涉及循环物流
已经有24人回复
» 抢金币啦！回帖就可以得到:
-
2027年生物医学、农业与可持续发展国际会议（BASD 2027）
+1/844
-
2027年计算机视觉、设计与非遗文化传播国际会议（CVDC 2027）
+1/815
-
南方科技大学力航系急招收纳米材料、力学、机械等方向推免硕士研究生两名
+1/101
-
转让有机合成实验室设备
+1/95
-
半导体器件与能源催化—哈工大深圳校区红外薄膜与晶体团队招收博士生
+1/92
-
苏州国家实验室-南京大学联合培养博士招生
+5/80
-
上海985大学专排第一的学院紧急招3位保研生做物理世界模型
+1/14
-
北京理工大学集成电路与电子学院招聘 | 副研究员 | 博士后 | 科研助理
+1/14
-
废油资源化教育部工程中心 诚聘催化方向特聘研究员
+1/10
-
北航化学院彭勇教授招2027收硕士博士生
+1/10
-
哈尔滨工业大学院士团队（环境、材料、化学、化工领域）招收 硕士/博士
+1/9
-
大湾区大学姚瑶课题组2027届博士生招生 （与中山大学联合培养）
+1/6
-
CAR表达怎么测？定点荧光标记蛋白让流式细胞检测更直接
+1/3
-
从靶点发现到机制验证，肿瘤免疫治疗研究为什么离不开高质量抗体？
+1/2
-
中山大学中山医学院(深圳校区)-肿瘤细胞生物课题组招收联培（客座）硕士/博士生
+1/2
-
Runninghub平台RH币算力币充值
+1/2
-
CD8⁺T 细胞：从活化到耗竭的功能演变及标志物检测策略
+1/1
-
LightGBM、XGBoost梯度提升与RAG向量数据库——数据科学与智能服务工程
+1/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