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

cfuxiong

請教版大高手指點；謝謝~~
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 程序
這樣對嗎？要如何存檔？

c_c_lai

回復 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 欄位來修改你高興的設定時段，那不就結了！

cfuxiong

回復 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聯電]請問如何處置？更改其他股號，要哪些步驟？謝謝~~

c_c_lai

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

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

Hsieh

回復 3# cfuxiong

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

c_c_lai

回復 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"。

下載 (56.38 KB)

2012-4-27 15:02

股票紀錄.rar (12.55 KB)

下載次數: 7

2012-4-27 15:02

cfuxiong

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

Hsieh

回復 7# cfuxiong


   並非更改查詢
因為你的條件已經在程式碼中使用紀錄工作表C1的值作條件
所以只要將紀錄工作表C1的值改成想要的代碼即可

cfuxiong

回復 6# c_c_lai
謝謝c_c_lai的指導與幫忙，非常滿意…再說聲謝謝~~

cfuxiong

回復 8# Hsieh
謝謝Hsieh版大細心指導；已OK了…謝謝~~