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

[¤À¨É] Ãö©óDDE°ÊºA³sµ²°ÝÃD

[¤À¨É] Ãö©óDDE°ÊºA³sµ²°ÝÃD

ªÑ²¼§Ú¥»¤H¬O¨S¦³¯AÂy
¨S¨Ï¥Î¹LddeÂ^¨ú§Y®É¸ê®Æªº¸gÅç
¦ý¬Ý¦U¦ìªº¤å³¹
´¢¼¯¤@¤U·N«ä°µ¦¨ªþÀÉ
¤£ª¾¹D¬O¤£¬O¦U¦ì·Q­nªº
(Àɮ׶}±Ò«á«öF9§Y¥i´ú¸Õ,­n¦Û°Ê½Ð©óSheets("dde")³]¸m¬ÛÃödde³sµ²¤½¦¡)
dde.rar (9.88 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

ªÑ²¼§Ú¤]¤£·|ª±¡A§ó¤£¥i¯à¬°¤F´úDDE¦Ó¦w¸ËªÑ²¼³nÅé
©Ò¥H§Ú³£¥Î Excel ´ú¸Õ DDE
¦bÀx¦s®æ¤º¿é¤J =excel|Book1.xls!x
·|¥X²{¤°»ò©O¡H´£¨Ñ¥X¨Ó¤j®a²q²q¡I
¤@§Z¤T¥|¡BÅå¨ìåF¥N»x

TOP

¦^´_ 2# ¨F©Ôªo


    ­Y©w¸q¥Xbook1.xlsªºx
¨º»ò¥i¥H§ì¨ì³o­Ó­È
¤£¹L¤@­È¸ÕµÛ§ó·sx­È
¨º»ò³o¤½¦¡¨Ã¨S¦³§Y®É¤ÏÀ³¥Xx­È
½Ð±Ð¨F¤j
¬O§_¦³»Ý­n°µ¬Æ»ò³]©w©Î¦p¦ó¥´¶}dde³q¹D¤~·|°µ§Y®ÉªºÂ^¨ú¸ê®Æ©O?
½Ð¨F¤j¤£§[½ç±Ð
ÁÂÁÂ!
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

HsiehªO¤j§A¦n
¥H«e§Ú¦b¾Ç®Õ®É©Ò±Ðªº ¤@¶}©l¥²¥ý­n¶}±ÒDDEªºªÑ²¼³nÅé
§Ú¥H¤é²±¬°¨Ò ©Ò¥H­n¥ý¶}±Ò¥L¸Ì­±ªº¤@­Ó Excel DDE ¤§«á¦A¶}±Ò EXCEL ¤~¯à±Ò°Ê

µM«á§Ú­Ì·|¦bEXCEL ¤@¶}±Ò®É check ¬O§_³s½u¦¨¥\

¤§«á¦A¼g¤J¤U­±µ{¦¡

Sub ¸ü¤J¤é²±DDE()
  With ThisWorkbook.Worksheets("¥~³¡¸ê®Æ")
    .Cells.Clear
    '¼g¤J®É¶¡
    .Range("B1").Formula = "=DDEEXCEL|FUTURETXF" & NearMonth & NearYear & "!®É¶¡"
  end  with

¦Ü©óDDEEXCEL|FUTURETXF" & NearMonth & NearYear & "!®É¶¡ ¬O¬Ý­ÓDDE³nÅé©w¸qªº
¥H¤é²±¬°¨Ò ·í¶}±ÒEXCEL DDE §â¥L©ì¦²¨ì EXCEL¤W®É ´N·|¥X²{¤W­±  ¤§«á¸Ì­±ªº¦~¤ë¦A³]ÅܼÆ

¦p¦¹ ¦Ü©ó­nÂ^¨ú¥LÅܰʪº¸ê®Æ «h¬O¨Ï¥ÎDDE¶Ç°e¸ê®Æ¨ìEXCEL IJµoªºcalculate ¨Æ¥ó¯S©Ê
¥h§PÂ_·s¶Ç¨Óªº­È»Pªº­È¬O§_¦³¬Û¦P ¦pªG¤£¬Û¦P´N°O¿ý

