SHDocVw.InternetExplorer在shellWindows中返回太多對象

Question

即使我只有一個瀏覽器窗口打開（沒有選項卡）並且只有一個iexplore.exe進程正在運行，以下代碼行可以返回多個InternetExplorer對象。我如何才能打開瀏覽器窗口對象？

For Each ie As SHDocVw.InternetExplorer In shellWindows

Answer 1

這可能有助於

Dim objShellWindows As New SHDocVw.ShellWindows 
Dim rVal As SHDocVw.InternetExplorer 
    For Each rVal In objShellWindows 
     Debug.Print TypeName(rVal.Document) 
     If TypeName(rVal.Document) = "HTMLDocument" Then 
      If rVal.Name = "Windows Internet Explorer" Then 
       rVal.Visible = False 
       rVal.Visible = True 
       Set ie = rVal 
       ie.Quit 
       Set ie = Nothing 
      End If 
     End If 
    Next rVal