請問該如何將DDE的數據「每秒」紀錄？

j1221

各位前輩好，

小弟之前曾經發問過，「請問如何將以連接EXCEL的DDE數據每分鐘紀錄下來？」

但是之後有一位網友在後續的討論中，問了「該如何紀錄每秒」的資料，我原先想試著回答他，所以我把原先的Coode:

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

複製代碼

改成

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

複製代碼

可是卻沒辦法使用，一執行巨集就會跳出「沒有With物件，或是With物件錯誤」

可否請問為什麼這樣改不行呢？謝謝大家

ps:對應的Excel時間資料格，也已經更改

kobo

在這code中有寫到sheet8
你確定excel檔案中有有這個工作表

j1221

回復 2# kobo

有的，因為原先的code是可以執行的！

GBKEE

回復 3# j1221
附檔上來,看是那裡出錯錯誤.

j1221

回復 4# GBKEE

謝謝GBKEE大，請參閱附件。

OP.rar (190.29 KB)

下載次數: 24

2011-12-28 02:07

Hsieh

回復 5# j1221

    Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), Second(Time)), LookIn:=xlFormulas)

可能這句因為找不到TimeSerial(Hour(Time), Minute(Time), Second(Time))這個值造成下一句
Set Rng = TimeRange.Offset(, 1).Resize(1, 15)因為TimeRange=Nothing而出現錯誤

j1221

回復 6# Hsieh


謝謝Hsieh大！ 我在Sheet8已經把所有的時間改成 hh:mm:ss了阿..... 那可否請問該怎麼改呢？

GBKEE

回復 5# j1221
在"08:45:00"<->"13:45:00" 間 執行Sub change 沒有 6#超版說的問題
如"08:45:00"<->"13:45:00" 時間外 執行Sub change 你這錯誤是會產生的

j1221

回復 8# GBKEE

謝謝GBKEE大，我今天盤中又試了一次，結果可以了誒....

不知道怎麼搞得....勞煩各位了:$

j1221

回復 6# Hsieh

謝謝Hsieh大，我今天盤中又是了一次，結果可以了....不知道為甚麼，勞煩了，感謝您！:)