DDE資料紀錄問題 - Excel程式區 - 麻辣家族討論版版

帖子: 44
主題: 1
精華: 0
積分: 78
點名: 0
作業系統: WIN XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: taipei
註冊時間: 2012-5-4
最後登錄: 2014-4-24

1^# 跳轉到 »

發表於 2012-6-20 20:55 | 顯示全部帖子

請問我執行程式時,為何會跳出''找不到巨集GetDDE''的警告視窗?懇請各位大大的回覆,謝謝

帖子: 44
主題: 1
精華: 0
積分: 78
點名: 0
作業系統: WIN XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: taipei
註冊時間: 2012-5-4
最後登錄: 2014-4-24

2^#

發表於 2012-6-22 19:01 | 顯示全部帖子

非常感謝GBKEE大大的熱心分享,已經成功了,另外再請教,如果要加入台股或美股開收盤的接收時間,請問要如何修改?謝謝您

stock

帖子: 44
主題: 1
精華: 0
積分: 78
點名: 0
作業系統: WIN XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: taipei
註冊時間: 2012-5-4
最後登錄: 2014-4-24

3^#

發表於 2012-6-22 20:23 | 顯示全部帖子

再請教一個問題,如何將接收進來的資料時間修正為" 分鐘整數",例如 10:15:10 ---> 10:15:00 ,請問要如何修改?謝謝協助...

stock

帖子: 44
主題: 1
精華: 0
積分: 78
點名: 0
作業系統: WIN XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: taipei
註冊時間: 2012-5-4
最後登錄: 2014-4-24

4^#

發表於 2012-6-23 15:07 | 顯示全部帖子

回復 15# GBKEE

不好意思,我就是按照超級版主的程式,程式如下:

Sub auto_open()'開檔時自動執行此巨集
GetDDE  '呼叫程序
End Sub
Sub GetDDE()
Dim T As Date
T = Now  '取得現在時間
If Not IsError(Sheets(1).[B2]) Then Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 7) = Sheets(1).[A2:G2].Value  '工作表1的資料DDE連結成功寫入工作表2
Application.OnTime T + TimeValue("00:00:02"), "GetDDE"  '這是以2秒測試，間隔5分鐘改成TimeValue("00:05:00"),
End Sub

我想

1.再加入台股或美股開收盤時間,來設定接收時間
2.將接收進來的資料時間修正為" 分鐘整數",例如 10:15:10  ---> 10:15:00

請問要如何修改?謝謝您的協助

stock

帖子: 44
主題: 1
精華: 0
積分: 78
點名: 0
作業系統: WIN XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: taipei
註冊時間: 2012-5-4
最後登錄: 2014-4-24

5^#

發表於 2012-6-24 21:06 | 顯示全部帖子

回復 17# GBKEE

再次非常感謝GBKEE大大的熱心協助
明天開盤再試看看,謝謝您

stock