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

登录注册

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

24小时热门版块排行榜

>论坛更新日志 (4557)
>基金申请 (805)
>休闲灌水 (755)
>招聘信息布告栏 (629)
>导师招生 (337)
>文献求助 (310)
>虫友互识 (230)
>论文投稿 (196)
>考博 (102)
>学术会议 (80)
>有奖起名 (79)
>硕博家园 (78)
>博后之家 (69)
>论文道贺祈福 (52)
>教师之家 (40)
>找工作 (39)

返回列表

zhchh008

金虫 (正式写手)

应助: 13 (小学生)
金币: 1596.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 ]

回复此楼

» 猜你喜欢

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

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