VBA - click link in IE using href

[dv512263]

Hello,

I'm able to navigate to a website, insert user/pswd credentials and click on a button to login and advance. Now I need to navigate through the next site by clicking on a link... this is where I'm having problems. The source code provides a "href" for the link. Does anyone have code to click on this link?

additionally, does anyone have code to time a refresh to occur every 5 seconds?

Any help would be much appreciated!

 

[dv512263]

Does this also work for secure sites? Using navigate with the full path brings me to another site that requires the login credentials again. Maybe this site is secure against programmatically navigating through it? Is there a way to determine this?

 

[Norie]

Without the URL it's hard to tell.

What you could try is what I suggested - clicking the button, not the link.

That's if there is a button of course.

 

[dv512263]

no button is available - just the link

 

[Norie]

Wasn't sure about the button - it has been awhile.

I looked back through the post and see you referred to a button for the initial login.

Try this.

' code to navigate to site and login
 
For Each objLink In IE.Document.GetElementsByTagName("HREF")
 
   If objLink.href ="sub_searchforjobs.asp?SHOWALLJOBS=1&?x=x" Then
 
      objLink.Click
 
      Exit For
 
    End If
 
Next objLink

Without seeing the actual page that's all I can think of trying right now.

 

[Leith Ross]

Hello dv512263,

Try this macro. Change the ID and password to match your own.

Sub Macro1A()

  Dim Anchor As Object
  Dim btnSubmit As Object
  Dim ieAnchors As Object
  Dim ieApp As Object
  Dim ieDoc As Object
  Dim ID As String
  Dim Pwd As String
  Dim tbID As Object
  Dim tbPwd As Object
  Dim URL As String
  
      URL = "https://app.aesopcanada.com/login2.asp?id=&serr=ID+or+PIN+is+not+numeric%2C+Please+note+that+you+do+not+have+to+enter+the+pound+%28%23%29+sign."
      
      ID = "Me"
      Pwd = "123"
      
          Set ieApp = CreateObject("InternetExplorer.Application")
          
          ieApp.Navigate URL
          ieApp.Visible = True
          
          While ieApp.Busy: DoEvents: Wend
          
          On Error GoTo ErrHandler
          While ieApp.Document.ReadyState <> "complete": DoEvents: Wend
          
          Set ieDoc = ieApp.Document
          
              Set tbID = ieDoc.getElementById("txtLoginID")
              Set tbPwd = ieDoc.getElementById("txtPassword")
              Set btnSubmit = ieDoc.getElementById("loginLink")
              
              tbID.Value = ID
              tbPwd.Value = Pwd
              btnSubmit.Click
              
                  On Error GoTo ErrHandler
                  While ieApp.Document.ReadyState <> "complete": DoEvents: Wend
                  
                  Set ieAnchors = ieDoc.Anchors
                  
                      For Each Anchor In ieAnchors
                        If Anchor.innerHTML = "Search for Jobs" Then
                           Anchor.Click
                           Exit For
                        End If
                      Next Anchor

ErrHandler:
    If Err <> 0 Then
       MsgBox "Run-time error '" & Err.Number & "':" & vbCrLf & vbCrLf & Err.Decription, vbOKOnly, "Error Opening Web Page"
    Else
       ieApp.Quit
    End If
    
End Sub