Run-time error 91: Object viable or with block varible not set

**bensox** · 08-29-2012, 09:03 AM

Hello, I want to learn VBA (hence I just arrived at this forum). I have created the following code, sometimes it works but mostly I get Error '91' please could someone tell me what I have missed out? NB, I have changed the login codes to asterix to protect privacy.

Sub Open_Internet_Explorer()
Dim IE As Object
 
Set IE = CreateObject("InternetExplorer.Application")
 IE.navigate "http://tracking.phservice.co.uk/auth/login"
 IE.Visible = True
 While IE.busy
 DoEvents
   Wend
   Dim ieDoc As Object




IE.Document.all("username").Value = "********"
 IE.Document.all("password").Value = "*******"

**Chippy** · 08-29-2012, 03:03 PM

You need to wait for IE.readyState too, like this:

Sub Open_Internet_Explorer()

    Dim IE As Object
    Dim IEdoc As Object
 
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .navigate "http://tracking.phservice.co.uk/auth/login"
        .Visible = True
        While .busy Or .readystate <> 4
            DoEvents
        Wend
        .Document.all("username").Value = "********"
        .Document.all("password").Value = "********"
    End With
    
 End Sub