Board logo

標題: [發問] 開ie並定時更新此網頁 [打印本頁]
作者: ggrip    時間: 2021-1-25 10:22     標題: 開ie並定時更新此網頁

大家好

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

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

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

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

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

程式碼如下
  1. Sub 網頁更新()

  3.     Dim ie As Object
  4.     Set ie = CreateObject("InternetExplorer.Application")

  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


  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
複製代碼
作者: 軒云熊    時間: 2021-1-27 22:11

本帖最後由 軒云熊 於 2021-1-27 22:23 編輯

回復 1# ggrip

有空幫我試試看   感謝
  1. Dim K As Boolean

  3. Public Sub 更新網頁練習()

  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

  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

  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

  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
複製代碼
希望有前輩們可以幫我精簡一下 因為程式碼太長了.....想不出來如何精簡...因為小弟還在學習中希望能夠有更好的寫法 萬分感謝
作者: ggrip    時間: 2021-1-28 14:00

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)