Znn3bq.jpeg
ÉÇÍ·´óѧº£Ñó¿ÆÑ§½ÓÊܵ÷¼Á
²é¿´: 2343  |  »Ø¸´: 1

zhchh008

½ð³æ (ÕýʽдÊÖ)


[½»Á÷] excel VBA ¿ØÖÆ aspen plus

ÔÚexcel¿ØÖÆ aspen plus simulationµÄʱºò£¬ÏëÔÚexcelijһµ¥Ôª¸ñÑ­»·¸³Öµ£¬È»ºóͨ¹ý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 ]
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

» ÇÀ½ð±ÒÀ²£¡»ØÌû¾Í¿ÉÒԵõ½:

²é¿´È«²¿É¢½ðÌù

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

kukoob

Ìú¸Ëľ³æ (ÖªÃû×÷¼Ò)


¡ï ¡ï
Сľ³æ(½ð±Ò+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
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ zhchh008 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] »¯¹¤Ñ§Ë¶294·Ö£¬Çóµ¼Ê¦ÊÕÁô +32 yzyzx 2026-04-12 36/1800 2026-04-14 17:45 by lhj2009
[¿¼ÑÐ] һ־Ը³¶«´óѧ071000ÉúÎïѧѧ˶³õÊÔ·ÖÊý276Çóµ÷¼Á +25 Ľ¾øcc 2026-04-09 29/1450 2026-04-14 16:45 by zhouxiaoyu
[¿¼ÑÐ] 26ҩѧר˶105500Çóµ÷¼Á +6 à¶¹þ¼ÓÓÍ 2026-04-13 6/300 2026-04-14 16:40 by zhouxiaoyu
[¿¼ÑÐ] ²ÄÁÏרҵ344Çóµ÷¼Á +17 hualkop 2026-04-10 22/1100 2026-04-14 16:21 by sxdj2
[¿¼ÑÐ] ¸÷λÀÏʦºÃ£¬Çóµ÷¼Á£¬±¾¿Æ211£¬Ò»Ö¾Ô¸Ìì½ò´óѧÉúÎïÓëҽҩѧ˶£¬²îÁ½Ãû¼ȡ¡£ +11 ·ÁùÁùjjj 2026-04-13 11/550 2026-04-14 16:01 by zs92450
[¿¼ÑÐ] 279Çóµ÷¼Á +12 ÕÅ·¬ÇѲ»³´µ° 2026-04-11 12/600 2026-04-14 15:38 by zs92450
[¿¼ÑÐ] µ÷¼Á +12 ÔÂ@163.com 2026-04-11 12/600 2026-04-14 15:37 by zs92450
[¿¼ÑÐ] ²ÄÁϸ´ÊÔÇóµ÷¼Á +24 xhhdjdjsjks 2026-04-09 24/1200 2026-04-13 15:49 by ÐÒÃâ ..
[¿¼ÑÐ] 322Çóµ÷¼Á£¬08¹¤¿Æ +4 ½ñÌìÊǸöСºÅ 2026-04-08 4/200 2026-04-13 00:20 by baobaoye
[¿¼ÑÐ] 086000µ÷¼Á +6 Ê®Æßsa 2026-04-07 6/300 2026-04-12 11:05 by ´óÁ¦Ë®ÊÖÁ¦´óÎÞÇ
[¿¼ÑÐ] Çóµ÷¼Á£¬Ò»Ö¾Ô¸´óÁ¬Àí¹¤´óѧ354·Ö +5 ÓêÉùÓàÉú 2026-04-11 6/300 2026-04-11 16:12 by ÓêÉùÓàÉú
[¿¼ÑÐ] 0854µ÷¼Á +5 ÒôÏñµêÌý»¨¹ÄÏ· 2026-04-10 5/250 2026-04-11 10:49 by qingpingzhu
[¿¼ÑÐ] 298Çóµ÷¼Á +13 ¶¤¶£ß˶¬¹Ï 2026-04-09 13/650 2026-04-10 15:49 by jiajinhpu
[¿¼ÑÐ] ²ÄÁÏר˶(0856) 339·ÖÇóµ÷¼Á +9 ¹þ¹þ¹þ¶ì¹þ¹þ¹þ 2026-04-09 10/500 2026-04-09 20:01 by Orcid
[¿¼ÑÐ] 348Çóµ÷¼Á +3 candyyyi 2026-04-09 3/150 2026-04-09 17:20 by ¶ÎΰÑÞ
[¿¼ÑÐ] 086000ÉúÎïÓëÒ½Ò©µ÷¼Á +7 awwwwwooooo 2026-04-09 7/350 2026-04-09 13:31 by ±±¼«159263
[¿¼ÑÐ] ¶þ´Îµ÷¼ÁÇóÀÏʦÊÕÁô +3 ЦЦԬ 2026-04-08 3/150 2026-04-08 23:50 by ×íÔÚ·çÀï
[¿¼ÑÐ] 296Çóµ÷¼Á +3 Íô£¡£¿£¡ 2026-04-08 3/150 2026-04-08 22:00 by zhouyuwinner
[¿¼ÑÐ] ÉúÎïѧѧ˶£¬³õÊÔ351·Ö£¬Çóµ÷¼Á +4 ¡­¡«¡¢Íõ¡­¡« 2026-04-08 5/250 2026-04-08 21:49 by limeifeng
[¿¼ÑÐ] µç×ÓÐÅÏ¢346 +4 zuoshaodian 2026-04-08 4/200 2026-04-08 11:54 by zzucheup
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û