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

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

11^# 跳轉到 »

發表於 2010-7-6 21:14 | 只看該作者

回復 10# GBKEE

感謝您的解答

第二個問題請您查閱附檔，我加上了均買、均賣兩個簡單的計算在sheet1，然後跟之前一樣，希望在sheet2按照每分鐘記錄下來

今天開盤的時候試，發現新增的欄位沒辦法記錄下來（也就是附檔中的J2、K2）只有舊的欄位可以按每分鐘紀錄

今天的紀錄被我腦殘洗掉了....Orz

再次謝謝您這麼熱心的幫忙，真的太感動了

DDE(Yeswin).rar (20.58 KB)

我愛麻辣家族討論區！！

TOP

j1221

中學生 Rank: 2

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

12^#

發表於 2010-7-7 09:07 | 只看該作者

回復 10# GBKEE

GBKEE大，我的問題解決了

是我自己腦殘 Rng.Value = R.Offset(, 1).Resize(, 6).Value沒做相對應的更動，難怪不會記錄.....

這樣就不用勞煩您了

真的謝謝你的熱心幫助，感謝您

我愛麻辣家族討論區！！

TOP

7777

中學生 Rank: 2

帖子: 125
主題: 33
精華: 0
積分: 223
點名: 0
作業系統: XP
軟體版本: Excel 2003
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-9-6
最後登錄: 2024-6-8

13^#

發表於 2010-9-6 16:32 | 只看該作者

GBKEE大
本人  也有類似的問題  借此一問
本人的資訊源是來至永豐金的易利得軟體 ( 接收大台指資料 )
內容如下：

Dim i As Single
Private Sub Workbook_Open()

  Application.OnTime Now + TimeValue("00:00:05"), "ThisWorkBook.ExeSelf"
End Sub
Private Sub ExeSelf()
  On Error Resume Next
  i = i + 1
  If i = 1 Then
  Sheets(1).Cells(1, 1) = Date
  i = i + 1
  End If
  Sheets(1).Cells(i, 2) = Time
  Sheets(1).Cells(i, 3) = Sheets(2).Cells(2, 1)
  Sheets(1).Cells(i, 4) = Sheets(2).Cells(2, 2)
  Sheets(1).Cells(i, 5) = Sheets(2).Cells(2, 3)

  Application.OnTime Now + TimeValue("00:00:05"), "ThisWorkBook.ExeSelf"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  On Error Resume Next
  Application.OnTime Now + TimeValue("00:00:05"), "ThisWorkBook.ExeSelf", , False
End Sub

問題是：
一啟動檔案，資料就開始接收
非開盤時間沒有資料下，仍然在跑

可否能我8:30開起檔案
8:45 後才開始  接收資料
13:45 後就結束  接收資料

謝謝!!

DDE.rar (40.56 KB)

EED檔

50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

14^#

發表於 2010-9-6 18:43 | 只看該作者

回復 13# 7777
這樣試試看

Dim i As Single
Private Sub Workbook_Open()
Application.OnTime TimeValue("08:45:00"), "ThisWorkBook.ExeSelf"
End Sub
Private Sub ExeSelf()
On Error Resume Next
If TimeValue(Now) > TimeValue("13:45:00") Then Exit Sub
i = i + 1
If i = 1 Then
Sheets(1).Cells(1, 1) = Date
i = i + 1
End If
Sheets(1).Cells(i, 2) = Time
Sheets(1).Cells(i, 3) = Sheets(2).Cells(2, 1)
Sheets(1).Cells(i, 4) = Sheets(2).Cells(2, 2)
Sheets(1).Cells(i, 5) = Sheets(2).Cells(2, 3)
Sheets(1).Cells(i, 6) = Sheets(2).Cells(2, 4)
Application.OnTime Now + TimeValue("00:00:05"), "ThisWorkBook.ExeSelf"
End Sub

複製代碼

學海無涯_不恥下問

TOP

7777

中學生 Rank: 2

帖子: 125
主題: 33
精華: 0
積分: 223
點名: 0
作業系統: XP
軟體版本: Excel 2003
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-9-6
最後登錄: 2024-6-8

15^#

發表於 2010-9-8 19:04 | 只看該作者

Hsieh 大

太棒了!!

由於昨天太趕來不及測試

今天測試起來正確無誤

在此真的~ 超級萬分感謝!!

二.
但是存檔後再次進入

預計想修改秒數

但在程式碼編輯器內的資料

卻變不見了是空的ㄝ

再次請教

50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

16^#

發表於 2010-9-8 19:30 | 只看該作者

已經農曆8月，怎麼還會有靈異事件?

學海無涯_不恥下問

TOP

7777