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

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

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

1^# 跳轉到 »

發表於 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 後就結束  接收資料

謝謝!!