VBA code to login

[omkar94]

Hi guys,

Can someone help me out with a code that will login to below website using my credentials?

Website:
https://yardi.starlightinvest.com/voyager6008sp17/pages/Login.aspx


Thanks.

 

[VBA Geek]

something to get you started:

https://msdn.microsoft.com/en-us/library/ms970456.aspx

Sub navy()
Dim objIE As Object
Dim objHTML As Object


Set objIE = CreateObject("internetExplorer.Application")


objIE.Visible = True
objIE.navigate URL:="https://yardi.starlightinvest.com/voyager6008sp17/pages/Login.aspx"


While objIE.readyState <> 4
    DoEvents
Wend


Set objHTML = objIE.document


objHTML.getElementById("Username").innerText = "myUserName"
objHTML.getElementById("Password").innerText = "MyPassword"
objHTML.getElementById("button1").Click


Set objIE = Nothing
Set objHTML = Nothing
End Sub

 

[omkar94]

Hi VBA Greek,

Thanks for the help, but unfortunatley it is giving me an error saying.

"Run- time error '-2147417848 (80010108)':

Automation errror
The object invoked has disconnected from its clients"

When I click debug, It highlights the vba code below.

While objIE.readyState <> 4

Can you please guide me with this ?

 

[VBA Geek]

try to replace it with While objIE.Busy

 

[omkar94]

Thanks that works. But now giving error for the below vba line saying;

"Method 'Document' of object 'IWebBrowser 2' failed"

Set objHTML = objIE.document

 

[VBA Geek]

Thanks that works. But now giving error for the below vba line saying;

"Method 'Document' of object 'IWebBrowser 2' failed"

Set objHTML = objIE.document

that is I think because the browser is not done loading the website yet, that is why I think the first option is better