麻辣家族討論版版 » Excelㄧ般區 » Yeswin DDE 的問題

返回列表下一主題上一主題發帖

[發問] Yeswin DDE 的問題

中學生 Rank: 2

帖子: 19
主題: 3
精華: 0
積分: 56
點名: 1
作業系統: Vista
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-2-18
最後登錄: 2024-11-10

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-3-30 20:54 | 只看該作者

[發問] Yeswin DDE 的問題

不知到版上有沒有理財高手有利用元大Yeswin提供的DDE功能自己寫Excel檔分析的..

我把自己投資組合的股票都整合到Excel檔裡面, 讓它自動抓報價跟漲跌幅並設定一些自我進出的條件.
但是DDE欄位的格式是例如=YES|DQ!'2330.Price' 這樣子, 被單引號包起來的是字串...
於是乎變成要是我有十檔個股, 要抓價格, 漲跌幅, 名稱等資料, 變成要像是=YES|DQ!'2330.Price' , =YES|DQ!'2330.Change', =YES|DQ!'2330.Volume'..... 變成所有個股代號跟欄位要一個一個欄位慢慢改

因此想請問有沒有辦法以變數的方式, 例如某一個欄位輸入代號例如2330, 後面DDE就會自動帶入代號然後去抓取我指定的資料呢? 謝謝

樓主熱帖

收藏

小學生 Rank: 1

帖子: 37
主題: 0
精華: 0
積分: 41
點名: 0
作業系統: windows xp
軟體版本: 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-5-7
最後登錄: 2018-2-10

2^#

發表於 2012-3-31 11:53 | 只看該作者

我沒有 "元大Yeswin提供的DDE"
但你可試試下列做法"
儲存格A1值=股票代碼
儲存格B1值=Price
儲存格C1值=Change
儲存格D1值=Volume
在A2填入 2330
執行下列程式
Sub test()
Dim Stock As String
Stock = Range("A2")
Range("B2").Formula = "=YES|DQ!'" & Stock & ".Price'"
Range("C2").Formula = "=YES|DQ!'" & Stock & ".Change'"
Range("D2").Formula = "=YES|DQ!'" & Stock & ".Volume'"
End Sub

中學生 Rank: 2

帖子: 19
主題: 3
精華: 0
積分: 56
點名: 1
作業系統: Vista
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-2-18
最後登錄: 2024-11-10

3^#

發表於 2012-3-31 12:31 | 只看該作者

回復 2# kobo

如果不用巨集
而
是直接用工作表上使用

million2billion

中學生 Rank: 2

帖子: 24
主題: 1
精華: 0
積分: 55
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: Moon
註冊時間: 2012-2-10
最後登錄: 2023-10-17

4^#

發表於 2012-3-31 22:07 | 只看該作者

我用VB6輸入字串的方式,輸入到excel.
太麻煩了~

Happy

中學生 Rank: 2

帖子: 19
主題: 3
精華: 0
積分: 56
點名: 1
作業系統: Vista
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-2-18
最後登錄: 2024-11-10

5^#

發表於 2012-4-1 03:30 | 只看該作者

我沒有 "元大Yeswin提供的DDE"
但你可試試下列做法"
儲存格A1值=股票代碼
儲存格B1值=Price
儲存格C1值 ...
kobo 發表於 2012-3-31 11:53

可不可以在 A1 輸入股票代號在 B1 可以用 =YES|DQ!'A1.Name'

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 455
主題: 8
精華: 1
積分: 480
點名: 0
作業系統: WINS home
軟體版本: OFFICE XP
閱讀權限: 100
性別: 男
來自: 平鎮
註冊時間: 2010-5-1
最後登錄: 2015-1-22

論壇貢獻勳章

6^#

發表於 2012-4-1 10:45 | 只看該作者

A1=2330
B1=INDIRECT("YES|DQ!'"&A1&".Price'")
這樣試試看

知之為知之，不知為不知，誠實也！

中學生 Rank: 2

帖子: 19
主題: 3
精華: 0
積分: 56
點名: 1
作業系統: Vista
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-2-18
最後登錄: 2024-11-10

7^#

發表於 2012-4-2 09:29 | 只看該作者

A1=2330
B1=INDIRECT("YES|DQ!'"&A1&".Price'")
這樣試試看
gong 發表於 2012-4-1 10:45

試過了就是不行才想問大家
有沒有其他的方法

小學生 Rank: 1

帖子: 37
主題: 0
精華: 0
積分: 41
點名: 0
作業系統: windows xp
軟體版本: 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-5-7
最後登錄: 2018-2-10

8^#

發表於 2012-4-2 11:31 | 只看該作者

試試看 Hsieh 大大的方法
http://forum.twbts.com/thread-5333-1-1.html

中學生 Rank: 2

帖子: 19
主題: 3
精華: 0
積分: 56
點名: 1
作業系統: Vista
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-2-18
最後登錄: 2024-11-10

9^#

發表於 2012-4-2 16:54 | 只看該作者

試試看 Hsieh 大大的方法
kobo 發表於 2012-4-2 11:31

我試過這個方法
可是早上事是可以

下午要捉收盤價卻不行了
不知道怎麼回事

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 2
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-11-15

10^#

發表於 2016-6-8 12:56 | 只看該作者

用Evaluate函數定義名稱抓到DDE的值是不會變動的(即時)，僅能顯示輸入公式完成當時的值就不再變了。

靜思自在 : 盡多少本份，就得多少本事。

返回列表下一主題上一主題