返回列表 上一主題 發帖

程式碼如何寫(以連接EXCEL的DDE數據每分鐘紀錄)

本帖最後由 GBKEE 於 2011-3-25 13:55 編輯

回復 5# durian77

你的問題是 當你到sheet2 看圖時 會發生錯誤嗎?
如果是 那少了一點(紅點)
Private Sub download() '此程序與 Workbook_Open 同在 ThisWorkbook裡
    Dim TimeRange As Range, Rng As Range, R As Range, i%
    With Sheet1     
        Set TimeRange =. [A:A].Find(TimeSerial(Hour(Time), Minute(Time), "00"))
        Set Rng = TimeRange.Offset(, 1).Resize(1, 4)
        For Each R In .Range("D2,D3")
            i = i + 1
            Rng(i) = R
        Next
    End With
    If Time > TimeValue("19:00:00") Then Exit Sub
    Application.OnTime Now + TimeValue("00:01"), "module1.download"
End Sub

TOP

回復 4# GBKEE
GBKEE大的意思是抓資料的程式碼嗎?
應該有才是阿
我放在module1
資料轉柱狀圖是用圖表去做的,放在sheet2

Book1.rar (10.21 KB)

TOP

回復 3# durian77
你目前的問題在資料轉成柱狀圖會出錯 可是附檔中沒看到相關的程式碼?
可重新傳檔嗎?

TOP

GBKEE大你好:

先感謝你的回覆!我原本是想用excel記錄下每分鐘台指期和台股指數的價差,再劃成柱狀圖。
在參考你之前回覆別人的文章後,關於每分鐘抓資料這部分已經沒問題了,但是目前的問題在資料轉成柱狀圖時,會出現''執行階段錯誤'424',此處需要物件'',按偵錯後,反黃出現下列Set TimeRange = [A:A].Find(TimeSerial(Hour(Time), Minute(Time), "00")),接下來excel就沒辦法正常的抓資料了,但是我把圖刪掉,再重新跑程式又可以,實在是很納悶。
因為台股收盤了,所以我用德國還有英國的指數作練習,柱狀圖在sheet2,用富邦e01傳送資料
感謝回覆,不勝感激!!!

Book1.rar (10.21 KB)

TOP

回復 1# durian77
上傳你的檔案,說說你的問題!

TOP

        靜思自在 : 一個缺口的杯子,如果換一個角度看它,它仍然是圓的。
返回列表 上一主題