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)

樓主熱帖

我愛麻辣家族討論區！！

j1221

中學生 Rank: 2

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

2^#

發表於 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

j1221

中學生 Rank: 2

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

3^#

發表於 2010-7-3 02:49 | 顯示全部帖子

回復 4# GBKEE

感謝GBKEE大的回答

我已經改好了。

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

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

我愛麻辣家族討論區！！

TOP

j1221

中學生 Rank: 2

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

4^#

發表於 2010-7-5 09:05 | 顯示全部帖子

回復 6# GBKEE

謝謝GBKEE大，

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

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

DDE(Yeswin).rar (18.53 KB)

我愛麻辣家族討論區！！

TOP

j1221

中學生 Rank: 2

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

5^#

發表於 2010-7-6 09:21 | 顯示全部帖子

回復 8# GBKEE

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

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

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

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

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

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

再次感謝您

我愛麻辣家族討論區！！

TOP

j1221

中學生 Rank: 2

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

6^#

發表於 2010-7-6 21:14 | 顯示全部帖子

回復 10# GBKEE

感謝您的解答

第二個問題請您查閱附檔，我加上了均買、均賣兩個簡單的計算在sheet1，然後跟之前一樣，希望在sheet2按照每分鐘記錄下來

今天開盤的時候試，發現新增的欄位沒辦法記錄下來（也就是附檔中的J2、K2）只有舊的欄位可以按每分鐘紀錄

今天的紀錄被我腦殘洗掉了....Orz

再次謝謝您這麼熱心的幫忙，真的太感動了

DDE(Yeswin).rar (20.58 KB)

我愛麻辣家族討論區！！

TOP

j1221

中學生 Rank: 2

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

7^#

發表於 2010-7-7 09:07 | 顯示全部帖子

回復 10# GBKEE

GBKEE大，我的問題解決了

是我自己腦殘 Rng.Value = R.Offset(, 1).Resize(, 6).Value沒做相對應的更動，難怪不會記錄.....

這樣就不用勞煩您了

真的謝謝你的熱心幫助，感謝您

我愛麻辣家族討論區！！

TOP

j1221

中學生 Rank: 2

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

8^#

發表於 2011-12-28 23:13 | 顯示全部帖子

回復 39# bubu1019

Hello~

改成每秒的話，用這個：

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

複製代碼

但是記得也要把你的時間從hh:mm改成hh:mm:ss喔！

請試試看吧！

我愛麻辣家族討論區！！

TOP

j1221

中學生 Rank: 2

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

9^#

發表於 2014-2-5 13:59 | 顯示全部帖子

回復 10# GBKEE

GBKEE大，不好意思，又來麻煩你。

之前請叫過您關於每分鐘記錄DDE的數據，現在我想要將它改成每5分鐘記錄一次，所以更動了一下程式碼。

但是出現「沒有設定物件變數或 With 區塊變數 (錯誤 91)」的訊息.....
偵錯後，顯示有問題的部份為『Set Rng = TimeRange.Offset(, 1).Resize(1, 11)』的地方，我檢查過之前出問題的地方，但是似乎跟之前的問題不一樣(已經又您之前提供的方式改過了)。

可否再請您幫我看一下呢？請詳見附檔。(資料源已經改為元大Yeswin RTD)感謝您

test.zip (198.79 KB)

我愛麻辣家族討論區！！

TOP

j1221

中學生 Rank: 2

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

10^#

發表於 2014-2-5 19:03 | 顯示全部帖子

本帖最後由 j1221 於 2014-2-5 19:05 編輯

回復 49# GBKEE

感謝GBKEE大，可以用了！！:D

只是有一個問題，excel在填入資料時，一次會填入當前儲存格和下一格(比如說目前是18:45，它會同時填入18:50和18:45)，請問為什麼會這樣呢？（煩請見下圖)

我愛麻辣家族討論區！！

TOP