j1221

帖子: 50
主題: 10
精華: 0
積分: 69
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-21
最後登錄: 2015-1-11

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-7-1 09:24 | 只看該作者

[發問] 請問如何將以連接EXCEL的DDE數據每分鐘紀錄下來？

板主，各位前輩大家好

其實這個問題，我之前已經在舊論壇拜讀過相關文章，尤其是jimmy大的那篇經典文章
因為小弟本身的做法和看盤軟體（我是用yeswin）跟之前jimmy大的不一樣
所以我把GBKEE大分享的程式碼稍微改了一下，可是還是不能用....故想請問GBKEE大，我該怎麼改才可以使用

請先讓我簡單說明我的設定：
1.小弟是先將所有我需要的資料（期權）全部都先集中在一個工作表(sheet 1)中（這可能跟其他前輩不一樣）
2.再挑出我今天關注的某一檔（比如說大台），再將大台的相關資訊指向第二個工作表(sheet 2)
3.我希望能將大台的每一分鐘資料都紀錄在sheet 2裡

也就是說，我不是直接紀錄DDE回傳的資料，我是紀錄sheet 1中資料格的變動，
所以我將GBKEE大的程式碼download改成了change，可是還是不能用....可否請問GBKEE大，我該怎麼改才可以使用？

請查閱我附上的檔案，感謝各位

DDE(Yeswin).xls.zip (25.87 KB)

樓主熱帖

我愛麻辣家族討論區！！

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

2^#

發表於 2010-7-1 16:22 | 只看該作者

本帖最後由 GBKEE 於 2010-7-1 17:33 編輯

回復 1# j1221
試試看

Private Sub Workbook_Open()
If Time >= TimeValue("08:45:00") And Time <= TimeValue("13:45:00") Then
Sheet2.[B7:G307] = ""
change
Else
Application.OnTime "09:01:00", "ThisWorkbook.change"
End If
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub change()
Dim TimeRange As Range, Rng As Range, R As Range
With Sheet2
Set TimeRange = .[A:A].Find(Format(TimeSerial(Hour(Time), Minute(Time), 0), "hh:mm"), LookIn:=xlValues)
Set Rng = TimeRange.Offset(, 1).Resize(1, 6)
Set R = Application.Evaluate(Mid(.Range("A3").Formula, 2))
'R 是A3的公式 =Data!B2 所指的位置
End With
Rng.Value = R.Offset(, 1).Resize(, 6).Value
If Time > TimeValue("13:45:00") Then Exit Sub
Application.OnTime Now + TimeValue("00:01"), "ThisWorkbook.change"
End Sub

複製代碼

TOP

j1221

中學生 Rank: 2

帖子: 50
主題: 10
精華: 0
積分: 69
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-21
最後登錄: 2015-1-11

3^#

發表於 2010-7-1 22:28 | 只看該作者

本帖最後由 j1221 於 2010-7-2 09:00 編輯

回復 2# GBKEE

先謝謝GBKEE大的回復！！

小弟剛剛試了，貼上程式碼後按F5執行，出現「沒有設定物件變數或 With 區塊變數 (錯誤 91)」的訊息.....
偵錯後，顯示有問題的部份為『Set Rng = TimeRange.Offset(, 1).Resize(1, 6)』，可否請問這是什麼原因呢？

還有另一問想請教您，可否請問您為什麼需要
『Set R = Application.Evaluate(Mid(.Range("A3").Formula, 2))
'R 是A3的公式 =Data!B2 所指的位置』

因為我實際上想要記錄的是將Sheet1 的C2-H2記錄至Sheet2的B7-G7，然後依時間順序往下記錄
Sheet1!A3 指向Sheet2!B2 只是我為了要方便辨認目前記錄的項目，請問您這樣設定是有什麼特別的作用嗎？

再次謝謝您的幫助

我愛麻辣家族討論區！！

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

4^#

發表於 2010-7-2 16:04 | 只看該作者

回復 3# j1221

出現「沒有設定物件變數或 With 區塊變數 (錯誤 91)」的訊息.....

