[發問] 如何將EXCEL的即時資料定時複製到下方 (DDE)

pipe

小弟完全不懂VBA,想請教各位前輩一個問題:
使用券商DDE連結EXCEL,檔案中會有即時資料,但只有即時
我想要將目前的及時資料每五分鐘複製數值貼在下方
如下

下載 (4.58 KB)

2012-5-30 14:16

　 　 　

即時資料會一直變動,我想要每五分鐘將即時欄位複製值貼在下方欄位
從08:30 一直到13:45, 請問EXCEL要怎麼做呢??

請各位高手幫忙,謝謝.

c_c_lai

回復 1# pipe
請參考：
關於盤中DDE紀錄

pipe

回復 2# c_c_lai

CC大抱歉,我努力爬文也看完您的範例檔案,但真的無法對應修改成我自己的需求, 一竅不通阿
請您幫忙修改一下我的附件excel好嗎? 謝謝!!

資料從08:29:50開始,每五分鐘往下存一筆當時的及時資料"值"(不是公式,之後內容值不會再變動),直到收盤 13:45:10

c_c_lai

回復  c_c_lai

CC大抱歉,我努力爬文也看完您的範例檔案,但真的無法對應修改成我自己的需求, 一竅不通阿 ...
pipe 發表於 2012-5-30 15:53

實在是真服了你，想想還是幫你寫好了。

1. Option Explicit
   
2. Dim timerEnabled As Boolean
   
3. Dim Pos As Integer      ' 將每隔 "多少時間" 處理時段，移到此處來處理。
   
4. 
   
5. Private Sub Workbook_Open()
   
6.     Pos = Sheets("sheet1").Range("C" & Rows.Count).End(xlUp).Row
   
7.     timerEnabled = False
   
8. 
   
9.     Call timerStart      ' 程式一啟始，便去自動執行 timerStart
   
10. End Sub
    
11. 
    
12. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
13.     On Error Resume Next
    
14.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer", , False
    
15.    
    
16.     Me.Save
    
17. End Sub
    
18. 
    
19. Public Sub Timer()
    
20.     On Error Resume Next
    
21.     If (TimeValue(Now) > Sheets("sheet1").Range("AV2").Value) Then Exit Sub
    
22.    
    
23.     If (TimeValue(Now) >= Sheets("sheet1").Range("AV1").Value) Then         ' 開盤、收盤時段設定
    
24.         ' 盤中處理，將資料匯入寫入工作表單內儲存。
    
25. 
    
26.         With Sheets("sheet1")
    
27.             Pos = Pos + 1                  ' 將變動行號加一行
    
28.             
    
29.             .Cells(Pos, 1).Value = Date     ' 日期
    
30.             .Cells(Pos, 2).Value = Time     ' 時間
    
31.             .Cells(Pos, 3).Resize(1, 12) = .Range("C8:N8").Value    ' 大均、大差、期均、期差、台指、高點、低點、中關、價差、振福、摩台、加權
    
32.             
    
33.             .Cells(2, 49).Value = Pos       ' AW2
    
34.         End With
    
35.     End If
    
36.         
    
37.     Call timerStart
    
38. End Sub
    
39. 
    
40. Sub timerStart()
    
41.     If timerEnabled Then
    
42.         Application.OnTime (Now + Sheets("sheet1").Range("AW1").Value), "ThisWorkbook.Timer"
    
43.     Else
    
44.         timerEnabled = True
    
45.         
    
46.         ' 系統剛連上 DDE 至資料匯入Excel工作表單，須有一個緩衝時段，
    
47.         ' 這時如果馬上去抓取DDE資料，會有型態不符的錯誤訊息產生，並中斷執行序的作業。
    
48.         Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.Timer"
    
49.     End If
    
50. End Sub

複製代碼

剪下後直接貼入到 ThisWorkbook 程式區就 OK 了。

pipe

回復 4# c_c_lai
CC 大真英雄也!
信手拈來輕鬆寫出一段程式,對小弟幫助太大了,明天開盤時來測試一下
感謝CC大的幫忙!!

