返回列表 上一主題 發帖

[原創] EXCEL連結DDE股票數據,自動記錄範例下載

[原創] EXCEL連結DDE股票數據,自動記錄範例下載

EXCEL連結DDE股票數據,自動記錄範例下載

<前言>
2011年在〔奇摩知識+〕遇到網友提了這問題,這是第一次知道有DDE這個方便法門,
但至目前為止,我還沒真正用過DDE,所以,不要問我關於DDE方面的問題;
當時僅憑學得不像樣的VBA,以純邏輯推測方式,建構個簡單的模式,
沒想到,這個非專業作品還是有很多同樣需求的網友下載使用。
今天發性,整理幾個樣板供有緣人參考。(聲明:若與您的需求有差異,恕不提供個別服務)
 
<構想>
一般使用者想到的是 Worksheet_Change 事件來達到自動記錄,但DDE公式並不會觸動Change!
 
或者用 Worksheet_Calculate 事件吧!
是可以,但考慮層面較多,例如會產生〔連鎖觸動〕,要不是同一筆內容記錄成很多筆,
不然整個檔案就掛掉,您必須去控制事件發生的時機,在下載附檔中有個例子,可參考!
 
經過網路的搜尋及測試,覺得 Application.OnTime 似乎較適用,因此,才建構了這模式,
這模式加上以〔物件變數〕定義活頁簿及工作表:
Public MyBook As Workbook, MySht As Worksheet 模組頂端宣告
 
Sub 共用參照()
Set MyBook = ThisWorkbook
Set MySht = MyBook.Sheets("DDE")
End Sub
 
讓您可以在自動記錄時,
同時操作其它檔案或工作表(註:當在儲存格編輯時,程式會停頓,還是要留意)。
 
後又有網友提出〔自動記錄〕執行了,但不知如何手動讓它停止,因而加入〔uMode〕共用變數;
可惜 Application.OnTime 最短也只能一秒記錄一次,
加入 Sleep 可以一秒增加幾次,但是,Sleep 可能會導致無法操作其它檔案及工作表。
 
<後語>
只能提供範例檔供參考,程式碼並不複雜,請自行套用至您的實際檔案!
也可到我的部落格下載其它非專業的VBA範例(我非本科.野閒硬出力):
 
EXCEL.股票.DDE傳輸資料.固定時間自動記錄
http://blog.xuite.net/smile1000mile/blog/95125899
 
EXCEL.金千里.奇摩股票自動更新監看系統
http://blog.xuite.net/smile1000mile/blog/95104599
 
EXCEL.利用〔XML語法〕取得〔奇摩.股票網頁〕個股資訊
http://blog.xuite.net/smile1000mile/blog/95075939
 
EXCEL.利用〔Web查詢〕擷取奇摩網的上市股票〔個股資訊〕
http://blog.xuite.net/smile1000mile/blog/95033546
 
<檔案下載>
DDE.rar (103.06 KB)
--------------------------------------------
對無法或沒有權限下載附件的網友說聲抱歉!
如果您已加入會員很久或剛加入而無法下載,請再加點心力在論壇多多交流,以達到升級!
又,若對本論壇有認同也願盡一份力,可以〔贊助會員〕方式與我們共同支持台灣罕有的EXCEL論壇。

<滴水效應>
提供個人微薄知識,讓人更有效率的處理同一事務,
用省下來的時間做更有益的工作,其效應雖如涓滴入海無痕,
但匯集眾方之力,時間久了,則穿石有孔;
當累積一定能量時,就是一個〔奇異點〕,
也許無法生成另一個宇宙,
然而,世上某些事已因此悄悄改變.............
 
您的一份心力,就是〔甘露〕,就是〔功德水〕∼∼∼ 

最後 祝 歡喜開運.操作順利
1

評分人數

    • ML089: 這是股友們的福氣金錢 + 5
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

感謝大大分享 來研究一下

TOP

回復 1# 准提部林
謝謝 准提部林版主 的功德無量,
如此得以精確地點到入門重點與DDE操作心得,
網上大大亦可以朝這方向構思、學習與應用,
再次感謝版主不吝的指導!

TOP

好可惜,不能看
正在為DDE特定儲存格觸發的問題困擾中
還是謝謝分享

TOP

謝謝大大分享!
最近剛好上課老師有提到這個東西
非常感謝!!!

TOP

研究大大程式碼
感謝分享
不知道是否能在程式碼後面增加中文解釋

TOP

感激不盡:handshake
Bill

TOP

非常感謝分享,還要多多跟大家學習!
tony

TOP

謝謝大大 非常受用

TOP

感謝准提部林大大,現正需要這個知識,下載下來研究一下。
Rogersg

TOP

        靜思自在 : 天上最美是星星,人生最美是溫情。
返回列表 上一主題