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

本帖最後由准提部林於 2022-12-8 21:05 編輯

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

＜前言＞
２０１１年在〔奇摩知識+〕遇到網友提了這問題，這是第一次知道有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範例（我非本科．野閒硬出力）：
　
　
＜檔案下載＞

DDE.rar (103.06 KB)
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
對無法或沒有權限下載附件的網友說聲抱歉！
如果您已加入會員很久或剛加入而無法下載，請再加點心力在論壇多多交流，以達到升級！
又，若對本論壇有認同也願盡一份力，可以〔贊助會員〕方式與我們共同支持台灣罕有的EXCEL論壇。

最後　祝　歡喜開運．操作順利

樓主熱帖

1 評分人數

ML089: 這是股友們的福氣金錢 + 5

cslu37

中學生 Rank: 2

帖子: 60
主題: 12
精華: 0
積分: 93
點名: 0
作業系統: Windows7
軟體版本: excel
閱讀權限: 20
註冊時間: 2019-3-8
最後登錄: 2021-7-23

12^#

發表於 2019-6-10 20:31 | 只看該作者

回復 1# 准提部林

准提部林大大您好：
之前有人發問：「如何將 2個巨集同時抓DDE資料到不同sheet 執行記錄」
大大您當時在 2014-07-12 有分享過一個001的檔案，
「001即是同時記錄1分及5分資料........」
   請問大大~可以在分享一次嗎？

   感謝准提部林大大的分享！！
   但是我的電腦連結大大所提供的網址，下載檔案解壓縮後，卻不是excel檔案...
(電腦不知道哪裡出問題? 還是我下載的步驟or解壓縮有錯@@?)

   解壓縮後的檔案如下圖
    解壓縮後的檔案.png