Re: [問題] 如何在EXCEL紀錄DDE的資料

看板Trading (金融交易)作者steam時間17年前 (2008/07/31 16:58)推噓2(2推 0噓 2→)

留言4則, 1人參與討論串3/3 (看更多)

最近剛好在玩這個比較簡單的方法就設個timer 先在vba建立模組然後加入下面幾個副程式 ------------------------------------ Sub Schedule() DoEvents If Sheet2.Cells(2, 1) = 1 Then '當這個欄位值為1的時候開始紀錄 Call record '把DDE值抓到EXCEL的副程式 Call timer_Start 'timer開始 End If End Sub ------------------------------------- Sub timer_Start() '開始timer 每秒call Schedule一次 Application.OnTime Now + TimeValue("00:00:01"), "Schedule", Schedule:=True End Sub ------------------------------------- Sub timer_Stop() On Error Resume Next '停止timer Application.OnTime Now + TimeValue("00:00:01"), "Schedule", Schedule:=False End Sub ------------------------------------- Sub record() '紀錄DDE資料的副程式 Sheet2.Cells(2, 2) = Sheet2.Cells(2, 2) + 1 '這欄用來記錄現在行數 Sheet2.Cells(Sheet2.Cells(2, 2), 3) = Sheet1.Cells(1, 1) '假設DDE要記錄的值在 Sheet1的(1,1)這個欄位 '將這資料存在 Sheet2中 End Sub ------------------------------------- 自己改掉上面寫的欄位成你要的就ok啦要記得先將資料表中 Sheet2.Cells(2, 2), Sheet2.Cells(2, 1) 這兩個欄位給 0 不過話說這樣出來的資料量會很龐大喔......XD ※ 引述《anygod (GDP)》之銘言： : ※ 引述《sesee (小七)》之銘言： : : 大家好 : : 請問如果我想紀錄EXCEL裡DDE的資料 : : 例如A1 是隨時變動的DDE值 : : 從8：45：00 每隔1秒鐘紀錄在B1 B2 B3......... : : 這樣的VBA要怎麼寫呢? : : 我試過修改別人的VBA 可是跑不出來 : : 偵錯也不知道哪邊有錯誤 : : 謝謝回答 ^^ : 有VBA嗎? 可以寄給我看看嗎? : 我目前也再弄DDE設定一些模型但是VBA不熟 -- 第一次學攝影就上手.....(嗎??) http://www.wretch.cc/album/steam -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 60.250.111.46