版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

汕头大学海洋科学接受调剂

返回列表

zhchh008

金虫 (正式写手)

应助: 13 (小学生)
金币: 1602.2
帖子: 835
在线: 202.7小时
虫号: 99456

[交流] 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 ]

回复此楼

» 猜你喜欢

求调剂已经有12人回复
通信工程求调剂！！！已经有4人回复
材料工程085601，270求调剂已经有46人回复
药学305求调剂已经有5人回复
一志愿211，化学310分，本科重点双非，求调剂已经有24人回复
272分材料子求调剂已经有54人回复
085500求调剂材料已经有11人回复
291分调剂已经有7人回复
291 求调剂已经有37人回复
一志愿中国科学院上海有机所，有机化学356分找调剂已经有13人回复

» 本主题相关价值贴推荐，对您同样有帮助:

aspen plus做萃取的模拟已经有4人回复
帮忙分析下ASPEN PLUS 11.1中的这个错误报告已经有10人回复
aspen plus下载已经有8人回复
aspen plus练习三：根据实验数据利用aspen plus回归二元交互参数实例已经有19人回复
aspen plus第17章的学习已经有5人回复
【讨论】Aspenplus环己烷生产过程模拟-涉及循环物流已经有24人回复

» 抢金币啦！回帖就可以得到:

查看全部散金贴

1楼 2011-11-02 06:05:53

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

kukoob

铁杆木虫 (知名作家)

应助: 235 (大学生)
金币: 6706.5
帖子: 7388
在线: 550.5小时
虫号: 1213175

★ ★
小木虫(金币+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人)