c_c_lai

¦^´_ 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

c_c_lai

¦^´_ 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

c_c_lai

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

c_c_lai

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

c_c_lai

¦^´_ 11# blue2263

¤U¸ü (108.39 KB)

2016-10-26 08:37

¤U¸ü (41.68 KB)

2016-10-26 08:37

c_c_lai

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

¤U¸ü¦¸¼Æ: 32

2016-10-27 07:49