PDA

View Full Version : Unable to Click a link in web page using VBA



Biju
10-09-2012, 03:26 AM
Hi All,

I am new to VBA and please find below the details of my task

1) Log in to a web allocation.
2) Click on a link.
3) Generate Report.

I was able to Log in to the web page successfully, but I was not able to perform step 2, it would be great if someone could help me, The Href I need to search " DL LeasingApplications Maintenance_BFSI" can be found in the below source code, also when I right click and view the source code I was not able to see the source code of all the elements in the web page, looks like the web page has 2-3 ieframes.


My Code

Set Ele_col = ie.Document.getelementsbytagname("a")
For Each link In Ele_col
If link.innerhtml = " DL LeasingApplications Maintenance_BFSI" Then
link.Click
Exit For
End If
Next link



Source Code

<STYLE type=text/css>
Td.Locked, th.Locked {

left: expression(document.getElementById('divListTag').scrollLeft);
position: relative;
z-index: 5;
}
</STYLE>
<Table id='tblGrid032' width='99.9%' CellSpacing=1 CellPadding=0 class='clsGridTable' ><THead class='clsTRColumnHeader'><TH class='divListTag' align='Left' nowrap ><A Href="JavaScript:SortBy('ProjectCode','ASC')"><IMG Border=0 SRC='../../Images/SortBy.gif'></A>&nbsp;&nbsp;Project Code</TH><TH class='Sort_divListTag' align='Left' nowrap ><A Href="JavaScript:SortBy('ProjectName','DESC')"><IMG Border=0 SRC='../../Images/Sort_Down.gif'></A>&nbsp;&nbsp;Project Name</TH><TH class='divListTag' align='Left' nowrap ><A Href="JavaScript:SortBy('Status','ASC')"><IMG Border=0 SRC='../../Images/SortBy.gif'></A>&nbsp;&nbsp;Project Status</TH><TH class='divListTag' align='Left' nowrap ><A Href="JavaScript:SortBy('QMSProjectId','ASC')"><IMG Border=0 SRC='../../Images/SortBy.gif'></A>&nbsp;&nbsp;RM Project ID</TH><TH class='divListTag' align='Left' nowrap ><A Href="JavaScript:SortBy('Location','ASC')"><IMG Border=0 SRC='../../Images/SortBy.gif'></A>&nbsp;&nbsp;Organization Unit</TH><TH class='divListTag' align='Left' nowrap ><A Href="JavaScript:SortBy('ResourcePoolName','ASC')"><IMG Border=0 SRC='../../Images/SortBy.gif'></A>&nbsp;&nbsp;Executing Unit</TH><TH class='divListTag' align='Left' nowrap ><A Href="JavaScript:SortBy('CustomerName','ASC')"><IMG Border=0 SRC='../../Images/SortBy.gif'></A>&nbsp;&nbsp;Client / Engagement</TH><TH class='divListTag' align='Center' nowrap ><A Href="JavaScript:SortBy('ExpectedStartDate','ASC')"><IMG Border=0 SRC='../../Images/SortBy.gif'></A>&nbsp;&nbsp;Start Date</TH><TH class='divListTag' align='Center' nowrap ><A Href="JavaScript:SortBy('ExpectedEndDate','ASC')"><IMG Border=0 SRC='../../Images/SortBy.gif'></A>&nbsp;&nbsp;End Date</TH><TH class='divListTag' align='Left' nowrap ><A Href="JavaScript:SortBy('ProjectType','ASC')"><IMG Border=0 SRC='../../Images/SortBy.gif'></A>&nbsp;&nbsp;Practice</TH></THead><tr class='clsTROdd' valign=top><TD nowrap align=Left >PRJ-1109</TD><TD nowrap align=Left ><A href="Navigation.aspx?subPage=CommonPage.aspx&ProjectID_PK=1183&PKToken=sxSBHYr09Ss3dOk58mpmQ&MasterTagID=32&FromWhere=PM&PagingAlphabet=-1&SortBy=&SortOrder=&ParentTagID=0&FromCL=1&PagingNumber=1&status=" Target=_top >DL LeasingApplications Maintenance_BFSI</A></TD><TD nowrap align=Left >Active</TD><TD nowrap align=Left >U5C749</TD><TD nowrap align=Left >BFS</TD><TD nowrap align=Left >SAU - Deutsche Leasing {D}</TD><TD nowrap align=Left >Deustche Leasing AG</TD><TD nowrap align=Center >01, May 2009</TD><TD nowrap align=Center >31, Dec 2012</TD><TD nowrap align=Left >Maintenance &amp; Enhancements</TD></tr><tr class='clsTREvenRow' valign=top><TD nowrap align=Left >PRJ-1326</TD><TD nowrap align=Left ><A href="Navigation.aspx?subPage=CommonPage.aspx&ProjectID_PK=1407&PKToken=paIqYKvmK5wYF9BZk9/YAA&MasterTagID=32&FromWhere=PM&PagingAlphabet=-1&SortBy=&SortOrder=&ParentTagID=0&FromCL=1&PagingNumber=1&status=" Target=_top >Hexavarsity</A></TD><TD nowrap align=Left >Active</TD><TD nowrap align=Left >PRJ-1326</TD><TD nowrap align=Left >Hexavarsity</TD><TD nowrap align=Left >Hexavarsity</TD><TD nowrap align=Left >Hexaware Technologies LTD.</TD><TD nowrap align=Center >01, Nov 2009</TD><TD nowrap align=Center >31, Dec 2025</TD><TD nowrap align=Left >Support Group</TD></tr><tr class='clsTROdd' valign=top><TD nowrap align=Left >PRJ-0395</TD><TD nowrap align=Left ><A href="Navigation.aspx?subPage=CommonPage.aspx&ProjectID_PK=396&PKToken=B5LMqmMqNkuKUcwUIWQveA&MasterTagID=32&FromWhere=PM&PagingAlphabet=-1&SortBy=&SortOrder=&ParentTagID=0&FromCL=1&PagingNumber=1&status=" Target=_top >Testing Chennai Resource Pool</A></TD><TD nowrap align=Left >Active</TD><TD nowrap align=Left >TCC001</TD><TD nowrap align=Left >Testing Delivery-(D)</TD><TD nowrap align=Left >Testing Chennai</TD><TD nowrap align=Left >Hexaware Technologies LTD.</TD><TD nowrap align=Center >01, Feb 2007</TD><TD nowrap align=Center >31, Dec 2025</TD><TD nowrap align=Left >Resource Pool</TD></tr></Table></DIV></DIV><BR><INPUT type=hidden id='PagingNumber' name='PagingNumber' value='1'><TABLE class=clsTable cellpadding=0 cellspacing=0 width='100%'><TR class=clsTREven><TD width='100%' align='right'>Total Records :3</TD></TR></TABLE>
<BR><Table border=0 cellspacing=0 cellpadding=0 width='99.9%' class='clsTable' ><TR class='clsTRMenu'><TD align=right></TD></TR></TABLE>
<SCRIPT Language=javascript>

</SCRIPT>

<SCRIPT Language=javascript>

var objfrm;
var objdivlist;
objfrm = GetFormReference('frmCommonList')
objdivlistPage=GetObjectReference('frmCommonList','divListPageTag')

objdivlist=GetObjectReference('frmCommonList','divListTag')