Internet Explorer automation not working with IE11

[python_dude]

Hi everyone,

I have some code that retrieves data from multiple websites via Internet Explorer automation in VBA. My code worked without problems with IE8, but in IE11, after the Navigate method of the Internet Explorer object is called, the Document and LocationURL are not updated; they still refer to the previously displayed website. Here's some code to reproduce the problem:


Sub Test()
Debug.Print "start"
Dim ie
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate url1
wait ie
Debug.Print "Current URL: " & ie.LocationURL
ie.Navigate url2
wait ie
Debug.Print "Current URL: " & ie.LocationURL
Set ie = Nothing
End Sub

Sub Wait(ie As Variant)
Do While ie.Busy
Application.wait DateAdd("s", 1, Now)
Loop
End Sub

When a run the above Test sub on a machine with IE8, it prints two different URLs, which is the expected behavior. However, when I run the same code on a machine with IE11, it prints the first URL twice. Any idea what might be wrong?

Note: To run the above code, you have to set two variables url1 and url2. The forum post rules didn't allow me to set those.

[stanl]

Not sure if this helps, but IE11 has several new properties to allow navigation among tabs where more than one url is opened, or to not used cached html - example.



navOpenInNewWindow=1
navNoHistory=2
navNoReadFromCache=4
navNoWriteToCache=8
navAllowAutosearch=16
navBrowserBar=32
navHyperlink=64
navEnforceRestricted=128
navNewWindowsManaged=256
navUntrustedForDownload=512
navTrustedForActiveX=1024
navOpenInNewTab=2048
navOpenInBackgroundTab=4096
navKeepWordWheelText=8192
navVirtualTab=16384
navBlockRedirectsXDomain=32768
navOpenNewForegroundTab=65536
cURl = "myurl.com"
oIE= CreateObject("InternetExplorer.Application")
oIE.Visible=1
oIE.Navigate URL="myurl.com",Flags:=navNoReadFromCache

[python_dude]

Thanks for the answer, although I already gave up on trying to get this to work. As a workaround, I simply opened a new IE window for each request, closing the previous window based on its title using the Windows API.

[cholland3403]

I know this is an old thread, but thought I would post how I solved the problem. It takes a little longer to run the code, but does not require any API calls.

I first created a public sub that controls the navigation to the desired url.


Public Sub NavigateToPage(ByVal url As String, ByRef IE As Object) On Error GoTo SkipBrowse
IE.Navigate2 url
While IE.Busy
DoEvents
Wend
While IE.document.readyState <> "complete"
DoEvents
Wend
SkipBrowse:
End Sub

Then I call the sub (passing the url and the IE object) from the original routine and then check to see if the loaded url is the url specified. If not, I go back to a defined label and try again.


retry1:
Call NavigateToPage(someURL, IE)
If Not IE.LocationURL = someURL Then GoTo retry1



You may want to add a counter to limit the number of tries or something like that, but so far this has worked for me.