Открыть ссылку href в html через vba

Я пытаюсь автоматизировать очистку через vba. У меня есть несколько идентификаторов входа и пароль, под которые я вхожу индивидуально и загружаю некоторые данные. Мне удалось войти на сайт, следующая часть - открытие гиперссылки, упомянутой в теге href (внутренний текст). Может ли кто-нибудь помочь мне установить такой же код?

Винсент

Вы можете разместить свой код?

Tehscript 11.04.2018 13:05

И, если возможно, укажите URL

QHarr 11.04.2018 13:16

<a href="somelink.iata.org/somelink14/acdm/acdm_query.asp?extid‌ = CY730" title="ADM &amp; ACM Query" target="principal"> - & nbsp; ADM & amp; ACM Query </a>

user7883715 11.04.2018 13:42

у меня нет кода

user7883715 11.04.2018 13:42
1
4
194
1

Ответы 1

Трудно сказать, что вы предоставили, но вы, возможно, сможете перебрать теги и проверить наличие части href, например.

Option Explicit

'<a href="somelink.iata.org/somelink14/acdm/…; title="ADM &amp; ACM Query" target="principal">-&nbsp;ADM &amp; ACM Query</a>

Public Sub Test()
   'Tools > references > add Microsoft XML and HTML Object library
    Dim http As New XMLHTTP60 ' this would be as per your version of Excel
    Dim html As New HTMLDocument

    With http
        .Open "GET", "yourURL", False
        .send
        html.body.innerHTML = .responseText
    End With

    Dim posts As MSHTML.IHTMLElementCollection
    Dim post As MSHTML.IHTMLElement

    Set posts = html.getElementsByTagName("a")

    For Each post In posts

        If InStr(1, post.innerText, "somelink.iata.org/somelink14/acdm") > 0 Then
           post.Click
        End If

    Next post

End Sub

Вы пробовали это?

QHarr 12.04.2018 15:35

Другие вопросы по теме