1234
返回列表 上一主題 發帖

[發問] 請教抓取太平洋證卷的DDE 要如何從中抓取每分鐘的最大成交價及最小成交價

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
11# 跳轉到 »
發表於 2012-8-26 07:11 | 只看該作者
回復 10# GBKEE
lieh_chun 他要的是盤中的 Open/High/Low/Close 而不是 Max、Min。
回復 9# lieh_chun
因你無權限下載，所以只好將程式貼上，你將它全部覆蓋到你的 ThisWorkbook 程式區內儲存，再重啟就 OK 了！
  1. Option Explicit
  2. Dim Ov As Single, Hv As Single, Lv As Single, Cv As Single, cIndex As Single
  3. Dim timerEnabled As Boolean    ' 判定開啟本工作表單的時段是否為開盤前啟動。
  4. Public turnKey As Integer

  6. Private Sub Workbook_Open()
  7.     timerEnabled = False

  9.     Call timerStart      ' 程式一啟始，便去自動執行 timerStart
  10. End Sub

  12. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  13.     On Error Resume Next
  14.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.ATimer", , False
  15.    
  16.     Me.Save
  17. End Sub

  19. Public Sub ATimer()
  20.     Dim Pos As Long             ' 將每隔 "多少時間" 處理時段，移到此處來處理。
  21.    
  22.     On Error Resume Next
  23.     If (TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub
  24.    
  25.     If (TimeValue(Now) >= TimeValue("08:45:00")) Then         ' 開盤、收盤時段設定
  26.         ' 盤中處理，將資料匯入寫入工作表單內儲存。
  27.         With Sheets("策略記錄")
  28.             Pos = .Range("B" & Rows.Count).End(xlUp).Row   ' 求出該欄之最後使用列數  ' 目前為 329
  29.             If (Pos < 2) Then Pos = 12
  30.             Pos = Pos + 1                   ' 將變動行號加一行

  32.             If Not IsError(.[B2]) Then
  33.                 .[T1] = "開盤價"
  34.                 .[U1] = "最高價"
  35.                 .[V1] = "最低價"
  36.                 .[W1] = "成交價"
  37.                 .[T2] = Ov      ' 開盤價
  38.                 .[U2] = Hv      ' 最高價
  39.                 .[V2] = Lv      ' 最低價
  40.                 .[W2] = Cv      ' 成交價
  41.                  
  42.                  .Cells(Pos, 1) = Time           ' 時間
  43.                 ' 多空力道、反向勢力、主力控盤、內外盤比%、成交價、漲跌、
  44.                 ' 總量、最高、最低、加權指數、漲跌、累計委買、累委買筆、
  45.                 ' 累計委賣、累委賣筆、基差、委比、委買賣差、
  46.                 ' 開盤價、最高價、最低價、收盤價
  47.                 .Cells(Pos, 2).Offset(0).Resize(, 22) = .[B2:W2].Value
  48.             End If
  49.         End With
  50.     End If
  51. End Sub

  53. Sub timerStart()
  54.     turnKey = 0
  55.     Sheets("策略記錄").Range("B6").Value = 0
  56.    
  57.     If timerEnabled Then
  58.         ' 第二次(含)以後均以設定之 "間隔時段" 來處理執行序的作業。
  59.         Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.ExeSelf"
  60.     Else
  61.         timerEnabled = True
  62.         
  63.         ' 將第一次啟動時間更改為設定 "開盤時間"前，如果開啟 Excel 時，已經過了設定 "開盤時間"，則一進入系統即直接去執行紀錄作業。
  64.         If (TimeValue(Now) <= TimeValue("08:45:00")) Then
  65.             Application.OnTime (TimeValue("08:45:00")), "ThisWorkbook.ExeSelf"
  66.         Else
  67.             ' 系統剛連上 DDE 至資料匯入Excel工作表單，須有一個緩衝時段，
  68.             ' 這時如果馬上去抓取DDE資料，會有型態不符的錯誤訊息產生，並中斷執行序的作業。
  69.             Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.ExeSelf"
  70.         End If
  71.     End If
  72. End Sub

  74. Private Sub ExeSelf()
  75.     Dim nums As Integer            ' 預設為 60 秒
  76.    
  77.     nums = 60
  78.     On Error Resume Next
  79.     If (TimeValue(Now) < TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:46:01")) Then Exit Sub
  80.       
  81.     If IsError(Sheets("策略記錄").Range("F2").Value) Then
  82.         Cv = 0
  83.     Else
  84.         Cv = Sheets("策略記錄").Range("F2").Value    ' 成交價
  85.     End If
  86.          
  87.     If (turnKey = 0 Or Ov = 0) Then
  88.         Ov = Cv                                      ' 開盤價
  89.         Hv = Cv                                      ' 最高價
  90.         Lv = Cv                                      ' 最低價
  91.     End If
  92.         
  93.     turnKey = turnKey + 1
  94.            
  95.     If (Cv > Hv) Then Hv = Cv                        ' 最高價
  96.     If (Cv < Lv) Then Lv = Cv                        ' 最低價
  97.       
  98.     Sheets("策略記錄").Range("B6").Value = " ( " & turnKey & " 秒 )"
  99.    
  100.     If (turnKey < nums) Then
  101.         Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.ExeSelf"
  102.     Else
  103.         If (Cv > 0) Then Call ATimer
  104.         If timerEnabled Then Call timerStart
  105.     End If
  106. End Sub
複製代碼
DDE for lieh_chun.rar (62.46 KB)

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
12#
發表於 2012-8-26 07:25 | 只看該作者
回復 10# GBKEE
您的運算方法我會抽空來試試看，它的確也是不錯的處理方式，
我是用比較直接的方式來處哩，變數、與陣列的使用雖結果一樣，
我圖的只是以後好 Maintenance、且易判別之故。

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
13#
發表於 2012-8-26 07:33 | 只看該作者
回復 11# c_c_lai
lieh_chun 他要的是盤中的 Open/High/Low/Close 而不是 Max、Min。
9# 我要記錄每分鐘成交價的最高及最低點    10#程式碼可達成此效果
Open/High/Low/Close 不是對應著每分鐘的  AR(0)'開盤價 /Application.Max(AR)'最高價 / Application.Min(AR)'最低價 /AR(UBound(AR))'收盤價

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
14#
發表於 2012-8-26 08:43 | 只看該作者
回復 13# GBKEE
請教您它為何一直不動？ Worksheet_Calculate() 是 User Define Or Worksheet 內定觸發程式？
因為我很少使用 Excel 類似此類的方法 (Method)， 請您指導！
DDE for GBKEE.rar (10.12 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兔年全勤獎章
15#
發表於 2012-8-26 11:43 | 只看該作者
本帖最後由 GBKEE 於 2012-8-26 11:49 編輯

回復 14# c_c_lai
ThisWorkbook  模組的程式碼
  1. Public 紀錄_Msg As Boolean
  2. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  3.     紀錄_Msg = True
  4. End Sub
  5. Private Sub Workbook_Open()
  6.     Run "工作表1.紀錄"     ' 程式一啟始，便去自動執行 工作表1.紀錄
  7. End Sub
  8. Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
  9.     'ThisWorkbook 的重算事件
  10.     'Sh 傳回是哪一個工作表有重算
  11. End Sub
複製代碼
工作表1模組的程式碼
  1. '工作表1模組的程式碼(重算事件 )
  2. '工作表1 的A1 B1 C2 D1 E1 : 時間/開盤/價最高價/最低價/收盤價
  3. Private Sub Worksheet_Calculate()
  4.     Static Msg As Boolean                      '用以判定是否為每日第一次執行
  5.     Static Time_Calculate As Date              '記錄每分鐘的時間
  6.     Static AR                                  '陣列:記錄成交價格
  7.     If Time < #8:30:00 AM# Then Exit Sub
  8.     Application.EnableEvents = False           '停止物件能觸發事件(Worksheet_Calculate)
  9.     If Msg = False Then
  10.         Time_Calculate = TimeSerial(Hour(Time), Minute(Time), 0) '每分鐘的時間
  11.         Range("A1").CurrentRegion.Offset(1) = ""                '清理昨日資料
  12.         ReDim AR(0)                                              '重新設為一元素
  13.     End If
  14.     Msg = True
  15.     If Time >= Time_Calculate + #12:01:00 AM# Then
  16.             With Cells(Rows.Count, 1).End(xlUp).Offset(1)
  17.                 .Cells(1, 1) = Time_Calculate                    '時間
  18.                 .Cells(1, 2) = AR(0)                             '開盤價
  19.                 .Cells(1, 3) = Application.Max(AR)               '最高價
  20.                 .Cells(1, 4) = Application.Min(AR)               '最低價
  21.                 .Cells(1, 5) = AR(UBound(AR))                    '收盤價
  22.             End With
  23.             Time_Calculate = TimeSerial(Hour(Time), Minute(Time), 0)
  24.             ReDim AR(0)
  25.     End If
  26.     If AR(UBound(AR)) <> "" Then ReDim Preserve AR(UBound(AR) + 1) '重新再加上一元素
  27.     AR(UBound(AR)) = [iv1]                      '記錄成交價格成交價
  28.     Application.EnableEvents = True           '恢復物件能觸發事件(Worksheet_Calculate)
  29. End Sub
  30. '樓主檔案是引用太平洋證券的DDE =好神通!D4 不必有此程序
  31. '紀錄程序:是測試Worksheet_Calculate的正確性
  32. Private Sub 紀錄()
  33.     '紀錄時間執行迴圈 勿執行其他程式或輸入資料
  34.     Dim t As Date, 價格(1 To 4) As Single
  35.     價格(1) = 100
  36.     價格(2) = Round(價格(1) + 價格(1) * 0.07, 2)
  37.     價格(3) = Round(價格(1) - 價格(1) * 0.07, 2)
  38.     t = Time
  39.     Do
  40.         DoEvents
  41.         If Time > t + #12:00:05 AM# Then
  42.             t = Time
  43.             價格(4) = Round((價格(2) - 價格(3) + 1) * Rnd() + 價格(3), 2) '成交價的亂數
  44.             If 價格(4) > 價格(2) Then 價格(4) = 價格(2)
  45.             If 價格(4) < 價格(3) Then 價格(4) = 價格(3)
  46.             [iv1] = "=" & 價格(4)      '儲存格公式
  47.     '****    要觸動Worksheet_Calculate: 儲存格公式之值有變動  ****
  48.             Debug.Print [iv1]
  49.         End If
  50.     Loop While ThisWorkbook.紀錄_Msg = True Or Time <= #1:30:00 PM#
  51.     '關閉檔檔案 或 1:30:00 PM  停止紀錄
  52. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
16#
發表於 2012-8-26 13:13 | 只看該作者
回復 15# GBKEE
謝謝您讓我體會到 Excel method 的一些使用，但我發覺 DoEvents 幾乎完全佔據了整個作業時間，
再分時分工上會不會造成是一種負擔呢？

TOP

lieh_chun

帖子
8 
主題
1 
精華
0 
積分
14 
點名
0  
作業系統
WIN7 
軟體版本
Office2003 
閱讀權限
10 
性別
男 
註冊時間
2012-8-7 
最後登錄
2012-10-18 
17#
發表於 2012-8-27 20:53 | 只看該作者
回復 11# c_c_lai


奇怪了,大大您所提供的程式碼,我下去RUN,居然不會動ㄟ,連我改了系統的時間,還是不會動,不知道是那兒有問題??

TOP

lieh_chun

帖子
8 
主題
1 
精華
0 
積分
14 
點名
0  
作業系統
WIN7 
軟體版本
Office2003 
閱讀權限
10 
性別
男 
註冊時間
2012-8-7 
最後登錄
2012-10-18 
18#
發表於 2012-8-27 23:07 | 只看該作者
回復 15# GBKEE

板大 您好~
似乎看不是很懂您的程式碼?不知您的意思是指 ThisWorkbook 的內碼改成您的程式碼??
另外再插入一個模組(工作表1.紀錄)把您的文貼上去這樣就可以執行ㄇ??

感謝您的回覆與分享

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
19#
發表於 2012-8-28 07:43 | 只看該作者
回復 18# lieh_chun
上傳你整理過後之檔案！

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
20#
發表於 2012-8-28 09:12 | 只看該作者
回復 18# lieh_chun
這 工作表1模組 是 WorkSheet 物件的模組
15# 工作表1模組的程式碼, 可複製在任一 WorkSheet 物件的模組

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
1234
返回列表 上一主題