程式碼如何寫(以連接EXCEL的DDE數據每分鐘紀錄)
- 帖子
- 5
- 主題
- 1
- 精華
- 0
- 積分
- 15
- 點名
- 0
- 作業系統
- win 7
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 註冊時間
- 2011-3-24
- 最後登錄
- 2020-5-31
|
程式碼如何寫(以連接EXCEL的DDE數據每分鐘紀錄)
我參考過jimmy121212大大的''如何將以連接EXCEL的DDE數據每分鐘紀錄呢''文章
但是我是新註冊的
所以沒辦法下載附件
也沒辦法直接發短消息問 jimmy121212大大或GBKEE大大
只能看到片段的程式碼
所以一直搞不定
可以有哪位好心的大大
直接把程式碼貼在回覆文章上給我嗎(不要用附件的因為我沒辦法下載)
萬分感激!!! |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2011-3-24 15:46
| 只看該作者
回復 1# durian77
上傳你的檔案,說說你的問題! |
|
|
|
|
|
|
|
- 帖子
- 5
- 主題
- 1
- 精華
- 0
- 積分
- 15
- 點名
- 0
- 作業系統
- win 7
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 註冊時間
- 2011-3-24
- 最後登錄
- 2020-5-31
|
3#
發表於 2011-3-24 16:54
| 只看該作者
GBKEE大你好:
先感謝你的回覆!我原本是想用excel記錄下每分鐘台指期和台股指數的價差，再劃成柱狀圖。
在參考你之前回覆別人的文章後，關於每分鐘抓資料這部分已經沒問題了，但是目前的問題在資料轉成柱狀圖時，會出現''執行階段錯誤'424'，此處需要物件''，按偵錯後，反黃出現下列Set TimeRange = [A:A].Find(TimeSerial(Hour(Time), Minute(Time), "00"))，接下來excel就沒辦法正常的抓資料了，但是我把圖刪掉，再重新跑程式又可以，實在是很納悶。
因為台股收盤了，所以我用德國還有英國的指數作練習，柱狀圖在sheet2，用富邦e01傳送資料
感謝回覆，不勝感激!!!
 Book1.rar (10.21 KB)
|
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
4#
發表於 2011-3-24 19:41
| 只看該作者
回復 3# durian77
你目前的問題在資料轉成柱狀圖會出錯 可是附檔中沒看到相關的程式碼?
可重新傳檔嗎? |
|
|
|
|
|
|
|
- 帖子
- 5
- 主題
- 1
- 精華
- 0
- 積分
- 15
- 點名
- 0
- 作業系統
- win 7
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 註冊時間
- 2011-3-24
- 最後登錄
- 2020-5-31
|
5#
發表於 2011-3-25 12:56
| 只看該作者
回復 4# GBKEE
GBKEE大的意思是抓資料的程式碼嗎?
應該有才是阿
我放在module1
資料轉柱狀圖是用圖表去做的，放在sheet2
Book1.rar (10.21 KB)
|
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
6#
發表於 2011-3-25 13:53
| 只看該作者
本帖最後由 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 |
|
|
|
|
|
|
|
- 帖子
- 7
- 主題
- 0
- 精華
- 0
- 積分
- 87
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2000
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-3-22
- 最後登錄
- 2013-6-4
|
7#
發表於 2011-3-26 06:35
| 只看該作者
本帖最後由 linsj 於 2011-3-26 21:33 編輯
durian77大大：
請問你現在用這樣子的方式顯示圖表後，電腦load會不會很大？ 就是ram或cpu佔的比例會很多嗎？
因為到時候我也想用這種方式記錄，但想提前評估狀況。 謝謝。 |
|
|
|
|
|
|
|
- 帖子
- 5
- 主題
- 1
- 精華
- 0
- 積分
- 15
- 點名
- 0
- 作業系統
- win 7
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 註冊時間
- 2011-3-24
- 最後登錄
- 2020-5-31
|
8#
發表於 2011-3-28 10:48
| 只看該作者
回復 6# GBKEE
全部搞定了
沒問題了
感謝GBKEE大熱心協助幫忙
萬分感謝 |
|
|
|
|
|
|
|
- 帖子
- 5
- 主題
- 1
- 精華
- 0
- 積分
- 15
- 點名
- 0
- 作業系統
- win 7
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 註冊時間
- 2011-3-24
- 最後登錄
- 2020-5-31
|
9#
發表於 2011-3-28 10:53
| 只看該作者
回復 7# linsj
linsj大你好
我電腦配備
CPU:amd單核2G
RAM:2G
通常會開富邦e01跟永豐HTS加上這個excel和msn
目前看來CPU使用率在10%上下
PF使用量約1.1G
我覺得很順
不會卡
給你做參考
不過這台電腦主要是看報價用
我下單用另外一台電腦 |
|
|
|
|
|
|
|
- 帖子
- 7
- 主題
- 0
- 精華
- 0
- 積分
- 87
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2000
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-3-22
- 最後登錄
- 2013-6-4
|
10#
發表於 2011-3-28 17:45
| 只看該作者
謝謝 duran。
我是用 http://www.coco-in.net/viewthread.php?tid=7286&extra=page%3D1 下去改的。
因為我對excel不熟悉，所以要花時間比對你的方法。
因為我改好的excel今天跑起來沒問題。 但有時候時間會停止，不再繼續記錄，只能重開excel。
我還在想辦法解決中。 |
|
|
|
|
|
|
|
