Нажмите на ссылку якоря Excel VBA - PullRequest
Новая
       6

Нажмите на ссылку якоря Excel VBA

0 голосов
/ 18 сентября 2018

Ребята У меня проблемы с кликом по якорному веб-сайту с использованием кода VBA.

Ссылка, которую я хочу щелкнуть, следующая: 

<a href="http://www.hapvida.com.br/pls/webhap/webNewTrocaArquivo.Download?pPessoa=36561410&amp;pNoCache=1817001839&amp;pIdSessao=001718093818134569635">BAIXAR ARQUIVOS - DOWNLOAD</a>

Я пробовал несколько методов, но они работают только для других ссылок на веб-сайте, но не для этого.

Вот так выглядит мой код прямо сейчас: 

Sub login()

    Const Url$ = "https://www.hapvida.com.br/pls/webhap/webNewTrocaArquivo.login"

    Dim UserName As String, Password As String, LoginData As Worksheet
    Set LoginData = ThisWorkbook.Worksheets("1")

    UserName = LoginData.Cells(2, "B").Value
    Password = LoginData.Cells(3, "B").Value

    Dim ie As InternetExplorer

    Set ie = CreateObject("InternetExplorer.Application")

    With ie

        .Navigate Url
        ieBusy ie
        .Visible = True

        Dim oLogin As Object, oPassword As Object, oCodigo As Object

        Set oLogin = .Document.getElementsByName("pCpf")(0)
        Set oPassword = .Document.getElementsByName("pSenha")(0)

        oLogin.Value = UserName
        oPassword.Value = Password
        .Document.forms(0).submit

    End With

    For Each l In ie.Document.getElementsByClassName("ultimas_noticias")
        If l.tagName = "a" Then
            l.Click
        End If
    Exit For
    Next

End Sub

Sub ieBusy(ie As Object)
    Do While ie.Busy Or ie.ReadyState < 4
        DoEvents
    Loop
End Sub

Заранее большое спасибо

...