HI All,
I am trying to 'click' on a link within the page I got loaded using VBA, however, I am not able to. Here is the complete code below & the HTML code bit with link I wanted to 'click'. Any help will be useful.
Thanks in advance:
Option Explicit
Sub TAMIT_Login()
Dim lnkOverRide
Dim i As Object
Const READYSTATE_COMPLETE As Integer = 4
Dim objIE, lnkAssets As Object
Dim Name_ip, TamID, TamPwd As String
Dim evt, lst As Object
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Visible = False
.Silent = True
.Navigate Range("C3").Value
Do Until .readyState = READYSTATE_COMPLETE
DoEvents
Loop
End With
Set lnkOverRide = objIE.document.getElementById("overridelink")
If Not lnkOverRide Is Nothing Then
lnkOverRide.Click
End If
Do Until objIE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
IDPwd.Show
TamID = Range("IV1").Value
TamPwd = Range("IV2").Value
objIE.document.getElementById("j_username").Value = TamID
objIE.document.getElementById("j_password").Value = TamPwd
objIE.document.getElementById("loginbutton").Click
objIE.Visible = True
Application.Wait (Now + TimeValue("0:00:5"))
For Each i In objIE.document.GetElementsByTagName("span")
If (i.innertext = "Assets") Then
'MsgBox i.innerhtml
'MsgBox i.innertext
i.Focus
i.Click '<-- This is where I am struck'
Exit For
End If
'MsgBox i.innertext
Next
End Sub
HTML Code Bit:
<span align='middle' ctype="label" id="mx108" tabindex="0" ev="ASSET" targetid="mx108" mxevent="click" class="text favappsportletlink " style="display:block;;cursor
ointer;;;" title="Assets "><img id='mx108_image' src='../webclient/skins/tivoli09/images/appimg_asset.gif' class='favappsportletlinkimg' border='0' alt="Assets" style='vertical-align:top;margin:0px;margin-left:3px;margin-right:3px;'/>Assets</span></div></td> <td class="prs"></td>
I am trying to 'click' on a link within the page I got loaded using VBA, however, I am not able to. Here is the complete code below & the HTML code bit with link I wanted to 'click'. Any help will be useful.
Thanks in advance:
Option Explicit
Sub TAMIT_Login()
Dim lnkOverRide
Dim i As Object
Const READYSTATE_COMPLETE As Integer = 4
Dim objIE, lnkAssets As Object
Dim Name_ip, TamID, TamPwd As String
Dim evt, lst As Object
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Visible = False
.Silent = True
.Navigate Range("C3").Value
Do Until .readyState = READYSTATE_COMPLETE
DoEvents
Loop
End With
Set lnkOverRide = objIE.document.getElementById("overridelink")
If Not lnkOverRide Is Nothing Then
lnkOverRide.Click
End If
Do Until objIE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
IDPwd.Show
TamID = Range("IV1").Value
TamPwd = Range("IV2").Value
objIE.document.getElementById("j_username").Value = TamID
objIE.document.getElementById("j_password").Value = TamPwd
objIE.document.getElementById("loginbutton").Click
objIE.Visible = True
Application.Wait (Now + TimeValue("0:00:5"))
For Each i In objIE.document.GetElementsByTagName("span")
If (i.innertext = "Assets") Then
'MsgBox i.innerhtml
'MsgBox i.innertext
i.Focus
i.Click '<-- This is where I am struck'
Exit For
End If
'MsgBox i.innertext
Next
End Sub
HTML Code Bit:
<span align='middle' ctype="label" id="mx108" tabindex="0" ev="ASSET" targetid="mx108" mxevent="click" class="text favappsportletlink " style="display:block;;cursor
Last edited: