Board logo

標題: [發問] 請問如何同時重新整理全部網頁 [打印本頁]
作者: donod    時間: 2015-5-1 18:18     標題: 請問如何同時重新整理全部網頁

按F5可以重新整理當前網頁，請問如何同時重新整理全部網頁，謝謝!
作者: GBKEE    時間: 2015-5-3 11:35

回復 1# donod
試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim URL As String
  4.     URL = "http://forum.twbts.com/thread-13991-1-1.html"
  5.     With CreateObject("InternetExplorer.Application")
  6.         .Navigate URL
  7.         .Visible = True
  8.         Do While .Busy Or .readyState <> 4:         Loop
  9.         .Refresh  '網頁按F5
  10.         Do While .Busy Or .readyState <> 4:         Loop
  11.     End With
  12. End Sub
複製代碼
作者: donod    時間: 2015-5-3 12:21

回復 2# GBKEE
謝謝GBKEE版大!
試了，但只會重新開一個指定的網頁，如果要將已經打開的全部網頁，同時重新整理，應如何改寫?
[attach]20859[/attach]
作者: donod    時間: 2015-5-8 02:20

謝謝GBKEE版大提點!
[attach]20889[/attach]
作者: GBKEE    時間: 2015-5-8 06:23

回復 4# donod
試試看
  1. Option Explicit
  2. Dim Ie(1 To 3) As Object, URL(1 To 3) As String
  3. Sub Ex_網頁設立()
  4.     Dim i As Integer
  5.     URL(1) = "http://forum.twbts.com/thread-13991-1-1.html"
  6.     URL(2) = "http://www.miniforum.net/"
  7.     URL(3) = "http://www.aastocks.com/tc/LTP/RTQuote.aspx?&symbol=00001"
  8.     For i = 1 To 3
  9.         Set Ie(i) = CreateObject("InternetExplorer.Application")
  10.         With Ie(i)
  11.             .Navigate URL(i)
  12.             .Visible = True
  13.             Do While .Busy Or .readyState <> 4:         Loop
  14.         End With
  15.     Next
  16. End Sub
  17. Sub Ex_網頁重整()
  18.     Dim i As Integer
  19.     For i = 1 To 3
  20.         With Ie(i)
  21.             .Refresh  '網頁按F5
  22.             Do While .Busy Or .readyState <> 4:         Loop
  23.         End With
  24.     Next
  25. End Sub
複製代碼
作者: donod    時間: 2015-5-8 17:01

謝謝GBKEE版大!
現在可以開3個網頁3個視窗，請教可否在同一個視窗開了多個網頁(如圖)，作全部重新整理?謝謝!
[attach]20890[/attach]
作者: GBKEE    時間: 2015-5-9 16:04

回復 6# donod
試試看
  1. '請先將專案 [設定引用項目]加入  Microsoft Internet Controls
  2. Option Explicit
  3. Sub IE_F5()
  4. Dim a As New SHDocVw.ShellWindows
  5. Dim shell_windows As New SHDocVw.ShellWindows
  6. Dim Ie As SHDocVw.InternetExplorer
  7. Dim objShell As Object
  8. Set objShell = CreateObject("shell.application")
  9.     If objShell.Windows.Count = 0 Then  'Ie 沒有開啟
  10.         Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE", 2  ' (2  應用程式視窗會以一個圖示來顯示，並具有駐點)
  11.         MsgBox "請等候 ie 開啟完畢"
  12.     End If
  13.     For Each Ie In shell_windows
  14.      With Ie
  15.         .Refresh
  16.         Do While .Busy Or .ReadyState <> 4:         Loop
  17.         MsgBox "網址: " & .LocationURL & vbLf & "重整完畢", , Ie.Document.Title
  18.     End With
  19.     Next
  20. End Sub
複製代碼
作者: donod    時間: 2015-5-9 18:28

回復 7# GBKEE
再謝謝GBKEE版大!
因有時會用Google Chrome代替Internet Explorer，請教應如何改寫，謝謝!
作者: GBKEE    時間: 2015-5-10 08:17

回復 8# donod
有難度vba 不支援 Google Chrome
作者: donod    時間: 2015-5-10 11:10

回復 9# GBKEE
明白了，現在也足夠，感謝GBKEE版大教導!



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