程式碼如何寫以紀錄EXCEL的DDE數據每秒鐘紀錄)(已解決)

ABK

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 1
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-4-26

11^# 跳轉到 »

發表於 2018-4-25 00:33 | 只看該作者

回復 8# GBKEE

版大您好! 我用Excel2016版，跑程式碼卡住了，是哪裡有問題?
資料源我改成元大RTD了!

一分鐘紀錄.jpg (53.67 KB)

1分鐘紀錄- 測試檔-1.rar (17.91 KB)

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兔年全勤獎章

12^#

發表於 2018-4-25 13:47 | 只看該作者

回復 11# ABK

Sheets("1")的A 2 公式=RTD("money.excel",,"*SYSTEM","ServerTime")
是否傳回#N/A (錯誤值),導致程式錯誤試試看

Sub Ex()
Set MyBook = ThisWorkbook
Set Sht1 = MyBook.Sheets("1")
Dim A As Single
A = 0.361111 '時間上午 08:40:00
j = 2
Do
DoEvents
'********測試用 ******************************************
If IsError(Sht1.Cells(2, 1)) Then Stop '傳回錯誤值程式暫停
'**********************************************************
If Not IsError(Sht1.Cells(2, 1)) Then
If Sht1.Cells(2, 1) > A Then 'SHEETS(1)的A2大於時間
A = Sht1.Cells(2, 1) '更改時間為SHEETS(1)的A2
Sht1.Cells(j, 2).Resize(1, 6) = Sht1.Cells(2, 5).Resize(1, 6).Value
O = 0
H = -99999
l = 99999
cumVol = V
j = j + 1
End If
End If
Loop
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

ABK

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 1
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-4-26

13^#

發表於 2018-4-25 15:35 | 只看該作者

回復 12# GBKEE

謝謝版大! 出現型態不符

2018-04-25(執行階段錯誤'13'-型態不符).jpg (69.56 KB)

1分鐘紀錄- 測試檔-2.rar (18.33 KB)

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兔年全勤獎章

14^#

發表於 2018-4-25 18:46 | 只看該作者

回復 13# ABK

=RTD("money.excel",,"*SYSTEM","ServerTime")
這式我沒有你的檔案無法測試

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

ABK

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 1
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-4-26

15^#

發表於 2018-4-25 22:30 | 只看該作者

回復 14# GBKEE

謝謝版大! 按下偵錯後如附圖 !
附件我改成元大Yeswin 的 DDE。

15:00~ 隔日05:00 A2:J2 資料會變動 (午夜盤交易時段)

8:45 ~ 13:45 N2:W2 資料會變動 (日盤交易時段)

資料連結需先開啟元大Yeswin 看盤軟體

2018-04-25(執行階段錯誤'13'-型態不符)-1.jpg (74.62 KB)

元大DDE 1分鐘紀錄- 測試檔-2.rar (18.67 KB)

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兔年全勤獎章

16^#

發表於 2018-4-26 07:01 | 只看該作者

回復 15# ABK
我只有台新證券公司的智多星可用.

可再試試看

Sub Ex()
Dim Sht1 As Worksheet, MyBook As Workbook, A As Date
Set MyBook = ThisWorkbook
Set Sht1 = MyBook.Sheets("1")
A = #8:40:00 AM#
'Date 函數傳回一 Variant (Date)，內容為系統日期 (電腦所記錄的現在日期)。
j = 2
Do
DoEvents
'********測試用 ******************************************
' If IsError(Sht1.Cells(2, 1)) Then Stop '傳回錯誤值程式暫停
'**********************************************************
If Not IsError(Sht1.Cells(2, 1)) Then
''' MsgBox TypeName(Sht1.Cells(2, 1).Value)
If Sht1.Cells(2, 1) > A Then 'SHEETS(1)的A2大於時間
A = Sht1.Cells(2, 1) '更改時間為SHEETS(1)的A2
Sht1.Cells(j, 2).Resize(1, 6) = Sht1.Cells(2, 5).Resize(1, 6).Value
O = 0
H = -99999
l = 99999
cumVol = V
j = j + 1
End If
End If
Loop
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

ABK

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 1
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-4-26

17^#

發表於 2018-4-26 22:01 | 只看該作者

回復 16# GBKEE

感謝版主 !    可以記錄了!
目前是1秒鐘記錄一次，  如何修改讓它1分鐘記錄一次 ?
如果我要指定它在 15:00:00  (下午3點時自動停止)  要如何寫?

一分鐘測試碼-版主碼.jpg (167.23 KB)

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兔年全勤獎章

18^#

發表於 2018-4-27 09:17 | 只看該作者

本帖最後由 GBKEE 於 2018-4-27 09:41 編輯

回復 17# ABK
試試看

Option Explicit
Sub Ex()
Dim Sht1 As Worksheet, MyBook As Workbook, Rng As Range
Dim xTime As Date
Set MyBook = ThisWorkbook
Set Sht1 = MyBook.Sheets("1")
xTime = Time '不要管Sht1.Cells(2, 1)的時間
Do
DoEvents
If Time >= xTime Then
xTime = TimeSerial(Hour(Time), Minute(Time) + 1, 0) '下一分鐘
Set Rng = Nothing
If Time >= #8:40:00 AM# And Time <= #1:30:00 PM# Then '日盤
Set Rng = [N2:W2]
ElseIf Time >= #2:59:50 PM# Or Time <= #5:00:10 AM# Then
'時間要跨過隔日
'http://forum.twbts.com/thread-20727-1-1.html
'夜盤 StartTime 14:59:50 / EndTime 隔日 05:00:10
Set Rng = [A2:J2]
End If
If Not Rng Is Nothing Then
With Cells(Rows.Count, "A").End(xlUp).Offset(1)
.Resize(, Rng.Count) = Rng.Value
End With
End If
End If
Loop
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

ABK

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 1
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-4-26

19^#

發表於 2018-4-27 15:56 | 只看該作者

回復 18# GBKEE

謝謝版大 ! 可以跑了!

紀錄時間都在58秒是我的電腦時間比卷商主機時間(A2儲存格) 快2秒的原因!

一分鐘測試碼-版主碼-1.jpg (211.34 KB)

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

20^#

發表於 2018-5-4 15:04 | 只看該作者

本帖最後由 yen956 於 2018-5-4 15:05 編輯

ABK大大你好:
請問大大, 你是如何修改標題的?(如:加上已解決)
是積分問題嗎? 我總是試不出來, 謝謝!!

TOP

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

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