請問你測試時的時間是Sheet2的A欄裡有的時間嗎?

2.再挑出我今天關注的某一檔（比如說大台），再將大台的相關資訊指向第二個工作表(sheet 2)

根據你說的所以-> Set R = Application.Evaluate(Mid(.Range("A3").Formula, 2))
** R 是A3的公式 =Data!B2 所指的位置 ->今天關注的某一檔

如果你要
實際上想要記錄的是將Sheet1 的C2-H2記錄至Sheet2的B7-G7

那你改成 Rng.Value = Sheet1.[C2:H2].Value

TOP

j1221

中學生 Rank: 2

帖子: 50
主題: 10
精華: 0
積分: 69
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-21
最後登錄: 2015-1-11

5^#

發表於 2010-7-3 02:49 | 只看該作者

回復 4# GBKEE

感謝GBKEE大的回答

我已經改好了。

我是在開盤前，就打開excel檔，我sheet2上的第一個時間是8:45，所以這就是出問題的原因嗎？

那....請問您我該怎麼克服這個情形？等開盤後再打開excel檔？

我愛麻辣家族討論區！！

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

6^#

發表於 2010-7-3 14:54 | 只看該作者

回復 5# j1221
下週一 08:45 前開啟檔案測試看看

Private Sub Workbook_Open()
Sheet2.[B7:G307] = ""
If Time >= TimeValue("08:45:00") And Time <= TimeValue("13:45:00") Then
change
Else
Application.OnTime "08:45:00", "ThisWorkbook.change"
End If
End Sub

複製代碼

TOP

j1221

中學生 Rank: 2

帖子: 50
主題: 10
精華: 0
積分: 69
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-21
最後登錄: 2015-1-11

7^#

發表於 2010-7-5 09:05 | 只看該作者

回復 6# GBKEE

謝謝GBKEE大，

我改了，也在剛剛試了，可是卻還是跳出同樣的錯誤訊息，是否是因為我在sheet3有外加圖表的問題？

可否附上附件，請您再幫我看一下？

DDE(Yeswin).rar (18.53 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兔年全勤獎章

8^#

發表於 2010-7-5 15:38 | 只看該作者

回復 7# j1221

Private Sub Achange()
Dim TimeRange As Range, Rng As Range, R As Range
With Sheet2
Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), 0), LookIn:=xlFormulas)
Set Rng = TimeRange.Offset(, 1).Resize(1, 6)
End With
Rng.Value = Sheet1.[C2:H2].Value
If Time > TimeValue("13:45:00") Then Exit Sub
Application.OnTime Now + TimeValue("00:01"), "ThisWorkbook.change"
End Sub

複製代碼

TOP

j1221

中學生 Rank: 2

帖子: 50
主題: 10
精華: 0
積分: 69
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-21
最後登錄: 2015-1-11

9^#

發表於 2010-7-6 09:21 | 只看該作者

回復 8# GBKEE

感謝GBKEE大，已經可以用了！！！！

但可否請問，之前不能用是因為甚麼問題呢？

此外，若我還想再增加儲存格，是否只要改動儲存格範圍就可以了？

因為我今天確認可以用之後，想說多加幾格試試看，為了便於觀看，我空了一整行當作分隔線，之後才增加我的儲存格

也就是說我是這樣使用的 --->> 資料 | 空格｜資料

結果它依舊只會更新最早指定的那些儲存格，這是因為我中間有空格的關係嗎？還是其實並沒有差別？

再次感謝您

我愛麻辣家族討論區！！

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

10^#

發表於 2010-7-6 17:41 | 只看該作者

回復 9# j1221
Set TimeRange = .[A:A].Find(Format(TimeSerial(Hour(Time), Minute(Time), 0), "hh:mm"), LookIn:=xlValues) 多了一個h 因為儲存格時間格式是 h:mm

改成直接尋找時間就不容易出錯
Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), 0), LookIn:=xlFormulas)

也就是說我是這樣使用的 --->> 資料 | 空格｜資料 ??? 不太暸解請附檔看看

TOP