Board logo

標題: SetLinkOnData 和LinkSources 有什麼用處?? [打印本頁]
作者: samsung2888    時間: 2014-9-8 15:52     標題: SetLinkOnData 和LinkSources 有什麼用處??

example:
Links = ActiveWorkbook.LinkSources(Sheets("股票").Range("A1").Formula)
    ActiveWorkbook.SetLinkOnData Links, "LinkChange"

Q1: SetLinkOnData 和LinkSources 有什麼用處??  如何使用?
Q2:假如DDE斷線的話....有沒有方法可以在不重開Excel情況下重設DDE?? 因為康和全都賺有時侯快市會斷線,要重開檔案才能夠再次連動~

謝謝~
作者: luhpro    時間: 2014-9-8 23:02

本帖最後由 luhpro 於 2014-9-8 23:06 編輯
...
Q1: SetLinkOnData 和LinkSources 有什麼用處??  如何使用?
Q2:假如DDE斷線的話....有沒有方法可以在不重開Excel情況下重設DDE?? 因為康和全都賺有時侯快市會斷線,要重開檔案才能夠再次連動~
samsung2888 發表於 2014-9-8 15:52

只要將編輯游標移到 程式碼(快速鍵為 F7)視窗中的任一個的指令文字中間,再按下 F1 鍵即可看到該指令的說明:

SetLinkOnData 方法
expression.SetLinkOnData(Name, Procedure)
設定每當更新 DDE 連線時執行的程序名稱。

LinkSources 方法
expression.LinkSources(Type)
傳回活頁簿中連結的陣列。陣列中的名稱為被連線文件的名稱、
版本名稱或 DDE 或 OLE 伺服器名稱。如果沒有連結則傳回 Empty。為 Variant。


Q1 : 由上述說明文字可得該兩式的功能為:
Links = ActiveWorkbook.LinkSources(Sheets("股票").Range("A1").Formula)
從 Sheets("股票").[A1] 的公式中傳回活頁簿中DDE連結的陣列.

ActiveWorkbook.SetLinkOnData Links, "LinkChange"
設定每當更新 DDE 連線時執行的程序名稱為 LinkChange


Q2:
試試 ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
作者: samsung2888    時間: 2014-9-10 20:09

回復 2# luhpro


    謝謝 luhpro這麼詳細解釋....萬分感謝!!!!.



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)