123
返回列表 上一主題 發帖

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

jiuhtsair

帖子
86 
主題
30 
精華
0 
積分
140 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
註冊時間
2011-2-19 
最後登錄
2020-8-26 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-4-19 16:17 | 只看該作者

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

本帖最後由 jiuhtsair 於 2011-8-23 17:55 編輯

各位大大好：
      對於VBA我是新手！
      在網路上看到許多高手寫出有關DDE紀錄的問題，但大多是紀錄一分鐘或是一分鐘以上的時間。曾嘗試將其更改成每秒紀錄一次，卻總是不得其門而入...
      我想要把DDE傳給EXCEL的資料(時間、開盤價、最高價、最低價、收盤價、單量、成交量)，依照時間每一秒紀錄一次(放在另一個工作表中)，不知道能否請大大們協助？謝謝！

      另外，能否介紹幾本VBA入門書，在坊間有許多書，但看的眼花撩亂，也懇請大大們已過來人經驗介紹幾本好書...謝謝！
收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
0  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-11-15 
21#
發表於 2018-5-26 14:25 | 只看該作者

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

回復 20# yen956

Yen 大您好， 我是接續 jiuhtsair大的PO文發問的， 我發問時他的標題上就已經有(已解決)
你可以試試 在回復時，主題的右邊有 [修改]， 按一下後再加入你要加入的字試試看 !

修改主題.png (293.08 KB)

修改主題.png

TOP

yen956

帖子
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

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
0  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-11-15 
19#
發表於 2018-4-27 15:56 | 只看該作者
回復 18# GBKEE


謝謝版大 !     可以跑了!

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

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

一分鐘測試碼-版主碼-1.jpg

TOP

GBKEE

帖子
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
試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Sht1 As Worksheet, MyBook As Workbook, Rng As Range
  4.     Dim xTime As Date
  5.     Set MyBook = ThisWorkbook
  6.     Set Sht1 = MyBook.Sheets("1")
  7.     xTime = Time       '不要管Sht1.Cells(2, 1)的時間
  8.     Do
  9.             DoEvents
  10.            If Time >= xTime Then  
  11.                 xTime = TimeSerial(Hour(Time), Minute(Time) + 1, 0)   '下一分鐘
  12.                 Set Rng = Nothing
  13.                 If Time >= #8:40:00 AM# And Time <= #1:30:00 PM# Then    '日盤
  14.                     Set Rng = [N2:W2]
  15.                 ElseIf Time >= #2:59:50 PM# Or Time <= #5:00:10 AM# Then
  16.                 '時間要跨過隔日
  17.                 'http://forum.twbts.com/thread-20727-1-1.html
  18.                 '夜盤 StartTime 14:59:50  /  EndTime 隔日 05:00:10
  19.                     Set Rng = [A2:J2]
  20.                
  21.                 End If
  22.                 If Not Rng Is Nothing Then
  23.                     With Cells(Rows.Count, "A").End(xlUp).Offset(1)
  24.                         .Resize(, Rng.Count) = Rng.Value
  25.                     End With
  26.                 End If
  27.             End If
  28.         Loop
  29. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
0  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-11-15 
17#
發表於 2018-4-26 22:01 | 只看該作者
回復 16# GBKEE


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

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

一分鐘測試碼-版主碼.jpg

TOP

GBKEE

帖子
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
我只有台新證券公司的智多星可用.

可再試試看
  1. Sub Ex()
  2.     Dim Sht1 As Worksheet, MyBook As Workbook, A As Date
  3.     Set MyBook = ThisWorkbook
  4.     Set Sht1 = MyBook.Sheets("1")
  5.         A = #8:40:00 AM#
  6.         'Date 函數 傳回一 Variant (Date)，內容為系統日期 (電腦所記錄的現在日期)。
  7.         j = 2
  8.         Do
  9.             DoEvents
  10.             '********測試用  ******************************************
  11.            ' If IsError(Sht1.Cells(2, 1)) Then Stop  '傳回錯誤值 程式暫停
  12.             '**********************************************************
  13.             If Not IsError(Sht1.Cells(2, 1)) Then
  14.               '''  MsgBox TypeName(Sht1.Cells(2, 1).Value)
  15.                 If Sht1.Cells(2, 1) > A Then   'SHEETS(1)的A2大於 時間
  16.                     A = Sht1.Cells(2, 1)         '更改時間為SHEETS(1)的A2
  17.                     Sht1.Cells(j, 2).Resize(1, 6) = Sht1.Cells(2, 5).Resize(1, 6).Value
  18.                     O = 0
  19.                     H = -99999
  20.                     l = 99999
  21.                     cumVol = V
  22.                     j = j + 1
  23.                 End If
  24.             End If
  25.         Loop
  26. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
0  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-11-15 
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)

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

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

TOP

GBKEE

帖子
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

帖子
115 
主題
24 
精華
0 
積分
178 
點名
0  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-11-15 
13#
發表於 2018-4-25 15:35 | 只看該作者
回復 12# GBKEE


謝謝版大!   出現型態不符

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

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

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

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。
123
返回列表 上一主題