返回列表 上一主題 發帖

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

軒云熊

帖子
253 
主題
5 
精華
0 
積分
308 
點名
0  
作業系統
W10 
軟體版本
Excel 2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-6-16 
最後登錄
2024-3-20 
1# 跳轉到 »
發表於 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
複製代碼
希望有前輩們可以幫我精簡一下 因為程式碼太長了.....想不出來如何精簡...因為小弟還在學習中希望能夠有更好的寫法 萬分感謝

TOP

        靜思自在 : 要用心，不要操心、煩心。
返回列表 上一主題