不嫌棄的話,小弟願意分享應用在台指期的高勝率戰法(如果CC大有在玩期貨的話)
小弟目前無法下載附件,也無法寄出站內短訊息,歡迎用站內信件聯繫告知聯絡方式!!謝謝CC大!!

pipe

回復 4# c_c_lai

CC大,雖然程式可以說看不懂,但是我在程式碼中沒有看到 08:30 或是 13:45 這樣的時間設定
請問這個程式是設定一開啟就自己執行,每五分鐘記錄一次(不管開盤收盤)嗎?

c_c_lai

回復 6# pipe
你的 "AV1"、以及 "AV2" 欄位不就已經載明了嗎？
本段程式它是可以由外部來控制的 (方便測試用)，假設測試時間是在晚上八點到九點之間，是以每隔 20 秒寫入一筆資料，你便可以
這麼做，  將以下欄位內容異動成 (千萬不要加上 "" 符號，即直接打入 20:00:00、21:00:00、以及 00:00:20 等時間數據， 以此類堆)：
AV1 = "20:00:00"，AV2 = "21:00:00"， AW1 = "00:00:20"， 然後去再行測試答案即出！
寫程式要切記一點，千萬不要寫死程式，否則會成為一個掰腳仙！
My E-Mail:  c_c_lai@yahoo.com
你可以記檔案到此，謝謝！

pipe

回復 7# c_c_lai

小弟眼拙,CC大提醒後就了解怎麼做了,目前盤中測試一切OK
感謝CC大的幫忙!!

等到收盤後較有空的時間,再跟CC大聊一下期貨

c_c_lai

回復 8# pipe
盤中測試
S.zip (13.96 KB)

下載次數: 17

2016-10-24 20:17

c_c_lai

回復 8# pipe

下載 (49.89 KB)

2016-10-25 10:36

1. Option Explicit
   
2. Dim timerEnabled As Boolean
   
3. 
   
4. Private Sub Workbook_Open()
   
5.     timerEnabled = False
   
6. 
   
7.     Call timerStart      ' 程式一啟始，便去自動執行 timerStart
   
8. End Sub
   
9. 
   
10. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
11.     On Error Resume Next
    
12.     Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.Timer", , False
    
13.    
    
14.     Me.Save
    
15. End Sub
    
16. 
    
17. Public Sub Timer()
    
18.     Dim ws As Worksheet
    
19.     Dim Pos As Integer      ' 將每隔 "多少時間" 處理時段，移到此處來處理。
    
20.    
    
21.     timerEnabled = True
    
22.         
    
23.     On Error Resume Next
    
24.     Set ws = Sheets("工作表1")
    
25.     If (TimeValue(Now) > ws.Range("I2").Value) Then Exit Sub
    
26.    
    
27.     If (TimeValue(Now) >= ws.Range("I1").Value) Then         ' 開盤、收盤時段設定
    
28.         ' 盤中處理，將資料匯入寫入工作表單內儲存。
    
29. 
    
30.         With Sheets("工作表2")
    
31.             Pos = .Range("A" & Rows.Count).End(xlUp).Row + 1   ' 將變動行號加一行
    
32.             
    
33.             .Cells(Pos, 1).Value = Date        ' 日期
    
34.             .Cells(Pos, 2).Value = ws.[B3]     ' 時間 (=DDEEXCEL|FUTURE!TXF16.時間)
    
35.             .Cells(Pos, 3).Resize(1, 8) = ws.Range("B4:B11").Value    ' 市價    漲跌    漲跌幅  開盤價  最高價  最低價  累計交易量  乖離率
    
36.         End With
    
37.     End If
    
38.         
    
39.     Call timerStart
    
40. End Sub
    
41. 
    
42. Sub timerStart()
    
43.     If timerEnabled = False Then
    
44.         Application.OnTime (Now + Sheets("工作表1").Range("I1").Value), "ThisWorkbook.Timer"
    
45.     Else
    
46.         ' 系統剛連上 DDE 至資料匯入Excel工作表單，須有一個緩衝時段，
    
47.         ' 這時如果馬上去抓取DDE資料，會有型態不符的錯誤訊息產生，並中斷執行序的作業。
    
48.         Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.Timer"
    
49.     End If
    
50. End Sub

複製代碼