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

SetLinkOnData ©MLinkSources ¦³¤°»ò¥Î³B??

SetLinkOnData ©MLinkSources ¦³¤°»ò¥Î³B??

example:
Links = ActiveWorkbook.LinkSources(Sheets("ªÑ²¼").Range("A1").Formula)
    ActiveWorkbook.SetLinkOnData Links, "LinkChange"

Q1: SetLinkOnData ©MLinkSources ¦³¤°»ò¥Î³B??  ¦p¦ó¨Ï¥Î?
Q2:°²¦pDDEÂ_½uªº¸Ü....¦³¨S¦³¤èªk¥i¥H¦b¤£­«¶}Excel±¡ªp¤U­«³]DDE?? ¦]¬°±d©M¥þ³£ÁȦ³®É«J§Ö¥«·|Â_½u,­n­«¶}Àɮפ~¯à°÷¦A¦¸³s°Ê~

ÁÂÁÂ~

¦^´_ 2# luhpro


    ÁÂÁ luhpro³o»ò¸Ô²Ó¸ÑÄÀ....¸U¤À·PÁÂ!!!!.

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2014-9-8 23:06 ½s¿è
...
Q1: SetLinkOnData ©MLinkSources ¦³¤°»ò¥Î³B??  ¦p¦ó¨Ï¥Î?
Q2:°²¦pDDEÂ_½uªº¸Ü....¦³¨S¦³¤èªk¥i¥H¦b¤£­«¶}Excel±¡ªp¤U­«³]DDE?? ¦]¬°±d©M¥þ³£ÁȦ³®É«J§Ö¥«·|Â_½u,­n­«¶}Àɮפ~¯à°÷¦A¦¸³s°Ê~
samsung2888 µoªí©ó 2014-9-8 15:52

¥u­n±N½s¿è´å¼Ð²¾¨ì µ{¦¡½X(§Ö³tÁ䬰 F7)µøµ¡¤¤ªº¥ô¤@­Óªº«ü¥O¤å¦r¤¤¶¡,¦A«ö¤U F1 Áä§Y¥i¬Ý¨ì¸Ó«ü¥Oªº»¡©ú:

SetLinkOnData ¤èªk
expression.SetLinkOnData(Name, Procedure)
³]©w¨C·í§ó·s DDE ³s½u®É°õ¦æªºµ{§Ç¦WºÙ¡C

LinkSources ¤èªk
expression.LinkSources(Type)
¶Ç¦^¬¡­¶Ã¯¤¤³sµ²ªº°}¦C¡C°}¦C¤¤ªº¦WºÙ¬°³Q³s½u¤å¥óªº¦WºÙ¡B
ª©¥»¦WºÙ©Î DDE ©Î OLE ¦øªA¾¹¦WºÙ¡C¦pªG¨S¦³³sµ²«h¶Ç¦^ Empty¡C¬° Variant¡C


Q1 : ¥Ñ¤W­z»¡©ú¤å¦r¥i±o¸Ó¨â¦¡ªº¥\¯à¬°:
Links = ActiveWorkbook.LinkSources(Sheets("ªÑ²¼").Range("A1").Formula)
±q Sheets("ªÑ²¼").[A1] ªº¤½¦¡¤¤¶Ç¦^¬¡­¶Ã¯¤¤DDE³sµ²ªº°}¦C.

ActiveWorkbook.SetLinkOnData Links, "LinkChange"
³]©w¨C·í§ó·s DDE ³s½u®É°õ¦æªºµ{§Ç¦WºÙ¬° LinkChange


Q2:
¸Õ¸Õ ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD