劵商DDE傳Excel 每分自動記錄數據 - Excel程式區

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2011-7-5 09:37 | 顯示全部帖子

回復 2# andylin
論壇裡,固定時間自動計錄數據的討論很多,你昨日才註冊為會員,不必急著發文找答案,
VBA的每一程序內的程式碼都是根據個案的需求所寫,無法直接套用的,
你須多看看論壇裡的文章,不懂,不會,再發文不遲的.

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-7-6 07:26 | 顯示全部帖子

回復 5# andylin
我想把"MSCI權重50"sheet裡頭的數據自動每分鐘都有數據list到 "sheet2"裡頭
sheet2空空如也不知你要的數據如何排列,請給個範例才知如何起頭.

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2011-7-7 08:29 | 顯示全部帖子

本帖最後由 GBKEE 於 2011-7-7 08:48 編輯

回復 8# andylin
你上傳的是2007版圖形 2003無法處裡
你無法下載檔案.下列程式碼你先存檔後再開啟試試看.
PS:每日08:45前開啟檔案數據才會落於正確時間位置

'ThisWorkbook模組的程序
Private Sub Workbook_Open() '此程式是檔案開啟時自動執行的程式
Dim E As Range
If MsgBox("啟動自動記錄資料??", vbYesNo) = vbNo Then Exit Sub
Sheets("1分K").UsedRange.Offset(1, 1) = "" ' 清除昨日資料
Sheets("5分K").UsedRange.Offset(1, 1) = ""
Sheets("15分K").UsedRange.Offset(1, 1) = ""
For Each E In Sheets("1分K").[A2:A302]
Application.OnTime E, "ThisWorkbook.資料輸入" '依[A2:A302]內的時間執行程式 ->資料輸入
Next
End Sub
Sub 資料輸入()
Dim Ar()
Ar = Array([MSCI權重50股!D2], [MSCI權重50股!E2], [MSCI權重50股!B2], "", _
[Matrix!F2], [Matrix!F3], [Matrix!F4], [Matrix!F144], "", _
[SUM(Matrix!AF16:AF47)], [SUM(Matrix!AF48:AF79)], [SUM(Matrix!AF80:AF111)], [SUM(Matrix!AF112:AF143)])
'Ar陣列 -> 存入你要的數據
If Minute(Time) Mod 1 = 0 Then Sheets("1分K").Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(1, 8).Value = Ar 'Minute(Time) Mod 1=0 每分鐘
If Minute(Time) Mod 5 = 0 Then Sheets("5分K").Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(1, 8).Value = Ar 'Minute(Time) Mod 1=0 每5分鐘
If Minute(Time) Mod 15 = 0 Then Sheets("15分K").Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(1, 8).Value = Ar 'Minute(Time) Mod 1 =0 每15分鐘
'Range("B" & Rows.Count) -> Rows.Count列的總列數 2003版: Range("B65536")
'Range("B" & Rows.Count).End(xlUp) ->Range("B65536")往上移動到有資料的位置
'往上移動到有資料的位置.Offset(1)->Offset(1,0)->往下位移(1列,0欄)
'往上移動到有資料的位置.Offset(1).Resize(1, 8)->Resize擴充範圍(1列,8欄)
End Sub

複製代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-7-8 07:25 | 顯示全部帖子

回復 10# andylin
對的 ,但如有錯誤壓縮Excel檔上傳,才能找出.

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2011-7-9 07:40 | 顯示全部帖子

回復 13# andylin
為何附檔中沒有我給你的VBA程序 ,沒VBA的程序我無法度!!

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2011-7-9 19:48 | 顯示全部帖子

回復 15# andylin
由於MSCI股/大盤指數/現貨指數都是9:00am才開始有數據對阿那08:45-09:00 那有數值上的變動
我測試沒問題你可調整電腦時間到09:00 前再測試檔案看看

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2011-7-10 07:47 | 顯示全部帖子

本帖最後由 GBKEE 於 2011-7-10 07:50 編輯

回復 17# andylin
將該Excel檔裡的時間 8:45am~8:59am欄位刪除掉讓第一時間為 9:00am 就是這樣啦
因為我測試沒問題所以在請你在不是股市開市時間裡:可調整電腦的時間在9:00 Am 之前打開檔案測試程式是否有依時間紀錄數據.

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2011-7-11 20:14 | 顯示全部帖子

回復 20# andylin
謝謝你的圖檔隔行如隔山,我完全看不懂.哈....

若明日8:45am開盤前我開起此excel檔後我是否需要自己手動將excel欄位裡今日的數據全delete掉?
答案在這裡
Private Sub Workbook_Open() '此程式是檔案開啟時自動執行的程式
Dim E As Range
If MsgBox("啟動自動記錄資料??", vbYesNo) = vbNo Then Exit Sub    '按 Yes 會依序清除昨日資料按 No 離開程式
Sheets("1分K").UsedRange.Offset(1, 1) = ""    ' 清除昨日資料delete掉
Sheets("5分K").UsedRange.Offset(1, 1) = ""    '  清除昨日資料 delete掉
Sheets("15分K").UsedRange.Offset(1, 1) = ""    '  清除昨日資料delete掉

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2011-7-15 09:11 | 顯示全部帖子

