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

steveyeh168

小學生 Rank: 1

帖子: 18
主題: 1
精華: 0
積分: 34
點名: 0
作業系統: windows
軟體版本: winxp
閱讀權限: 10
性別: 男
註冊時間: 2011-3-11
最後登錄: 2012-10-5

23^# 跳轉到 »

發表於 2012-9-19 02:20 | 只看該作者

請教c_c_lai,可以傳給我此檔嗎? thanks a lot!

TOP

usana642

中學生 Rank: 2

帖子: 44
主題: 1
精華: 0
積分: 78
點名: 0
作業系統: WIN XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: taipei
註冊時間: 2012-5-4
最後登錄: 2014-4-24

22^#

發表於 2012-6-26 20:02 | 只看該作者

回復 23# c_c_lai

收到,謝謝您熱心的分享,祝您財源滾滾...

stock

TOP

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

中學生 Rank: 2

帖子: 44
主題: 1
精華: 0
積分: 78
點名: 0
作業系統: WIN XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: taipei
註冊時間: 2012-5-4
最後登錄: 2014-4-24

20^#

發表於 2012-6-25 19:03 | 只看該作者

回復 20# c_c_lai

c_c_lai 大大,我也需要這個檔案,因權限不足無法下載
可否寄到我的信箱,感謝熱心分享

stock

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

19^#

發表於 2012-6-25 08:49 | 只看該作者

本帖最後由 c_c_lai 於 2012-6-25 17:34 編輯

回復 19# mead
找到了，已 E-Mail 過去了！

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

18^#

發表於 2012-6-25 07:55 | 只看該作者

本帖最後由 c_c_lai 於 2012-6-25 08:42 編輯

回復 17# mead
附上一個可以隨你需求異動的 "自動記錄每分鐘委買賣均值"，
以後你就沒有煩惱的事了！

自動記錄每分鐘委買賣均值.rar (13.96 KB)

P.S. 請將 Time() 裡的 .Cells(21, 2).Offset(0).Resize(, 9) = .[B12:J12].Value
更改成 .Cells(Pos, 2).Offset(0).Resize(, 9) = .[B2:J2].Value

TOP

mead