請問高手要將以下DDE 每分鐘記錄改為30秒自動記錄一次要怎改

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

21^# 跳轉到 »

發表於 2012-6-26 06:58 | 只看該作者

回復 21# usana642
1. 請將下列程式碼複製到 ThisWorkbook 模組內，並予儲存。

Option Explicit
Dim timerEnabled As Boolean ' 判定開啟本工作表單的時段是否為開盤前啟動。
Dim Pos As Integer ' 將每隔 "多少時間" 處理時段，移到此處來處理。
Private Sub Workbook_Open()
Pos = Sheets("策略記錄").Range("B" & Rows.Count).End(xlUp).Row
If (Pos < 11) Then Pos = 10
Sheets("策略記錄").Cells(4, 2) = Pos
If (Sheets("策略記錄").Range("B6").Value = "") Then Sheets("策略記錄").Range("B6").Value = "08:45:00"
If (Sheets("策略記錄").Range("B7").Value = "") Then Sheets("策略記錄").Range("B7").Value = "13:45:00"
If (Sheets("策略記錄").Range("B8").Value = "") Then Sheets("策略記錄").Range("B8").Value = "00:00:30"
timerEnabled = False
Call timerStart ' 程式一啟始，便去自動執行 timerStart
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer", , False
Me.Save
End Sub
Public Sub Timer()
On Error Resume Next
If (TimeValue(Now) > Sheets("策略記錄").Range("B7").Value) Then Exit Sub
If (TimeValue(Now) >= Sheets("策略記錄").Range("B6").Value) Then ' 開盤、收盤時段設定
' 盤中處理，將資料匯入寫入工作表單內儲存。
With Sheets("策略記錄")
.Cells(3, 2) = Time ' 將時間 Show 至策略的 B3 欄位
Pos = Pos + 1 ' 將變動行號加一行
.Cells(4, 2) = Pos
.Cells(Pos, 1) = Time
.Cells(Pos, 2).Offset(0).Resize(, 9) = .[B2:J2].Value
End With
End If
Call timerStart
End Sub
Sub timerStart()
If timerEnabled Then
' 第二次(含)以後均以設定之 "間隔時段" 來處理執行序的作業。
Application.OnTime (Now + Sheets("策略記錄").Range("B8").Value), "ThisWorkbook.Timer"
Else
timerEnabled = True
' 將第一次啟動時間更改為設定 "開盤時間"前，如果開啟 Excel 時，已經過了設定 "開盤時間"，則一進入系統即直接去執行紀錄作業。
If (TimeValue(Now) <= Sheets("策略記錄").Range("B6").Value) Then
Application.OnTime (Sheets("策略記錄").Range("B6").Value), "ThisWorkbook.Timer"
Else
' 系統剛連上 DDE 至資料匯入Excel工作表單，須有一個緩衝時段，
' 這時如果馬上去抓取DDE資料，會有型態不符的錯誤訊息產生，並中斷執行序的作業。
Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.Timer"
End If
End If
End Sub

複製代碼

2. 工作表單內容如圖，請參考它與程式碼間的關係及運作。

3. 以上完成後，先將本專案儲存並離開。
4. 接下來先打開券商軟體
(譬如：你製作的工作表單是跟哪一家券商連線的，如 EasyWin、eLeader、或其他券商連線軟體)，
然後啟動你製作的 "自動記錄每分鐘委買賣均值" Excel，並同時連上券商連線軟體，就大功告成了！

希望它能助益於你，並能幫助你更上一層樓。

TOP

usana642