[發問] 元大RTD問題

本帖最後由 blue2263 於 2016-10-23 13:48 編輯

請教大大

問題1:我要在A1儲存格,輸入元大RTD函數時,程式不讓我建立,
03程式碼,會出現語法錯誤訊息,請教要如何修改?

Sub 測試
With ThisWorkbook.Worksheets("X")
.range("a1") = "=RTD("money.excel", , "TXF1", "Expire") 'A1儲存格,輸入元大RTD函數
End With
End Sub

複製代碼

問題2: 有辦法直接設定變數來接收RTD & DDE的資料嗎?
解釋原因, 現在做法是VBA丟出函數公式->儲存格接收資料後->VBA捉取資料->後再做後續資料處理
我想變數如果可以,直接接收資料的話,就能少多個步驟( 丟到儲存格->接收資料->再捉取資料)
因此想問是否有?變數可直接接收RTD DDE 資料的方法

還請高手大大,幫忙解答,感恩謝謝!!

樓主熱帖

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2016-10-23 17:48 | 只看該作者

回復 1# blue2263

Sub 測試()
With ThisWorkbook.Worksheets("X")
.Range("A1") = "=RTD(""money.excel"", , ""TXF1"", ""Expire"")" 'A1儲存格,輸入元大RTD函數
End With
End Sub

複製代碼

TOP

blue2263

中學生 Rank: 2

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2025-5-26

3^#

發表於 2016-10-23 18:56 | 只看該作者

回復 2# c_c_lai
測試己可正常使用了,謝謝C大幫忙!!

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2016-10-25 09:06 | 只看該作者

回復 3# blue2263
DDE (Dynamic Data Exchange)？，
這似乎已經是微軟過時的一種通訊傳遞的技術了。
但是只要是跑券商提供的看盤交易應用軟體，諸如永豐 e-leader, 元大 yeswin, 日盛 hts 等，
都必然有提供 DDE 連結的功能。探究原因，Excel 肯定是佔最大的因素了，
因為一般交易者可以很容易地透過 Excel，抓取看盤軟體正在跳動(Tick)的即時金融商品資訊，
在不需要太懂程式設計語法的情況下，也能利用 Excel 強大的統計功能，或者利用簡單的 VBScript 語法，
撰寫指標或統計數據等。

Api 報價, RTD, DDE 三種不同傳遞比較
https://youtu.be/hxJTh-FzyIY

TOP

blue2263