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

[µo°Ý] ¤¸¤jRTD°ÝÃD

¦^´_ 1# blue2263
  1. Sub ´ú¸Õ()
  2.    With ThisWorkbook.Worksheets("X")
  3.      .Range("A1") = "=RTD(""money.excel"", , ""TXF1"", ""Expire"")"   'A1Àx¦s®æ,¿é¤J¤¸¤jRTD¨ç¼Æ
  4.   End With
  5. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# blue2263
DDE (Dynamic Data Exchange)¡H¡A
³o¦ü¥G¤w¸g¬O·L³n¹L®Éªº¤@ºØ³q°T¶Ç»¼ªº§Þ³N¤F¡C
¦ý¬O¥u­n¬O¶]¨é°Ó´£¨Ñªº¬Ý½L¥æ©öÀ³¥Î³nÅé¡A½Ñ¦p ¥ÃÂ× e-leader, ¤¸¤j yeswin, ¤é²± hts µ¥¡A
³£¥²µM¦³´£¨Ñ DDE ³sµ²ªº¥\¯à¡C ±´¨s­ì¦]¡AExcel ªÖ©w¬O¦û³Ì¤jªº¦]¯À¤F¡A
¦]¬°¤@¯ë¥æ©öªÌ¥i¥H«Ü®e©ö¦a³z¹L Excel¡A§ì¨ú¬Ý½L³nÅ饿¦b¸õ°Ê(Tick)ªº§Y®Éª÷¿Ä°Ó«~¸ê°T¡A
¦b¤£»Ý­n¤ÓÀ´µ{¦¡³]­p»yªkªº±¡ªp¤U¡A¤]¯à§Q¥Î Excel ±j¤jªº²Î­p¥\¯à¡A©ÎªÌ§Q¥Î²³æªº VBScript »yªk¡A
¼¶¼g«ü¼Ð©Î²Î­p¼Æ¾Úµ¥¡C

Api ³ø»ù, RTD, DDE ¤TºØ¤£¦P¶Ç»¼¤ñ¸û
https://youtu.be/hxJTh-FzyIY

TOP

¦^´_ 5# blue2263
¤W¶Ç¹ê»ÚÀɮסA§_«h¥u¬O½M¤lºN¶H (ºN³D)¡C

TOP

¦^´_ 7# blue2263
½Ð°Ý Worksheets("X") ¦b­þ¸Ì¡H

TOP

¦^´_ 11# blue2263
A1.png
2016-10-26 08:37

A2.png
2016-10-26 08:37

TOP

¦^´_ 14# blue2263
´£¨Ñ°Ñ¦Ò¡A§Ú±µÄ² RTD ®É¬q«Üµu¡A¤§«á«K¦¬¤â¤F¡C
RTD¨Ï¥Î½d¨Ò.rar (18.76 KB)

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD