Создайте VBA, который возвращает 5 лучших результатов поиска в Google и Microsoft Edge - PullRequest
Новая
       114

Создайте VBA, который возвращает 5 лучших результатов поиска в Google и Microsoft Edge

0 голосов
/ 16 июня 2020

Ниже приведена ошибка, которую я получаю при вводе кода Я новичок в VBA, но хотел бы создать макрос, который возвращает 5 лучших результатов поиска элемента, указанного в ячейке A15 используя Google chrome или Microsoft Edge? Я попытался добавить приведенный ниже код и получил ошибку.

1 Ответ

0 голосов
/ 16 июня 2020

VBA может автоматизировать только браузер Inte rnet Explorer . Поэтому, если вы хотите использовать Google chrome или Microsoft Edge, этот подход вам не подходит.

Ниже приведен пример кода, который заполняет результаты поиска Google на листе. 

Option Explicit
Public Sub GetLink()
    Dim ie As New InternetExplorer

    Dim url As String
    url = "https://google.co.uk/search?q=" + Sheet1.Range("A2").Value
    With ie
        .Visible = True
        .navigate url

        While .Busy Or .readyState < 4: DoEvents: Wend

        Sheet1.Range("B2").Value = .document.querySelector("#search div.r [href*=http]").href
        Sheet1.Range("C2").Value = .document.querySelector("#search div.r [href*=http]").innerText
        .Quit
    End With

End Sub

Вывод:

enter image description here

Ссылка:

Как получить первую ссылку результата поиска в Google с помощью VBA?

Ниже еще одна полезная ветка. Его решение использует объект XMLHTTP.

Использование VBA в Excel для поиска в Google в IE и возврат гиперссылки первого результата

Далее вы можете попробовать проверьте приведенный выше пример и попробуйте изменить образец в соответствии со своими требованиями.

...