Navigate website through VBA

[Rajneesh Rawat]

Hi All,

I am trying to doing web scrapping through VBA. Login website is working perfect but m stuck in next step where i need help to choose a right property to navigate. Below is the HTML codes extract via inspect element.



and below is my VBA code:

Sub xyz()
Dim butt As Object
Dim objcoll As Object
Dim appIE As Object
Set appIE = CreateObject("internetexplorer.application")

With appIE
    .navigate "https://acme-test.uipath.com/account/login"
    .Visible = True
End With

Do While appIE.Busy

    DoEvents
Loop
    
    
Set UserN = appIE.document.getElementsByName("email")
Application.Wait (Now + TimeValue("0:00:10"))
    UserN(0).Value = "XYZ@gmail.com"

Set pswd = appIE.document.getElementsByName("password")
    
    pswd(0).Value = "abcdef"
    appIE.document.getElementById("buttonLogin").Click
    Set ojcoll = appIE.document.getElementById("/work-items").href
    appIE.document.getElementByname("/work-items").Click
'-------HTML CODE---------------
"<a href="/work-items"><button class="btn btn-default btn-lg" type="button">
<i class="fa fa-folder-open-o" aria-hidden="true"></i> Work Items</button></a>"
'--------------------------------------

   
    Set appIE = Nothing
End Sub

 

[Rajneesh Rawat]

Re: Need help to navigate website through VBA

Below is HTML code...

<a href="/work-items"><button class="btn btn-default btn-lg" type="button">
<i class="fa fa-folder-open-o" aria-hidden="true"></i> Work Items</button></a>

 

[Worf]

Re: Need help to navigate website through VBA

Hi

Sub xyz()
Dim usern, objcoll As Object, appIE As Object, pswd, i%
Set appIE = CreateObject("internetexplorer.application")
With appIE
    .navigate "https://acme-test.uipath.com/account/login"
    .Visible = True
End With
Do While appIE.Busy
    DoEvents
Loop
Set usern = appIE.Document.getElementsByName("email")
Application.Wait (Now + TimeValue("0:00:04"))
usern(0).Value = [e2]
Set pswd = appIE.Document.getElementsByName("password")
pswd(0).Value = [e3]
appIE.Document.getElementById("buttonLogin").Click
Do While appIE.Busy
    DoEvents
Loop
Application.Wait (Now + TimeValue("0:00:04"))
Set objcoll = _
appIE.Document.getelementsbyclassname("btn btn-default btn-lg")
For i = 0 To objcoll.Length - 1
    MsgBox objcoll(i).textcontent, 64, i
Next
objcoll(1).Click
Set appIE = Nothing
End Sub

 

[Rajneesh Rawat]

Re: Need help to navigate website through VBA

Thanks Worf...
It working perfect.

 

[Worf]

Re: Need help to navigate website through VBA

I am glad I could help...