ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[¤À¨É] ¾Ç²ßExcel VBAªº¤@¨Ç°ò¥»·§©À

wearnksªº°ÝÃD¤]¬O§Ú·Qª¾¹Dªº ¡I

TOP

½Ð°Ýª©¥D¡G1.­Y¨Ï¥ÎEXCEL DDE+VBA ¬ö¿ý´Á³f¸ê®ÆÀ³¸Ó­n¦³­þ¨Ç±ø¥ó?  
               2.­Y¨Ï¥Î (KGI¥þ²y³qI3_Betaª©)+excel2007ªºDDE¼Æ¾Ú¨C5¤ÀÄÁ¦Û°Ê°O¿ý¤@µ§¸ê®ÆÀ³¸Ó¦p¦ó¼g?(§Ú¨S¦³VBAªº°ò¦)¤£¦n·N«ä¡C  ÁÂÁ¡C
·s¤â

TOP

·PÁªO¥D´£¨Ñ¸Ñ¨M¤è®×, Åý§Ú¹ï VBA ¦bµ{¦¡¶¡ªº©I¥s¦³§ó²`ªº¤F¸Ño
¤é¬Q¤]¬Ý¤F§Aªº©« "Ãö©óDDE°ÊºA³sµ²°ÝÃD", ¸Õ¤F¤@¤U¨F¤j¤jªº°ÝÃD, ÁÙÆZ¦nª±ªº, ©Î³\¥H«á¥i°Ñ¦Ò¨Ï¥Îo
James

TOP

¨Ï¥Îvba¤]¦³´X­Ó¤ë
¦ý¬O¥\¤OÁÙ¤£°÷²`
¦Ó¥B¬Ý¨ì²³®a°ª¤âªºµo¤å
¯u¬OÅå¹Ä³s³s

«Ü¦n©_¤j®a¬O«ç»ò¾Çªº
·|°Oµ{¦¡½X¶Ü?
§Ú³£¬O±N¤@¨Çµ{¦¡½X½Æ»s°_¨Ó
¤ñ¸û½ÆÂøªº´N¦b±q¸Ì­±´M§ä
²³æªº´Nª½±µ¥´¥X¨Ó
³o¼Ëªº¤è¦¡¬O¹ïªº¶Ü?
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 2# James
  1. Sub bb()
  2. Workbooks.Open "E:\aa.xls" '¶}±Ò¬¡­¶Ã¯
  3. Application.Run "aa.xls!aaa" '°õ¦æ¥¨¶°
  4. End Sub
  5. Sub kk()
  6. With ActiveWorkbook.VBProject.VBComponents.Import("E:\a.bas") '¶×¤J
  7. Application.Run "aaa" '°õ¦æ
  8. Application.VBE.ActiveVBProject.VBComponents.Remove Application.VBE.ActiveVBProject.VBComponents(.Name) '§R°£
  9. End With
  10. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# Hsieh


    ¤µ¤Ñ­è¶i¤J¦¹½×¾Â, ¤wµn¿ý¬°·|­ûo ¦b¤@¨Ç©«¤¤±`¬Ý¨ì±zºë±m¤Î¸Ô²Óªº¦^ÂÐ, ¤×¨ä¦¹½g±N¤@¨Ç excel vba ªº°ò¥»Æ[©À§@¤@¾ã²z¤Î»¡©ú, ¬Û«H«Ü¦h¤H·|¨ü¯q¨}¦ho
    ¦b¦¹¦³¤@­Ó¨p¤Hªº°ÝÃD·Q½Ð±Ð, ¤£ª¾±z¬O§_¯àµ¹¤©À°¦£?
    §Ú¦bÀÉ®× a.xlsm ¤¤ a-sheet ¤w«Ø¥ß¤@­Ó vba macro ¬° a-macro,
       1. ·í§Ú¦b¥t¤@­ÓÀÉ®× b.xlsm ¤¤ªº b-macro ¤¤­n¨Ï¥Î¨ì a.xlsm ¤¤ªº a-macro ®É­n¦p¦ó¶}±Ò, °õ¦æ¤ÎÃö³¬?
       2. ­Y§Ú¤w¸g±N a-macro ¥Ñ a.xlsm ¤¤¶×¥X¦¨¤@­Ó a.bas ÀÉ®×®É, §Ú¦p¦ó¥Ñ b-macro ©I¥s¶}±Ò, °õ¦æ¤ÎÃö³¬?
    ½Ðµ¹¤©¸Ñµª, ¤£¬Æ·P¿Eo Thanks!
James

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD