帖子: 93
主題: 18
精華: 0
積分: 111
點名: 0
作業系統: XP
軟體版本: OFFICE
閱讀權限: 20
性別: 男
來自: 台灣‧高雄
註冊時間: 2010-10-22
最後登錄: 2023-3-3

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-4-26 21:37 | 只看該作者

如何更改其他股號，要哪些步驟？

請教版大高手指點；謝謝~~
1.我在[匯入]欄，操作[資料]→[匯入外部資料]→[編輯查詢]→把[2303聯電]改成[2330台積電]→[記錄]欄卻不能更新成[2330台積電]Data，5分鐘後又還原[2303聯電]請問如何處置？更改其他股號，要哪些步驟？
2.範例：10秒更新資料=>Application.OnTime Now + TimeValue("00:00:10"), "MyDee" '設定 10秒後執行 MyDee 程序
Exit Sub
要改成5分更新資料=>Application.OnTime Now + TimeValue("00:05:00"), "MyDee" '設定 5分後執行 MyDee 程序
這樣對嗎？要如何存檔？

股票紀錄.zip (15.57 KB)

樓主熱帖

50 字節以內
不支持自定義 Discuz! 代碼

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2012-4-27 07:55 | 只看該作者

回復 1# cfuxiong
那你為何不這麼做：假設在你的 "匯入" 工作表單內的 P1 欄位輸入 -> "時段設定"， P2 欄位輸入 -> "00:05:00"，而將
Application.OnTime Now + TimeValue("00:00:10"), "MyDee" 修改成
Application.OnTime (Now + Sheets("匯入").Range("P2").Value), "ThisWorkBook.MyDee"，如此，以後只要你不高興就到
P2 欄位來修改你高興的設定時段，那不就結了！

TOP

cfuxiong

中學生 Rank: 2

帖子: 93
主題: 18
精華: 0
積分: 111
點名: 0
作業系統: XP
軟體版本: OFFICE
閱讀權限: 20
性別: 男
來自: 台灣‧高雄
註冊時間: 2010-10-22
最後登錄: 2023-3-3

論壇贊助勳章

3^#

發表於 2012-4-27 10:54 | 只看該作者

回復 2# c_c_lai
謝謝c_c_lai的指導與幫忙，到目前為止，用《Application.OnTime Now + TimeValue("00:05:00"), "MyDee" '設定 5分後執行 MyDee 程序》是OK
也試過你指導的方法，但卻出現”階段錯誤13”不知何處出錯？
現在是想要更改[股號]卻不知如何下手；
我在[匯入]欄，操作[資料]→[匯入外部資料]→[編輯查詢]→把[2303聯電]改成[2330台積電]→[記錄]欄卻不能更新成[2330台積電]Data，5分鐘後又還原[2303聯電]請問如何處置？更改其他股號，要哪些步驟？謝謝~~

50 字節以內
不支持自定義 Discuz! 代碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2012-4-27 11:10 | 只看該作者

本帖最後由 c_c_lai 於 2012-4-27 11:22 編輯

回復 3# cfuxiong
請你先檢查一下
代號 = Sheets("紀錄").[C1]

等盤後我再看看，剛才一執行你的程式，就出現 400 的錯誤訊息，
結果連帶的我的作業程式竟然自動停止了我的DDE資料匯入！

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 243
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-9

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2012-4-27 14:27 | 只看該作者

回復 3# cfuxiong

會發現更改股號後又出現先前的股票資訊，有可能是時間差的關係，當前一個查詢尚未查詢結束(正在查詢中)
你更改了C1的股號這時觸發事件程序而執行更新，結果此次更新比前一次更新速度快，就貼到資料區，結果前一次更新接著完成
所以造成這樣現象，這與網路有關，你把紀錄工作表事件程序刪除後執行看看，應該就會消除這種現象
另提到5分鐘執行是改成Now + TimeValue("00:05:00")沒錯
Application.OnTime Now + TimeValue("00:05:00"), "MyDee" '設定 5分鐘後執行 MyDee 程序

學海無涯_不恥下問

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

6^#

發表於 2012-4-27 15:03 | 只看該作者

回復 3# cfuxiong
' Sh.Activate                      ' *************
' Rng.Select                      ' *************
這兩處我將它改成註釋，因為它會將畫面不斷切到 "紀錄" 工作表單，
如果你是正在檢查 "匯入"工作表單時，設定時段一到畫面
便會被強制切到 "紀錄" 工作表單上，非常困擾！

' Application.OnTime Now + TimeValue("00:00:10"), "MyDee"  修改成
Application.OnTime (Now + Sheets("匯入").Range("P2").Value), "MyDee"
因為你的程式碼並不是放置在 ThisWorkBook 區塊內，所以 "ThisWorkBook.MyDee"
改成 "MyDee"。

股票紀錄.rar (12.55 KB)

TOP

cfuxiong

中學生 Rank: 2

帖子: 93
主題: 18
精華: 0
積分: 111
點名: 0
作業系統: XP
軟體版本: OFFICE
閱讀權限: 20
性別: 男
來自: 台灣‧高雄
註冊時間: 2010-10-22
最後登錄: 2023-3-3

論壇贊助勳章

7^#

發表於 2012-4-27 15:03 | 只看該作者

回復 5# Hsieh
謝謝Hsieh版大指導；
《你把紀錄工作表事件程序刪除後執行看看，應該就會消除這種現象》我作了以下動作；
1.打開檔案→[停用巨集]進入→在[匯入]欄，操作[資料]→[匯入外部資料]→[編輯查詢]→把[2303聯電]改成[2330台積電]=>畫面看來是OK→儲存→離開。
2.再打開檔案→[啟用巨集]進入→又還原啟始資料。
請版大高手指導…謝謝~~

50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 243
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-9

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2012-4-27 16:32 | 只看該作者