在Visual Basic中使用IE瀏覽器

Question

努力尋找解決方案。 從Visual Basic（VBA在Excel中更具體）我可以通過標題來調用Internet Explorer窗口使用

AppActivate ("My Page Title - Windows Internet Explorer") 

而且它每一次的偉大工程。

我可以打開一個新的窗口和使用發送一個網址給它..

Dim ie As Object 
Set ie = New InternetExplorer 
ie.Visible = True 
ie.Navigate "http://websiteurl" 

這也工作好 但它會打開一個新的瀏覽器每次，我想它總是調用同一個窗口。

所以我可以設置ie每次相同的頁面。因此，而不是

Set ie = New InternetExplorer 

它確實像

Set ie = ACTIVE InternetExplorer 

（儘管這似乎不存在）。 有什麼方法可以將ie設置爲與AppActivate ("My Page Title - Internet Explorer")相同？

感謝

全部代碼在這裏：

Sub Find_Recordings() 
Dim MyAppID, ReturnValue 

AppActivate ("My Page Title - Windows Internet Explorer") 

SendKeys ("^a") 
Application.Wait (Now + TimeValue("0:00:01")) 
SendKeys ("^c") 
Application.Wait (Now + TimeValue("0:00:01")) 

AppActivate ("Microsoft Excel") 
Sheets("DataSearcher").Select 
Range("K1").Select 
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon: = False 

Range("A1").Select 

Dim ie As Object 
Set ie = New InternetExplorer 
ie.Visible = True  ie.Navigate "http://wwwmyurl" 

Do Until ie.ReadyState = READYSTATE_COMPLETE 
Loop 

ie.Document.getElementById("searchdata1").Value = Range("J1") 
ie.Document.getElementById("library").Value = "RECORDINGS" 
ie.Document.searchform.Submit 



End Sub 

Answer 1

你可以嘗試這樣的事情，在很大程度上reusing Internet Explorer COM Automation Object圖紙識別IE的實例與當時特定的網頁活躍，你所期待的。

變化
strURL = "http://www.theage.com.au/"
到

「我的頁面標題 - 的Windows Internet Explorer」 必要

VBA

Sub Test() 
Dim ShellApp As Object 
Dim ShellWindows As Object 
Dim IEObject As Object 
Dim strURL As String 
strURL = "http://www.theage.com.au/" 
Set ShellApp = CreateObject("Shell.Application") 
Set ShellWindows = ShellApp.Windows() 
Dim i 
For i = 0 To ShellWindows.Count - 1 
    If InStr(ShellWindows.Item(i).FullName, "iexplore.exe") <> 0 Then 
     If ShellWindows.Item(i).LocationURL = strURL Then 
      Set IEObject = ShellWindows.Item(i) 
      MsgBox "IE instance with " & strURL & " found" 
      Exit For 
     End If 
    End If 
Next 
End Sub