I have some VBA code that in effect launches a web page and reads of the data content.
The problem is that this code runs fine in IE 8 but hangs in IE9.
Any help would be greatly appreciated.
Code:
[COLOR=#303336][FONT=Consolas]Sub Retrieve_Info()[/FONT][/COLOR]
<code style="margin: 0px; padding: 0px; border: 0px; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, sans-serif; white-space: inherit;">[COLOR=#303336]
If First_Time = True Then
IE_Sledgehammer
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
End If
PACN = Cells(Row, 1)
IE.Navigate "http://www.myWebReportPage.com/Apps/AddIssues/EditIssue.asp?IssueID=" & PACN & "&ProjectID=PACN"
If First_Time = True Then
Sleep 10000
First_Time = False
Else
Sleep 3000
End If
On Error Resume Next
Source_Code = IE.document.DocumentElement.innerText
Do Until InStr(1, Source_Code, "Issue Id") <> 0 Or InStr(1, Source_Code, "Unable to locate") <> 0
Source_Code = IE.document.DocumentElement.innerText
Sleep 100
Loop
Sleep 200
Source_Code = IE.document.DocumentElement.innerText
Source_Code2 = IE.document.DocumentElement.innerHTML
[/COLOR]</code>[COLOR=#303336][FONT=Consolas]End Sub
[/FONT][/COLOR]
The problem is that this code runs fine in IE 8 but hangs in IE9.
Any help would be greatly appreciated.