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

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

28^# 跳轉到 »

發表於 2011-1-17 13:12 | 只看該作者

Private Sub Workbook_Open()
Sheet2.[B7:J307] = ""
If Time >= TimeValue("08:45:00") And Time <= TimeValue("13:45:00") Then
change
Else
Application.OnTime "08: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("13:45:00") Then Exit Sub
Application.OnTime Now + TimeValue("00:01"), "ThisWorkbook.change"
End Sub

這是我使用的程式碼
我Sheet1 是在接收dde加運算的  都有正常
且資料都有出來
而Sheet2就是把每分鍾的資料存起來
但發現  有時有1~3分鍾沒有抓到資料
就變成空白  不曉得是什麼原因呢

TOP

skybbs

中學生 Rank: 2

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

27^#

發表於 2011-1-17 13:00 | 只看該作者

本帖最後由 skybbs 於 2011-1-19 20:22 編輯

回復 26# Hsieh

感謝Hsieh的回覆, 因為昨天我想試一下我的想法是否可行, 所以把判斷式都Key了.
今天一早看到謝大的回覆, 有下面幾點與早上測試VBA部份的問題希望謝大可以撥空回覆.

1. 我把從DDE時間格改為B6, 從09:00開始每一分鐘把D6&E6的資料Copy到H2.I2.
09:01時Copy到H3.I3, 09:02時Copy到H4.I4依此類推.
請問謝大的程式要怎麼可以套到我的VBA程式裡 ? 有哪些部份可以刪除的 ?

2. 在我的Sheet1裡都是資料, 所以我把sheet1的資料在Sheet2裡畫圖, 但是發現如果畫面沒有在Sheet1時VBA的程式就不會記錄資料.
請問這個有解嗎 ?

3. 這個程式要多久(目前我設定3秒)執行一次會比較恰當呢 ?

隨信附上EXCEL檔案, 煩請謝大幫忙看一下. 謝謝.

DDE-Test v1.zip (43.26 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 117
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-5-21

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

26^#

發表於 2011-1-16 22:34 | 只看該作者

回復 25# skybbs

Private Sub Worksheet_Calculate()
t = Format(TimeValue(Format([C6], "00:00:00")), "hh:mm:ss")
Set a = Range("H:H").Find(t)
If Not a Is Nothing Then a.Offset(, 1).Resize(, 3) = Array([E6], [F6], [E6] - [F6])
End Sub

複製代碼

學海無涯_不恥下問

TOP

skybbs

中學生 Rank: 2

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

25^#

發表於 2011-1-16 19:35 | 只看該作者

早上發文後看了許久EXCEL的書籍, 看起來函數應該無法達成將DDE每筆紀錄在Excel的功能,
還是需要靠VBA.

我想要達到的功能與發問者"J1221"先生不太一樣(我使用EasyWin DDE),
以下為我的條件問題, 希望各位高手可以解答.
1.抓取EasyWin DDE中的時間當作數值紀錄標準, 如附件"C6"
2.依照C6的時間帶出每分鐘的買賣資料"E6" & "F6" (非本機電腦時間)
3.將E6 & F6每分鐘的時間紀錄到I2 ~ I273 & J2 ~ J273

逛了一下午的書局, 簡單的寫了一個Sample.
因為我不知道要怎麼設回圈, 如果按照最簡單的方式, 每一分鐘判斷一次, 要寫271個判斷式.
不知道各位高手是否有方法可以減少程式碼的方式呢 ?

謝謝. (隨信附上我的EXCEL檔)

DDE-Test.zip (9.66 KB)

TOP

skybbs