Dim NewVolume As Long
  Dim nRow As Long
  With ThisWorkbook.Worksheets("¥x«ü´ÁDDE")
    If IsNumeric(.Range("A1")) = True Then
      NewVolume = .Range("A1")
      If NewVolume <> TXoldVolume Then
        '±N§Y®É»ù®t¤Î¥x«ü´Á§Y®É¦¨¥æ»ù³v¦æ¼g¤J¦UÄæ
        With ThisWorkbook.Worksheets("ø¹Ï¸ê®Æ")
          nRow = .Range("B65536").End(xlUp).Row
          If nRow = 1 And .Range("B1") = "" Then
            .Cells(1, 1) = Time
            .Cells(1, 2) = ThisWorkbook.Worksheets("¥~³¡¸ê®Æ").Range("C3") '¥x«ü´Á»ù®æ
            With ThisWorkbook.Worksheets("¥~³¡¸ê®Æ")
              If IsNumeric(.Range("C3")) And IsNumeric(.Range("C11")) And _
                 IsNumeric(.Range("C19")) Then
                ThisWorkbook.Worksheets("ø¹Ï¸ê®Æ").Cells(1, 5) = _
                      CalSpread(.Range("C11"), .Range("C19"), .Range("C3")) '¥Ø«e»ù®t
              End If
            End With
GinBow

TOP

¥»©«³Ì«á¥Ñ ¨F©Ôªo ©ó 2010-5-18 23:26 ½s¿è

°Ñ¦Ò§Ú¦b Excel ´ú¸Õ DDEªº§@ªk
¤@§Z¤T¥|¡BÅå¨ìåF¥N»x

TOP

ÁÂÁ¨F¤j«ü¾É
§Úªº´ú¸Õ¿ù»~¬O¦]¬°
§Ú§âX©w¸q¦¨°ÊºA¦ì¸m
=OFFSET($A$1,COUNTA(A:A),)
©Ò¥H·íAÄæ¿é¤J¸ê®Æ¨ÃµLªk§ó·s¨ì¥Ø¼Ð°Ï
¹³¨F¤jªº©T©w¦ì¸m´N¥i¦æ¤F
¦hÁ¨F¤j«ü¾É
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ humanbondage ©ó 2010-11-11 23:16 ½s¿è

ÁÂÁ¦U¦ìªº¤À¨É,¤p§Ì¤]¬O·Q¾Ç²ßvba®»¨ú´Á³fªº¦¨¥æ¸ê®Æ¨C¤@¤ÀÄÁ¸ê®Æ°µ¦¨k½u¼Æ¾Úªº¶}°ª¦¬§C,¦ý­è¶}©lºN¯Á¦Ó¤w

¬Ý¤F«Ü¦h¬ÛÃöªº°Q½×¤å³¹,§¹¥þÁÙ¦b°gÃú´ËªL¤¤¨S¨«¥X¥b¨B,§Æ±æ¦³ÂIÀY§Ç®É¦A¦Vª©¤W°ª¤â½Ð±Ð

TOP

¦bºô¸ô¤W¬Ý¨ìªÑ²¼ªºÀɮסA¬Ý¤£¨ì§O¤H¬O¦p¦ó¼g¥X¨Óªº¡A§Ú­Ó¤H¤]¨S¦³ª±ªÑ²¼¡A¦ý·|ª`·N¤@¤U¡C
§Ú¤]·Q¾Ç¦ý¬O¦Û¤vªº¥\¤OÁÙ¨S¦³¨ì¨º£z¡A¤]¦b¾Ç²ß·í¤¤¤]§Æ±æ¦U¦ìªO¥D±Ð¾É
danny

TOP

½Ð±Ðª©¥D¡G

clientºÝ»PserverºÝªºÀɮ׸ô®|­Y¤£¦P

¨º"=excel|Book1.xls!x"À³¦p¦ó­×¥¿¡H

TOP

½Ð±Ðª©¥D¡G

clientºÝ»PserverºÝªºÀɮ׸ô®|­Y¤£¦P

¨º"=excel|Book1.xls!x"À³¦p¦ó­×¥¿¡H
fpoqua µoªí©ó 2011-1-31 12:16


°Ñ¦Ò¡Ghttp://support.microsoft.com/kb/128491
¤@§Z¤T¥|¡BÅå¨ìåF¥N»x

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD