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

a144280

小學生 Rank: 1

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

38^# 跳轉到 »

發表於 2011-11-26 19:59 | 只看該作者

真是高深的學問.來這裡學了點.感謝大大分享

TOP

minsoonchen

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: winxp
軟體版本: sp3
閱讀權限: 10
註冊時間: 2011-11-18
最後登錄: 2011-11-18

37^#

發表於 2011-11-18 20:58 | 只看該作者

這邊的東西實在太讚哩~~ 是我要的!!!

研究~研究~

TOP

nakatafire

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: mac os
軟體版本: 10
閱讀權限: 10
性別: 男
註冊時間: 2011-3-17
最後登錄: 2011-4-18

36^#

發表於 2011-4-2 23:25 | 只看該作者

如果用plot Relative Strength Index 可以嗎？？

TOP

JERRYHUANG123

中學生 Rank: 2

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

35^#

發表於 2011-2-9 09:39 | 只看該作者

請問一下
從券商軟體接收資料
dde有時侯會停住
就是資料接收不了
不會自已更新了
一開始的時侯都正常有時侯到中間才會這樣時間不一定
請問我抓的資料量還滿多的不知會是不是會影響
股票有200多檔
謝謝

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

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: 以上請問是有甚麼衝突嗎, 是否有方法解決 ?

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