[發問] 請問如何同時重新整理全部網頁

donod

按F5可以重新整理當前網頁，請問如何同時重新整理全部網頁，謝謝!

GBKEE

回復 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

回復 2# GBKEE
謝謝GBKEE版大!
試了，但只會重新開一個指定的網頁，如果要將已經打開的全部網頁，同時重新整理，應如何改寫?
test1.rar (10.59 KB)

下載次數: 5

2015-5-3 12:20

donod

謝謝GBKEE版大提點!
test2.rar (10.79 KB)

下載次數: 5

2015-5-8 02:19

GBKEE

回復 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

謝謝GBKEE版大!
現在可以開3個網頁3個視窗，請教可否在同一個視窗開了多個網頁(如圖)，作全部重新整理?謝謝!

下載 (68.98 KB)

2015-5-8 16:59

GBKEE

回復 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

回復 7# GBKEE
再謝謝GBKEE版大!
因有時會用Google Chrome代替Internet Explorer，請教應如何改寫，謝謝!

GBKEE

回復 8# donod
有難度vba 不支援 Google Chrome

donod

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