- 帖子
- 2834
- 主題
- 10
- 精華
- 0
- 積分
- 2890
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-11-25
|
[原創] 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
評分人數
-
|
發表於 2015-9-11 13:11
| 
發表於 2016-5-15 20:23
| 
