帖子: 529
主題: 56
精華: 0
積分: 607
點名: 161
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2025-7-6

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-9-22 14:23 | 顯示全部帖子

VBA的 DDE 函數抓取

本帖最後由 Scott090 於 2017-9-22 14:26 編輯

懇請協助如何正確取得資料

看盤軟體打開，儲存格放入 DDE公式是可以取得資料的。
希望用DDE函數來做這一件事，但沒能如願，
如下的程式：
1. Application.DDEInitiate("EWinner", "RQ") 可以打開DDE通道
2. returnList = Application.DDERequest(ChannelNum, "'100000.Open'") 透過通道送出 item '100000.Open'
就無法取得資料； returnList 內是字串 "錯誤 2023"

''DDE格式：ServerName|Topic!Item
''儲存格內公式
''開盤價：=EWinner|RQ!'100000.open'
''最高價：=EWinner|RQ!'100000.high'
''最低價：=EWinner|RQ!'100000.low'
''成交價：=EWinner|RQ!'100000.price'
''
Sub DDELinkTest()
Dim ChannelNum As Long
Dim i%, j%
Dim returnList
'建立DDE連結通道
'DDEInitiate(AppName, Topic)
Do
ChannelNum = Application.DDEInitiate("EWinner", "RQ") '點金靈的AppName：EWinner、Topic：RQ
i = i + 1
Loop While i < 50 And ChannelNum = 0 '確認已建立通道
If ChannelNum <> 0 Then
'DDERequest(channel, item)， item = stockNumber 100000.Open 測試大盤 100000 開盤價
' 儲存格內公式 "=EWinner|RQ!'100000.open'"
returnList = Application.DDERequest(ChannelNum, "'100000.Open'")
''
On Error GoTo ErrorHand
'取得該項目的資料內容
For j = LBound(returnList) To UBound(returnList)
ActiveSheet.Cells(75, i + 1).Formula = returnList(j)
Next
End If
ErrorHand:
On Error GoTo 0
'關閉DDE連結通道
Application.DDETerminate ChannelNum
End Sub

複製代碼

樓主熱帖

Scott090

高中生 Rank: 3 Rank: 3

帖子: 529
主題: 56
精華: 0
積分: 607
點名: 161
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2025-7-6

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

2^#

發表於 2017-10-26 21:56 | 顯示全部帖子

回復 2# kingmvp

謝謝kingmvp兄的回應
Application.DDERequest(ChannelNum, "'100000.Open'")
改成 Application.DDERequest(ChannelNum, "100000.Open") 還是不行 "錯誤 2023"

不知是否 Ewinner這個看盤程式的溝通問題；不過用相同的格式公式直接放到儲存格內是可以的

TOP

Scott090