本帖最後由 GBKEE 於 2011-7-16 13:43 編輯

回復 23# andylin
依樣畫葫蘆試試看

'ThisWorkbook模組的程序
Private Sub Workbook_Open() '此程式是檔案開啟時自動執行的程式
Dim E As Range
If MsgBox("啟動自動記錄資料??", vbYesNo) = vbNo Then Exit Sub
Sheets("1分K").UsedRange.Offset(1, 1) = "" ' 清除昨日資料
Sheets("5分K").UsedRange.Offset(1, 1) = ""
Sheets("15分K").UsedRange.Offset(1, 1) = ""
Application.OnTime #9:00:00 AM#, "ThisWorkbook.資料輸入"
'**** 09:00:00時間執行程式 ->資料輸入
End Sub
Sub 資料輸入()
Dim Ar(1 To 15) 'Ar陣列 -> 存入你要的數據
Ar(1) = Time
Ar(2) = [Table!B2]
Ar(3) = [Table!C2]
Ar(4) = "=IF(ROW()>2,RC[-2]-R[-1]C[-2],"""")" ' ** 公式
Ar(5) = "=IF(ROW()>2,RC[-2]-R[-1]C[-2],"""")"
'Ar(6) 空白
Ar(7) = [Table!E2]
Ar(8) = [Table!F2]
Ar(9) = "=IF(ROW()>2,RC[-2]-R[-1]C[-2],"""")"
Ar(10) = "=IF(ROW()>2,RC[-2]-R[-1]C[-2],"""")"
'Ar(11) 空白
Ar(12) = [Table!H2]
Ar(13) = [Table!I2]
Ar(14) = "=IF(ROW()>2,RC[-2]-R[-1]C[-2],"""")"
Ar(15) = "=IF(ROW()>2,RC[-2]-R[-1]C[-2],"""")"
If Minute(Time) Mod 1 = 0 Then Sheets("1分K").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, UBound(Ar)).Value = Ar 'Minute(Time) Mod 1=0 每分鐘
If Minute(Time) Mod 5 = 0 Then Sheets("5分K").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, UBound(Ar)).Value = Ar 'Minute(Time) Mod 1=0 每5分鐘
If Minute(Time) Mod 15 = 0 Then Sheets("15分K").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, UBound(Ar)).Value = Ar 'Minute(Time) Mod 1 =0 每15分鐘
If Time <= #1:30:00 PM# Then Application.OnTime TimeValue(Format(Time, "hh:MM:00")) + #12:01:00 AM#, "ThisWorkbook.資料輸入"
' *** #1:30:00 PM# 之前時間執行程式 ->資料輸入
End Sub

複製代碼

請看這裡的PS

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2011-7-21 07:33 | 顯示全部帖子

回復 27# andylin

'ThisWorkbook模組的程序
Private Sub Workbook_Open() '此程式是檔案開啟時自動執行的程式
Dim E As Range
If MsgBox("啟動自動記錄資料??", vbYesNo) = vbNo Then Exit Sub
Sheets("1分K").UsedRange.Offset(1, 1) = "" ' 清除昨日資料
Sheets("5分K").UsedRange.Offset(1, 1) = ""
Sheets("15分K").UsedRange.Offset(1, 1) = ""
Application.OnTime #8:46:00 AM#, "ThisWorkbook.資料輸入"
'**** 08:46:00時間執行程式 ->資料輸入
End Sub
Sub 資料輸入()
'''''''''''''''''''''''''''''''''''''
'Dim Ar() 'Ar陣列 -> 存入你要的數據
'Ar = Sheets("Table").Range("B2:D2").Value
'''''''''''''''''''''''''''''''''''''
Dim Ar(1 To 3) 'Ar陣列 -> 存入你要的數據
Ar(1) = [Table!B2]
Ar(2) = [Table!C2]
Ar(3) = [Table!D2]
'** Sheets("1分K").Range("B" & Rows.Count).End(xlUp).Offset(1) ** 資料從B欄開使置入 **
If Minute(Time) Mod 1 = 0 Then Sheets("1分K").Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(1, UBound(Ar)).Value = Ar 'Minute(Time) Mod 1=0 每分鐘
If Minute(Time) Mod 5 = 0 Then Sheets("5分K").Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(1, UBound(Ar)).Value = Ar 'Minute(Time) Mod 1=0 每5分鐘
If Minute(Time) Mod 15 = 0 Then Sheets("15分K").Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(1, UBound(Ar)).Value = Ar 'Minute(Time) Mod 1 =0 每15分鐘
If Time <= #1:30:00 PM# Then Application.OnTime TimeValue(Format(Time, "hh:MM:00")) + #12:01:00 AM#, "ThisWorkbook.資料輸入"
' *** #1:30:00 PM# 之前時間執行程式 ->資料輸入
End Sub

複製代碼

TOP

[發問] 劵商DDE傳Excel 每分自動記錄數據

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]