返回列表 上一主題 發帖

(發問)WEB查詢，如何取消跳出的警告視窗

7777

帖子
124 
主題
32 
精華
0 
積分
221 
點名
0  
作業系統
XP 
軟體版本
Excel 2003 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-9-6 
最後登錄
2024-3-21 
1# 跳轉到 »
發表於 2018-8-9 15:42 | 顯示全部帖子
回復 4# GBKEE


請教~GBKEE大大
我也有相同情形?可否幫忙協助一下

跳出 警示"視窗" ，
如何 自動關閉視窗，不影響下且 繼續巨集作業~~

巨集作業 是
某個網頁 每15秒更新一次
ActiveWorkbook.RefreshAll

有時會跳出視窗 "無法開啟  ........." 之視窗
可以加什麼
將 視窗
自動關閉視窗，不影響下且 繼續巨集作業~~

導入 4# 的內容，不勝了解
還請 大大 指點一下，感謝~



Sub 偵測()

On Error Resume Next
        Application.OnTime Now + TimeValue("00:00:15"), "偵測"
        ActiveWorkbook.RefreshAll

        'http://info512.taifex.com.tw/Future/VIXQuote_Norl.aspx
        '自動關閉視窗，不影響下且 繼續巨集作業~~

End Sub

還請 大大 指點一下，感謝~
50 字節以內
不支持自定義 Discuz! 代碼

TOP

7777

帖子
124 
主題
32 
精華
0 
積分
221 
點名
0  
作業系統
XP 
軟體版本
Excel 2003 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-9-6 
最後登錄
2024-3-21 
2#
發表於 2018-8-14 16:11 | 顯示全部帖子
回復 17# faye59

faye59大大  感謝你 撥冗協助
<<試試看吧!>> 好像很簡單
不懂下，不敢隨便發問，
就還是先..爬了爬文，試了試 （2天）...... 還是不懂

我該 如何.... 溶入原先的  Sub 偵測() 內

Sub test()
    Dim x   
    Dim oie As Object: Set oie = CreateObject("internetexplorer.application")
    With oie
        .Visible = True   '我 要改 False 不顯示 表現
        .Navigate ""       ' 這是 要放網址嗎??  如有 3個 網址...的話  該???
        Do While .readystate <> 4 Or .busy: DoEvents: Loop
Set wshshell = CreateObject("wscript.shell")

Do
    ret = wshshell.AppActivate("Microsoft Excel")
Loop Until ret = True

    Application.Wait Now + 2 / 86400    '等待 2秒
    ret = wshshell.AppActivate("Microsoft Excel")
        If ret = True Then
                   ret = wshshell.AppActivate("Microsoft Excel")
                Application.Wait Now + 2 / 86400
                wshshell.SendKeys "{enter}"
        End If
        Application.Wait Now + 2 / 86400
        Do While .readystate <> 4 Or .busy: DoEvents: Loop
        .Quit
    End With
End Sub

請  faye59大大 幫忙  感謝!
50 字節以內
不支持自定義 Discuz! 代碼

TOP

7777

帖子
124 
主題
32 
精華
0 
積分
221 
點名
0  
作業系統
XP 
軟體版本
Excel 2003 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-9-6 
最後登錄
2024-3-21 
3#
發表於 2018-8-20 20:53 | 顯示全部帖子
回復 19# faye59

感謝
faye59大大
這麼細心的解答指導...
讓我學習不少,解惑問題
謝謝!!
   
小弟 有附檔...   test1.rar (12.31 KB)
再請教
感謝
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題