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

JERRYHUANG123

中學生 Rank: 2

帖子: 16
主題: 1
精華: 0
積分: 128
點名: 0
作業系統: XP
軟體版本: 123
閱讀權限: 20
註冊時間: 2010-11-8
最後登錄: 2011-8-8

31^# 跳轉到 »

發表於 2011-1-17 18:03 | 只看該作者

HI skybbs
那我明天再來試看看你的方法
謝謝你的分享

TOP

skybbs

中學生 Rank: 2

帖子: 24
主題: 4
精華: 0
積分: 68
點名: 0
作業系統: WinXP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: Taiwan, Taipei
註冊時間: 2011-1-15
最後登錄: 2012-7-31

32^#

發表於 2011-1-17 21:47 | 只看該作者

Hello Jerry,

我知道我的程式為什麼會缺資料了, 應該只要加入如下碼應該就可以解決了.
Worksheets("sheet1").Activate

TOP

skybbs

中學生 Rank: 2

帖子: 24
主題: 4
精華: 0
積分: 68
點名: 0
作業系統: WinXP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: Taiwan, Taipei
註冊時間: 2011-1-15
最後登錄: 2012-7-31

33^#

發表於 2011-1-24 13:40 | 只看該作者

經過 #25樓, 謝大的指導與這幾天的K書, 終於把程式內容縮短且簡單改寫.
但是會遇到如下問題:

1.  如果同時有開其他EXCEL檔時, 且沒有加上 "Worksheets("sheet1").Activate"的話Data無法Update且會有錯誤.
   但是如果加上了"Worksheets("sheet1").Activate", 開第二個或第三個以上的EXCEL檔時會依照時間一直跳到跑到Sheet1.
   Q: 請問在同時開兩個以上的EXCEL時, 有沒有可以讓資料自動update, 且不要一直跑道Sheet1的方法 ?

2. 因為參照時間的儲存格在09:00:00時所顯示的是90000, 一直到10:00:00時才顯示100000
若使用 " t = Format(TimeValue(Format([C6], "00:00:00")), "hh:mm:ss")" 時, 90000 - 95900這段期間無法將data寫入.
100000 - 125900正常. 130000 - 133100無法將data寫入.
若使用 " t = Format(TimeValue(Format([C6], "00:00:00")), "h:mm:ss")" 時90000 - 125900可以正常寫入data.
130000 - 133100無法正常寫入data, 必須在"G"行的儲存格使用文字方式才可以, 也就是子行輸入('13:00:00).
Q: 以上請問是有甚麼衝突嗎, 是否有方法解決 ?

以上請各位先進不令賜教.

DDE-Test v2-1.zip (31.97 KB)

TOP

JERRYHUANG123

中學生 Rank: 2

帖子: 16
主題: 1
精華: 0
積分: 128
點名: 0
作業系統: XP
軟體版本: 123
閱讀權限: 20
註冊時間: 2010-11-8
最後登錄: 2011-8-8

34^#

發表於 2011-2-7 14:53 | 只看該作者

Private Sub Workbook_Open()

If Time >= TimeValue("09:45:00") And Time <= TimeValue("16:05:00") Then
Sheet2.[B7:J307] = ""
change
Else
Application.OnTime "09:45: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(TimeSerial(Hour(Time), Minute(Time), 0), LookIn:=xlFormulas)
Set Rng = TimeRange.Offset(, 1).Resize(1, 7)
End With
Rng.Value = Sheet1.[N3:T3].Value
If Time > TimeValue("16:05:00") Then Exit Sub
Application.OnTime Now + TimeValue("00:01"), "ThisWorkbook.change"
End Sub

請問我想把這個dde設成港股的時間
前面都很正常可以抓
可是到了13:59分之後
資料都抓不過來了
Sheet1的資料還有在變更
Sheet2就完全沒有動靜
不曉得是什麼原因呢
謝謝

TOP

JERRYHUANG123