VBA - Web Automation Internet Explorer href issue

[priyanshua]

Hi I am trying to automate a website through VBA , I am able to select or click items with id , but for one link id is not available , it contais href and class . Can someone please help me out . I have just started using VBA .

After inspect item this is the html part :


<DIV class=PSHYPERLINKACTIVE><A class=PSHYPERLINKACTIVE href="javascript:submitAction_win0(document.win0,'#ICWorkItem$10');">Absence Request from 149394 </A></DIV>


Hear is my code :


set obj=CreateObject("InternetExplorer.Application")
obj.Navigate("http://hrms.bankofindia.co.in:8050/...EFAULT&cmd=login&errorCode=106&languageCd=ENG")
obj.Visible=True

WScript.Sleep(1000)

obj.Document.all.Item("userid").Value = "168721"
obj.Document.all.Item("pwd").Value = "VVVVV5"
obj.Document.all.Item("Submit").click
WScript.Sleep(10000)
obj.Document.all.Item("pthdr2wl").click
WScript.Sleep(1000)




For Each ele In obj.document.getElementsByTagName("a")
If ele.innerText = "Absence Request from 149394" Then ele.Click
Next

 

[John_w]

Try one of these:

For Each ele In obj.document.getElementsByTagName("a")
   If ele.innerText = "Absence Request from 149394 " Then ele.Click  'space at end, as shown by your HTML
Next

obj.document.querySelector("A.PSHYPERLINKACTIVE").Click