| 查看: 2426 | 回复: 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 ] |
回复此楼» 猜你喜欢
梦想
已经有7人回复
-
学科评审组评审是指会评吗？
已经有4人回复
-
面上合作单位盖章
已经有8人回复
-
面上函评意见出来了，像什么等级？
已经有15人回复
-
为什么资助数各大高校都创新高，自己申请怎么就这么难
已经有14人回复
-
小白求助 投论文要求的highlights应该如何写
已经有4人回复
-
麻烦专家们看看评委们的意见（F口面上）
已经有12人回复
-
怎么看青基中了没有啊
已经有6人回复
-
国社科又开始会评了，不知道这次命运如何
已经有11人回复
-
有多少人是今天查系统知道结果的？
已经有19人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- aspen plus做萃取的模拟
已经有4人回复
- 帮忙分析下ASPEN PLUS 11.1中的这个错误报告
已经有10人回复
- aspen plus下载
已经有8人回复
- aspen plus练习三：根据实验数据利用aspen plus回归二元交互参数实例
已经有19人回复
- aspen plus第17章的学习
已经有5人回复
- 【讨论】Aspenplus环己烷生产过程模拟-涉及循环物流
已经有24人回复
» 抢金币啦！回帖就可以得到:
-
【IEEE列表会议征稿 】2026年第六届控制理论与应用国际会议（ICoCTA 2026）
+5/865
-
基金高中！
+1/594
-
优质男征女友
+1/469
-
double accept!!
+5/200
-
【以色列理工学院全额奖学金硕博士招生】王燕课题组 · 柔性生物界面实验室
+2/116
-
东华大学-上海交通大学医学院附属第九人民医院诚招联合培养博士研究生（2027年入学）
+1/99
-
天平合规性问题
+1/92
-
锡基钙钛矿｜超低水氧惰性环境，解锁无铅光伏技术攻关路径
+1/92
-
【半导体薄膜代工】ALD/CVD/磁控溅射/热蒸发全工艺
+1/88
-
大湾区大学刘天辉课题组招收2027级博士生（与中山大学物理学院联合培养）
+1/42
-
大湾区大学刘天辉课题组招收2027级博士生（与中山大学物理学院联合培养）
+1/42
-
山东大学-山东字节信息智能技术实验室2026年招聘博士后
+2/22
-
评职称需要，卖发明专利了:D有技术储备需求的设备厂商可联系
+1/19
-
浙江大学物理高等研究院袁怀洋课题组诚聘博士和博士后
+1/15
-
中国药科大学陈达威课题组招收2027年博士研究生 （药理学）
+1/10
-
南方科技大学环境科学与工程学院陈洪副教授课题组2026年科研助理招聘启事
+1/4
-
联合培养学生招聘-硕博均可
+1/2
-
项目助理招聘启事
+1/2
-
义翘神州TR-FRET激酶检测试剂盒助力高通量药物筛选
+1/1
-
义翘神州TR-FRET激酶检测试剂盒助力高通量药物筛选
+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
投票:
