Как я могу нажать на гипертекст в исходном коде?

Я начал писать эти командные строки, но, похоже, работает правильно ...

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Row = Range("Name").Row And Target.Column = Range("Name").Column Then

        Dim HTMLdoc As HTMLDocument
        Dim downloadLink As HTMLAnchorElement
        Dim i As Long
        Dim ie As New InternetExplorer

        With ie
            .Visible = True
            .navigate "http://www.XXXXXXXXXX" & Range("Name").Value

            While .Busy Or .readyState <> 4
            DoEvents
            Wend
            Set HTMLdoc = .document
        End With

            Dim Elmt As IHTMLElement
            Dim Elm_Children As IHTMLElementCollection

            Elm = HTMLDocument.getElementById("tableList2")
            Elm_Children = Elm.Children
            ElmChildren.FirstChild.Click

        ie.Quit

    End If

End Sub

Исходный код выглядит так:

введите описание изображения здесь

Основная идея заключается в том, чтобы открыть страницу поиска и нарисовать поисковый запрос, указанный в листе Excel, затем щелкнуть первую информацию об ударе и окончательной записке на новой странице: вставьте эти данные в один и тот же лист, но с разными строками.

Большое спасибо за помощь :-)

Всего 1 ответ


Ты можешь попробовать

HTMLDoc.querySelector("#tableList2 .lstw4 a[onclick]").Click

Или даже

HTMLDoc.querySelector("#tableList2 [onclick*='openMainWindow']").Click

Они используют селектор # id для получения таблицы . селектор классов в первом в lstw4 комбинаторе для получения элемента с классом lstw4 в таблице, оба выше используют селектор атрибутов для таргетинга атрибута onclick . Первый, просто перейдя для первого ребенка тегом с атрибутом onclick и родительским классом lstw4 , второй - onclick чье значение содержит openMainWindow .


Есть идеи?

10000