- 帖子
- 219
- 主題
- 24
- 精華
- 0
- 積分
- 243
- 點名
- 0
- 作業系統
- Windows10
- 軟體版本
- Office2016
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2012-4-18
- 最後登錄
- 2022-2-7
 
|
本帖最後由 HSIEN6001 於 2012-8-4 10:47 編輯
回復 1# white5168
請問大師 --->(ＰＳ：三人行必有我師！在我眼裡，在這邊的都是導師。)
因末學用無線3.5G下載,時常會卡住(停頓).正在找語法bug ,或僅是流量不穩定問題！！
在您的語法內(針對下載部分),有幾個疑問先請教
Application.DisplayAlerts = False 'False 不想被提示跟警報,例如:覆蓋的默認---->在此網頁有特別作用?? 範例中尚未看到這應用;我RUN會卡住(停頓).是因為少這段?
....(省略)....
.RefreshStyle = xlInsertDeleteCells '插入新資料,原資料右移----->????為何不是用覆蓋的方式
....(省略)....- On Error Resume Next
- Do
- Err.Clear
- .Refresh BackgroundQuery:=False '刷新返回查詢(執行更新)
-
- If Err.Number Then '------->是指刷新查詢更新,延遲的等候？！
- Application.Wait Now + TimeValue("00:00:01")
- End If
-
- Loop Until Err.Number = 0 '---->迴圈處理直到err=0 才算完成 (經典)
-
- 'If Err.Number <> 0 Then Err.Clear: MsgBox Err.Number '被免資料抓取不成功,而顯示訊息
- On Error GoTo 0
- End With
-
- If Err.Number = 0 Then
- Application.DisplayAlerts = True 'True 需提示跟警報？ ---->True 及 Flase 的應用,還不是很理解.只是爬文所得的大意,望請稍加說明
- Exit Sub
- End If
|
|
發表於 2012-8-4 10:44
| 
