返回列表 上一主題 發帖

下載期貨資料至工作表 QueryTable出錯

no3-taco

帖子
41 
主題
0 
精華
0 
積分
79 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-4-1 
最後登錄
2016-2-17 
1# 跳轉到 »
發表於 2015-6-10 10:19 | 顯示全部帖子
Do Until .readyState = READYSTATE_COMPLETE: DoEvents: Loop
    Application.Wait Now + #12:00:01 AM#                  

把上面那兩行改成下面這一行，比較不會因延遲錯誤產生錯誤
    Do Until .readyState = 4 And Not .Busy: DoEvents: Loop

TOP

no3-taco

帖子
41 
主題
0 
精華
0 
積分
79 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-4-1 
最後登錄
2016-2-17 
2#
發表於 2015-6-11 13:26 | 顯示全部帖子
基本上第二次使用
  1. Do Until .readyState = READYSTATE_COMPLETE: DoEvents: Loop
複製代碼
已經沒有效了，因為程式跑得比較快，會抓到第一次的狀態

只是我想不到有什麼比較完美的解決辦法，處理大量執行時，可以處理延遲的問題

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題