- 帖子
- 218
- 主題
- 73
- 精華
- 0
- 積分
- 290
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2014-5-19
- 最後登錄
- 2022-11-29
|
[發問] VBA 如何判斷網頁 [檔案下載] 視窗是否已彈出
目前使用以下語法執行網頁檔案下載均正常，但目前遇到問題為：
因為[檔案下載]視窗彈出的等待時間長短不固定，有時候很快約１０秒，有時候卻要等到１~5分鐘以上。
主要是因為公司的系統問題，導致每次設好延遲時間，都會因為太快或太慢向下繼續執行，而造成下載連線異常導致下載失敗。
所以想請問在以下延遲時間（回應[如何處理]視窗）反紅字那段延遲2秒的語法，是否有辦法改為判斷檔案下載視窗是否已彈出，再繼續往下執行的語法呢？有這種解決辦法嗎？
-------------------------------------------------------------
Sub 查詢每日數據並下載檔案()
Set myIE = CreateObject("InternetExplorer.Application")
With myIE
.Visible = True
.Navigate "http://xxxxxxxxxxxx/xxx.aspx" '查詢數據網址
Do While Busy Or .ReadyState <> 4: DoEvents: Loop
.Navigate "http://10.178.1.140:8023/ReportPage/ReportAgentToDay_28_tptv.aspx" '查詢數據會自動產生於此網址頁面
Do While Busy Or .ReadyState <> 4: DoEvents: Loop
.document.forms(0).all("ctl00_btnDownload").Click '點選下載按鈕
End With
' 回應[如何處理]視窗
Application.Wait Now + TimeValue("0:00:2") '延遲2秒**
Application.SendKeys "%{A}" ' 按[另存新檔]鍵
' 回應[另存新檔]視窗
Application.Wait Now + TimeValue("0:00:2") '延遲2秒
Application.SendKeys "%{N}" ' <alt-N> 選取[檔案名稱]欄位
Application.SendKeys "{HOME}" & ThisWorkbook.Path & "\" ' 設定存檔路徑
Application.SendKeys "%{S}" ' <alt-S> 按[存檔]鍵
' 回應[確認另存新檔]視窗
Application.Wait Now + TimeValue("0:00:2") '延遲2秒
Application.SendKeys "%{Y}" ' <alt-Y> 按[是]鍵 (如果同名檔已經存在)
' 回應[檢視下載]視窗
Application.Wait Now + TimeValue("0:00:5") '延遲5秒
Application.SendKeys "%{C}" ' <alt-C> 按[關閉]鍵
myIE.Quit
Set myIE = Nothing
End Sub-------------------------------------------------------------
|
|
發表於 2018-12-13 14:54
| 
