[發問] 開ie並定時更新此網頁

ggrip

大家好

小弟想要打開一個ie，並且每3秒更新這個網頁

但網頁更新1次以後
excel就跳出無法執行巨集timer ie
該巨集可能無法在此活頁簿使用，或已停用所以巨集

推測是timer裡面有引數的關係
但沒有引數，編譯器又會說沒有物件

用application.wait的話我更新網頁以後還要複製貼上EXCEL
這時EXCEL會停住，也不是我要的

請教大家有沒有什麼方法可以讓timer正常運作呢

程式碼如下

1. Sub 網頁更新()
   
2. 
   
3.     Dim ie As Object
   
4.     Set ie = CreateObject("InternetExplorer.Application")
   
5. 
   
6.     With ie
   
7.         .Visible = True
   
8.         .navigate "www.google.com.tw"
   
9.          Do While .busy Or .readystate <> 4: DoEvents: Loop
   
10.     End With
    
11.    
    
12.     timer ie
    
13.    
    
14. End Sub
    
15. 
    
16. 
    
17. Public Sub timer(ie As Object)'沒有引用IE說沒有物件
    
18.    
    
19.     With ie
    
20.         .Refresh
    
21.         Do While .busy Or .readystate <> 4: DoEvents: Loop
    
22.     End With
    
23.          
    
24.     alertTime = Now + TimeValue("00:00:10")
    
25.     Application.OnTime alertTime, "timer ie"'引用以後這裡就不行了
    
26.    
    
27. End Sub

複製代碼

ggrip

謝謝熊大，程式碼可以運作
原來是SHELL的關係，學到了

軒云熊

回復 1# ggrip

有空幫我試試看   感謝

1. Dim K As Boolean
   
2. 
   
3. Public Sub 更新網頁練習()
   
4. 
   
5.     Set IE = CreateObject("internetexplorer.application")
   
6.         IE.Visible = True
   
7.         IE.Navigate "www.google.com.tw"
   
8.         Do While IE.readyState <> 4 Or IE.Busy: DoEvents: Loop
   
9.         Application.Wait Now + TimeValue("00:00:01")
   
10.         Call 計時器
    
11.                  
    
12. End Sub
    
13. 
    
14. Sub 開始計時()
    
15.     Application.ScreenUpdating = False
    
16.     On Error Resume Next
    
17.     Application.OnTime Now + TimeValue("00:00:03"), "計時器"
    
18.    
    
19.     If K = 1 Then Call 關閉計時器
    
20.         Set Sh = CreateObject("Shell.Application")
    
21.         For n = Sh.Windows.Count To 1 Step -1
    
22.             Set IE = Sh.Windows(n - 1)
    
23.             If Right(UCase(IE.FullName), 12) = "IEXPLORE.EXE" Then
    
24.                 If IE.document.Url Like "*www.google.com.tw*" Then
    
25.                     IE.refresh
    
26.                 Exit For
    
27.                 End If
    
28.             End If
    
29.         Next n
    
30.         
    
31.     On Error GoTo 0
    
32.     Application.ScreenUpdating = True
    
33. End Sub
    
34. 
    
35. Sub 計時器()
    
36.     Application.ScreenUpdating = False
    
37.     On Error Resume Next
    
38.    
    
39.         If K <> 1 Then
    
40.             Call 開始計時
    
41.         Else
    
42.             Application.OnTime Now + TimeValue("00:00:01"), "開始計時", schedule:=False
    
43.         End If
    
44.    
    
45.     On Error GoTo 0
    
46.     Application.ScreenUpdating = True
    
47. End Sub
    
48. 
    
49. Sub 關閉計時器()
    
50.     Application.ScreenUpdating = False
    
51.     On Error Resume Next
    
52.     Application.OnTime Now + TimeValue("00:00:01"), "計時器", schedule:=False
    
53.    
    
54.         Set Sh = CreateObject("Shell.Application")
    
55.         For n = Sh.Windows.Count To 1 Step -1
    
56.             Set IE = Sh.Windows(n - 1)
    
57.             If Right(UCase(IE.FullName), 12) = "IEXPLORE.EXE" Then
    
58.                 If IE.document.Url Like "*www.google.com.tw*" Then
    
59.                     IE.Quit
    
60.                     K = 1
    
61.                 Exit For
    
62.                 End If
    
63.             End If
    
64.         Next n
    
65.         
    
66.     On Error GoTo 0
    
67.     Application.ScreenUpdating = True
    
68. End Sub

複製代碼

希望有前輩們可以幫我精簡一下 因為程式碼太長了.....想不出來如何精簡...因為小弟還在學習中希望能夠有更好的寫法 萬分感謝