DDE記錄每分鐘資料

jimmy121212

各位大大，我想要記錄dde每分鐘變更的資料，需要麻煩各位大大的指導，感恩感恩。

GBKEE

回復 1# jimmy121212

1. Option Explicit
   
2. '檔案開啟時 自動執行的程式    '請複製到ThisWorkbook 的模組
   
3. Private Sub Workbook_Open()                  'ThisWorkbook 的預設事件   
   
4.     Dim E As Range
   
5.     With Sheets("SHEET1").Range("C3:C303")   'With : 每分鐘的範圍 [儲存格]物件中
   
6.         .Offset(, 1).Resize(, 3) = ""        '清理先前舊資料
   
7.         For Each E In .Cells                 '每分鐘的範圍內處理時間
   
8.             If E >= Time Then Application.OnTime E, "ThisWorkbook.EX"
   
9.             '[儲存格] 時間大於等於 現在時間
   
10.             'OnTime 方法 安排一個程序在將來的特定時間執行 (既可為某個日期的指定時間，也可為指定的時間之後)。
    
11.         Next
    
12.     End With
    
13. End Sub
    
14. Sub Ex()   '記錄dde每分鐘變更的資料  '請複製到ThisWorkbook 的模組
    
15.     Dim Rng As Range, F As Range
    
16.     With Sheets("SHEET1")
    
17.         Set Rng = .Range("D2:F2")                           '要記錄的資料範圍
    
18.         ' 每分鐘的範圍 中 尋找 現在的時間
    
19.         Set F = .Range("C3:C303").Find(Format(Time, "hh:mm"), LookIn:=xlValues)
    
20.         'Not F Is Nothing :找到後在 ,[現在的時間],Offset(0, 1): 右移一欄  Resize(1, 3): 擴充1列3欄的範圍 = 要記錄的資料
    
21.         If Not F Is Nothing Then F.Offset(0, 1).Resize(1, 3) = Rng.Value        '
    
22.     End With
    
23. End Sub

複製代碼

go2hk

真想下載!!