Error 91 in VBA

[Omar22]

I couldn't solve the 91 error in this code :




Sub textCheck()

Dim IE As Object
Dim doc As HTMLDocument
Set IE = CreateObject("InternetExplorer.Application")


IE.Visible = True
IE.navigate "https://sanctionssearch.ofac.treas.gov/"



Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop

Set doc = IE.Document


doc.getElementById("ctl00_MainContent_btnSearch").Click

If InStr(doc.getElementById("ctl00_MainContent_lblMessage").innerText , "Your search has not returned any results.") = 0 Then ' my error is here
Sheet1.Range("D1") = "Fail"
Else
Sheet1.Range("D1") = "Success"
End If
'Set rrr = doc.getElementById("ctl00_MainContent_lblMessage")


Application.Wait DateAdd("s", 2, Now)
IE.Quit


End Sub

 

[Anthony47]

After the ".Click" you have to wait for the search to be excecuted (but the macro doesn't load any search criteria, so I guess these are just tests) and the results be presented.

At this stage I suggest you insert a Wait before the If Instr test:

doc.getElementById("ctl00_MainContent_btnSearch").Click
Application.Wait Now + TimeValue("00:00:03")
If InStr(doc.getElementById("ctl00_MainContent_lblMessage").innerText, "Your search has not returned any results.") = 0 Then  ' my error is here

 

[Omar22]

After the ".Click" you have to wait for the search to be excecuted (but the macro doesn't load any search criteria, so I guess these are just tests) and the results be presented.

At this stage I suggest you insert a Wait before the If Instr test:

doc.getElementById("ctl00_MainContent_btnSearch").Click
Application.Wait Now + TimeValue("00:00:03")
If InStr(doc.getElementById("ctl00_MainContent_lblMessage").innerText, "Your search has not returned any results.") = 0 Then  ' my error is here

Thanks you very much. It works ☺

 

[Anthony47]

Thank you for the feedback
If this fix your problem it's better you mark the discussion as "closed", see Mark as Solution