12
返回列表 上一主題 發帖

[發問] 請教使用yeswin RTD, 巨集開啟後資料就無法更新

randychou

帖子
9 
主題
2 
精華
0 
積分
15 
點名
0  
作業系統
XP 
軟體版本
Office 2010 
閱讀權限
10 
註冊時間
2012-6-18 
最後登錄
2014-10-6 
5# 跳轉到 »
發表於 2013-1-7 09:31 | 只看該作者
呼呼!! 謝謝CC大 可以動了
另外有個小問題請教一下
我在run 巨集的時候 嘗試去開另外一個excel 就會出錯 "執行階段錯誤 9"
這個是不是EXCEL的限制呢?

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
4#
發表於 2013-1-6 08:18 | 只看該作者
回復 3# randychou
#2 樓程式碼只是單純讓你測試是否有資料錄實際寫入而已，
如果你要實際做盤中測試，則須加入開市、關市資訊，
則請改成如下：
  1. Public turnKey As Integer

  3. Sub Auto_Open()
  4.     If (TimeValue(Now) >= TimeValue("13:45:00")) Then      '  設定每日關市時間
  5.         Exit Sub
  6.     ElseIf (TimeValue(Now) <= TimeValue("08:45:00")) Then   '  設定每日開市時間
  7.         Application.OnTime (TimeValue("08:45:00")), "Module11.Macro_TX_DDE_COPY"
  8.     Else
  9.         '  系統剛連上 Yeswin報價元件(RTD) COM 機制，須有一個緩衝時段，這時如果馬上
  10.         '  去抓取資料，會有型態不符的錯誤訊息 (?無資料) 產生，並中斷執行序的作業。
  11.         Application.OnTime (Now + TimeValue("00:00:05")), "Module11.Macro_TX_DDE_COPY"
  12.     End If
  13. End Sub

  15. Sub Macro_TX_DDE_COPY()
  16.     Dim nums As Integer
  17.    
  18.     nums = 20      '  20 秒 (預設值)
  19.    
  20.     turnKey = turnKey + 1
  21.     Sheets("DDE_DATA").[A5] = "( " & turnKey & " 秒 )"
  22.    
  23.     If (Second(Time) Mod nums) = 0 Then    '  間隔 nums 秒，儲存一筆資料列
  24.        With Sheets("RECORD_TX")
  25.             If Not IsError(Sheets("DDE_DATA").[D2]) Then          '  避開型態不符的錯誤訊息
  26.                 pos = .Range("A" & Rows.Count).End(xlUp).Row + 1  '  往下加一筆資料列
  27.                 .Cells(pos, 1).Resize(1, 9) = Sheets("DDE_DATA").Cells(2, 1).Resize(1, 9).Value
  28.                 turnKey = 0  '  turnKey 值歸零
  29.             End If
  30.         End With
  31.     End If
  32.    
  33.     If (TimeValue(Now) <= TimeValue("13:45:00")) Then _
  34.         Application.OnTime (Now + TimeValue("00:00:01")), "Module11.Macro_TX_DDE_COPY"
  35. End Sub
複製代碼

TOP

randychou

帖子
9 
主題
2 
精華
0 
積分
15 
點名
0  
作業系統
XP 
軟體版本
Office 2010 
閱讀權限
10 
註冊時間
2012-6-18 
最後登錄
2014-10-6 
3#
發表於 2013-1-5 18:49 | 只看該作者
謝謝 c_c_lai 大 的解答. 週一再來試試看
很感謝

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2013-1-5 14:42 | 只看該作者
請教各位前輩
小弟原先都是使用easywin 的DDE 資料 但非常的吃資源
最近發現元大的另一個軟體 Yeswin 有提 ...
randychou 發表於 2013-1-4 11:46

Yeswin 報價元件(RTD) 是正常的，  =RTD("money.excel",,,$A$7,"Price")
你可以直接寫成  =RTD("money.excel",,"TXF1","Price")
試試看！
  1. Public turnKey As Integer

  3. Sub Macro_TX_DDE_COPY()
  4.     Dim nums As Integer
  5.    
  6.     nums = 20      '  20 秒 (預設值)
  7.    
  8.     turnKey = turnKey + 1
  9.     Sheets("DDE_DATA").[A5] = "( " & turnKey & " 秒 )"
  10.    
  11.     If (Second(Time) Mod nums) = 0 Then    ' 間隔 nums 秒
  12.        With Sheets("RECORD_TX")
  13.             If Not IsError(Sheets("DDE_DATA").[D2]) Then
  14.                 pos = .Range("A" & Rows.Count).End(xlUp).Row + 1
  15.                 .Cells(pos, 1).Resize(1, 9) = Sheets("DDE_DATA").Cells(2, 1).Resize(1, 9).Value
  16.                 turnKey = 0
  17.             End If
  18.         End With
  19.     End If
  20.    
  21.     Application.OnTime (Now + TimeValue("00:00:01")), "Module11.Macro_TX_DDE_COPY"
  22. End Sub
複製代碼

TOP

        靜思自在 : 得理要饒人，理直要氣和。
12
返回列表 上一主題