請問如何將以連接EXCEL的DDE數據每分鐘紀錄下來？ - Excel程式區

123 4 5 6 下一頁

返回列表下一主題上一主題發帖

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

j1221

中學生 Rank: 2

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

48^# 跳轉到 »

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

barrykuo

小學生 Rank: 1

帖子: 39
主題: 4
精華: 0
積分: 48
點名: 0
作業系統: windows 7
軟體版本: sp1
閱讀權限: 10
性別: 男
註冊時間: 2013-2-2
最後登錄: 2014-8-26

47^#

發表於 2013-2-24 12:04 | 只看該作者

這裡實在太精采了，我想學習學習，準備利用來使用卷商的RTD 數據記錄在excel裡，不知道可以這樣使用嘛？

人生只有三天，只有活在今天最踏實

TOP

redeemer

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 8
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 10
註冊時間: 2012-12-2
最後登錄: 2012-12-6

46^#

發表於 2012-12-4 03:47 | 只看該作者

可惜附件無法下載，先進的修改無法參照，實在是有看沒有懂。

TOP

heavenweaver

中學生 Rank: 2

帖子: 48
主題: 6
精華: 0
積分: 60
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-13
最後登錄: 2023-2-7

45^#

發表於 2012-9-18 20:24 | 只看該作者

我也是權限不足無法下載，只能看看在旁邊羨慕與觀摩。

很抱歉，我是小學生，不能下載檔案，是個小屁孩！

TOP

minghg

小學生 Rank: 1

帖子: 5
主題: 0
精華: 0
積分: 3
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2012-1-14
最後登錄: 2014-11-3

44^#

發表於 2012-8-21 21:51 | 只看該作者

太感謝.找了好久vba的寫法但權限不足無法下載繼續學習

TOP

veign911

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 8
點名: 0
作業系統: window xp
軟體版本: ie8
閱讀權限: 10
註冊時間: 2010-12-15
最後登錄: 2012-3-15

43^#

發表於 2012-3-14 10:15 | 只看該作者

我也想學耶.真想來試試.可是看不太懂!!!!

TOP

sjy039

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 6
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 10
性別: 男
註冊時間: 2011-3-6
最後登錄: 2012-3-29

42^#

發表於 2012-2-27 00:05 | 只看該作者

小弟初來乍到,也因為想開始透過dde,利用vba的程式將想記錄的固定時間資料存取下來做一些運算
很高興有這麼多高手在此熱心分享

Jingyi

TOP

j1221

中學生 Rank: 2

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

41^#

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