帖子: 9
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: XP
軟體版本: Office 2010
閱讀權限: 10
註冊時間: 2012-6-18
最後登錄: 2014-10-6

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-1-4 11:46 | 只看該作者

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

請教各位前輩
小弟原先都是使用easywin 的DDE 資料但非常的吃資源
最近發現元大的另一個軟體 Yeswin 有提供 RTD 的資料
於是我將原先的巨集稍作修改後
我主要是想要先把所有的資料記錄下來
所以我會去檢查時間變動的時候就複製到另一個分頁

在DDE的環境使用時都很正常,但當資料源換成RTD後,發現只要一開啟我的Macro 後
RTD的資料就不動了~
想請問各位前輩這個有辦法解決嗎?
是因為我的程式寫法不對嗎?

謝謝

大龍

TX_Yeswin_1.zip (17.58 KB)

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 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")
試試看！

Public turnKey As Integer
Sub Macro_TX_DDE_COPY()
Dim nums As Integer
nums = 20 ' 20 秒 (預設值)
turnKey = turnKey + 1
Sheets("DDE_DATA").[A5] = "( " & turnKey & " 秒 )"
If (Second(Time) Mod nums) = 0 Then ' 間隔 nums 秒
With Sheets("RECORD_TX")
If Not IsError(Sheets("DDE_DATA").[D2]) Then
pos = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Cells(pos, 1).Resize(1, 9) = Sheets("DDE_DATA").Cells(2, 1).Resize(1, 9).Value
turnKey = 0
End If
End With
End If
Application.OnTime (Now + TimeValue("00:00:01")), "Module11.Macro_TX_DDE_COPY"
End Sub

複製代碼

TOP

randychou

小學生 Rank: 1

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

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2013-1-6 08:18 | 只看該作者

回復 3# randychou
#2 樓程式碼只是單純讓你測試是否有資料錄實際寫入而已，
如果你要實際做盤中測試，則須加入開市、關市資訊，
則請改成如下：

Public turnKey As Integer
Sub Auto_Open()
If (TimeValue(Now) >= TimeValue("13:45:00")) Then ' 設定每日關市時間
Exit Sub
ElseIf (TimeValue(Now) <= TimeValue("08:45:00")) Then ' 設定每日開市時間
Application.OnTime (TimeValue("08:45:00")), "Module11.Macro_TX_DDE_COPY"
Else
' 系統剛連上 Yeswin報價元件(RTD) COM 機制，須有一個緩衝時段，這時如果馬上
' 去抓取資料，會有型態不符的錯誤訊息 (?無資料) 產生，並中斷執行序的作業。
Application.OnTime (Now + TimeValue("00:00:05")), "Module11.Macro_TX_DDE_COPY"
End If
End Sub
Sub Macro_TX_DDE_COPY()
Dim nums As Integer
nums = 20 ' 20 秒 (預設值)
turnKey = turnKey + 1
Sheets("DDE_DATA").[A5] = "( " & turnKey & " 秒 )"
If (Second(Time) Mod nums) = 0 Then ' 間隔 nums 秒，儲存一筆資料列
With Sheets("RECORD_TX")
If Not IsError(Sheets("DDE_DATA").[D2]) Then ' 避開型態不符的錯誤訊息
pos = .Range("A" & Rows.Count).End(xlUp).Row + 1 ' 往下加一筆資料列
.Cells(pos, 1).Resize(1, 9) = Sheets("DDE_DATA").Cells(2, 1).Resize(1, 9).Value
turnKey = 0 ' turnKey 值歸零
End If
End With
End If
If (TimeValue(Now) <= TimeValue("13:45:00")) Then _
Application.OnTime (Now + TimeValue("00:00:01")), "Module11.Macro_TX_DDE_COPY"
End Sub

複製代碼

TOP

randychou

小學生 Rank: 1

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

randychou

小學生 Rank: 1

帖子: 9
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: XP
軟體版本: Office 2010
閱讀權限: 10
註冊時間: 2012-6-18
最後登錄: 2014-10-6

6^#

發表於 2013-1-7 10:24 | 只看該作者

錯誤是發生在
#4樓的第24行
With Sheets("RECORD_TX")

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

7^#

發表於 2013-1-7 12:40 | 只看該作者

本帖最後由 c_c_lai 於 2013-1-7 12:43 編輯

錯誤是發生在
#4樓的第24行
With Sheets("RECORD_TX")
randychou 發表於 2013-1-7 10:24

如果同時開啟一隻以上帶有VBA程式碼的 Excel 檔，常會碰到此類的情況，
這也可能是 Excel 的 BUG；亦即它們在處理巨集時，相互間錯亂抓錯堆疊
而發生誤判的錯誤，所以基本上如果我是在線上跑資料時，我僅只開啟一隻
Excel 程式，以免自己修理自己，沒事找渣。

P.S. 如要回復對方時，請禮貌上點按 "回復" 選紐，如此對方才知道你有回復他。

TOP

randychou