Login to a website from VBA

[Yulyo]

I am trying to login to a website through a VBA. The VBA completes the username and password, but won't click the submit button.

This is my VBA:

Sub Login()
     
    Dim ie As Object
     
    Set ie = CreateObject("InternetExplorer.Application")
     
    ie.navigate "www.something.com"
     
    ie.Visible = True
     
    Do While ie.Busy And Not ie.readyState = 4
        DoEvents
    Loop
     
    DoEvents
  
    ie.document.all.Item("username").Value = "xxx"
    ie.document.all.Item("password").Value = "yyy"
    ie.document.all.Item("submit").click
     
End Sub

When i inspect the "Go" button, this is what i have:

input width="200" type="submit" value="Go"

Any help please?
Thanx

 

[Haluk]

Try this and see if it works;

    Set HTML_Elements = ie.document.getElementsByTagName("input")
    For Each Button_Element In HTML_Elements
        If (Button_Element.getAttribute("value") = "Go") Then
            Button_Element.Click
            Exit For
        End If
    Next

 

[Haluk]

Did you try the code ?

 

[jlhop66]

Hello,

I have used the VBA Code above and fitted it for the application I need. So far I have been able to get the webpage to open, enter my userID and my password. What I am having difficulty with is getting the "Sign in" button to click.

Here is my code

Sub Login()

Dim ie As Object

Set ie = CreateObject("InternetExplorer.Application")

ie.navigate "https://website.com"

ie.Visible = True

Do While ie.Busy And Not ie.readyState = 4
DoEvents
Loop

DoEvents

ie.document.all.Item("txtUser").Value = "UserID"
ie.document.all.Item("txtPass").Value = "password"
ie.document.all.Item("__doPostBack('Login','')").Click

End Sub


The error I am getting is
"Run-time error '91':"
Object variable or with block variable not set

I have no idea how to fix this and make the code work. Can anyone please help?

Thank you - Jim