24小时热门版块排行榜

返回列表

zhchh008

金虫 (正式写手)

应助: 13 (小学生)
金币: 1471.7
帖子: 837
在线: 203.3小时
虫号: 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 ]

回复此楼

» 猜你喜欢

27年博士招生信息已经有7人回复
无聊看看时间戳打发时间已经有6人回复
无聊看看filecode 已经有8人回复
求推荐期刊，重谢已经有4人回复
有机能跨方向申博吗已经有3人回复
求助！！已经有4人回复
kh550接枝Sio2失败求助已经有3人回复
职称论文投稿已经有12人回复
反应求助已经有6人回复
基于自然哲学类比的风化壳型稀土矿已经有16人回复

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

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人)