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

登录注册

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

24小时热门版块排行榜

>论坛更新日志 (4686)
>虫友互识 (1454)
>考研 (1234)
>导师招生 (914)
>文献求助 (214)
>硕博家园 (88)
>休闲灌水 (57)
>考博 (53)
>博后之家 (51)
>论文投稿 (40)
>基金申请 (36)
>教师之家 (28)
>数学 (23)
>找工作 (17)
>科研资料 (16)
>绿色求助(高悬赏) (16)

返回列表

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 ]

回复此楼

» 猜你喜欢

材料085601调剂已经有28人回复
344 材料专业求调剂211 无地域要求已经有8人回复
279求调剂已经有9人回复
求调剂，985材料与化工348分已经有11人回复
一志愿中南大学 0855 机械 286 求调剂已经有8人回复
085600材料与化工349分求调剂已经有6人回复
考研求调剂已经有5人回复
调剂求收留已经有30人回复
297工科，求调剂? 已经有9人回复
0854调剂已经有11人回复

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

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