Hi all
I have the below code that opens up Internet explorer and I want it to search the HTML for a certain word. when I run the code its coming back with an error
Run-time error: '-2147023170 (800706be) automation error The remote procedure call failed. then highlights
While .Busy Or .ReadyState <> 4
Any suggestions?
I have the below code that opens up Internet explorer and I want it to search the HTML for a certain word. when I run the code its coming back with an error
Run-time error: '-2147023170 (800706be) automation error The remote procedure call failed. then highlights
While .Busy Or .ReadyState <> 4
Any suggestions?
Code:
Dim IE As InternetExplorer
Dim doc As HTMLDocument
Dim html As String
Set IE = New InternetExplorer
With IE
.Visible = True
.navigate "http://fin1/ViewDetails.asp?Headerid=9249"
While .Busy Or .ReadyState <> 4: DoEvents: Wend
Set doc = .Document
html = doc.documentElement.outerHTML
Debug.Print html
If InStr(html, "IncorrectID") > 0 Then
MsgBox "Incorrect Ref"
Else
MsgBox "Correct Ref"
End If
End With
End Sub