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

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

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

TOP

¦^´_ 6# c_c_lai

¤£¦n·N«ä,½Ð¬d¦¬ÀÉ®×,ÁÂÁÂ

´Á³f°O¿ý .rar (747.06 KB)

TOP

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

TOP

¦^´_ 4# c_c_lai

C¤j½Ð±Ð¤@¤U,§ÚªºRTD³ø»ù¤§«e¦³­Ó°ÝÃD
ª¬ªp¬O¦b¦h­ÓÀx¦s®æ¤º,¿é¤JRTD¨ç¼Æ,±µ¦¬¸ê®Æ,µM«á¥Îµ{¦¡¨C¤ÀÄÁ¬ö¿ý
¦³®É­Ô³¡¥÷Àx¦s®æ,¤£·|±µ¦¬³ø»ù,©Î¬O°±¤î³ø»ù
µM«á§Ú·|¦b(°±¤î³ø»ù)Àx¦s®æ¤º¿ï¨ú¨ç¼Æ«öEnterÁä,¥¦¤~·|¶}©l±µ¦¬³ø»ù

½Ð±Ð¦³¤°»ò¤èªk?¥i³B²z³oºØª¬ªp

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

¦^´_ 2# c_c_lai
´ú¸Õ¤v¥i¥¿±`¨Ï¥Î¤F,ÁÂÁÂC¤jÀ°¦£!!

TOP

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

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD