Использование браузера IE с Visual Basic

Question

Борьба, чтобы найти решение этой проблемы. из Visual Basic (VBA в Excel более конкретно) я могу вызвать окно Internet Explorer по названию с помощью

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

И это прекрасно работает каждый раз.

я могу открыть новое окно и отправить URL на него, используя ..

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

И это тоже работает нормально Но он открывает новый браузер каждый раз, и я хочу, чтобы это всегда вызывает то же самое окно ,

So can i Set 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