Как заполнить результаты поиска Google в рабочий лист Excel?

В некоторых случаях вам может потребоваться выполнить важный поиск ключевых слов в Google и сохранить записи с самыми популярными результатами в рабочем листе, включая заголовок и гиперссылку статьи. В этой статье представлен метод VBA, который поможет заполнить результаты поиска Google в рабочий лист на основе заданных ключевых слов из ячеек.

Заполнение результатов поиска Google в рабочий лист с помощью кода VBA

Заполнение результатов поиска Google в рабочий лист с помощью кода VBA

Предположим, что ключевые слова для поиска перечислены в столбце A, как показано на скриншоте ниже. Пожалуйста, следуйте указаниям, чтобы заполнить результаты поиска Google для этих ключевых слов в соответствующие столбцы с использованием кода VBA.

1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль. Затем скопируйте и вставьте код VBA в окно кода.

Код VBA: заполнение результатов поиска Google в рабочий лист

Sub xmlHttp()
'Updated by Extendoffice 2018/1/30
    Dim xRg As Range
    Dim url As String
    Dim xRtnStr As String
    Dim I As Long, xLastRow As Long
    Dim xmlHttp As Object, xHtml As Object, xHtmlLink As Object
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the keywords you will search in Google：", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    xLastRow = xRg.Rows.Count
    Set xRg = xRg(1)
    For I = 0 To xLastRow - 1
        url = "https://www.Google.co.in/search?q=" & xRg.Offset(I) & "&rnd=" & WorksheetFunction.RandBetween(1, 10000)
        Set xmlHttp = CreateObject("MSXML2.serverXMLHTTP")
        xmlHttp.Open "GET", url, False
        xmlHttp.setRequestHeader "Content-Type", "text/xml"
        xmlHttp.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0"
        xmlHttp.send
        Set xHtml = CreateObject("htmlfile")
        xHtml.body.innerHTML = xmlHttp.ResponseText
        Set xHtmlLink = xHtml.getelementbyid("rso").getelementsbytagname("H3")(0).getelementsbytagname("a")(0)
        xRtnStr = Replace(xHtmlLink.innerHTML, "<EM>", "")
        xRtnStr = Replace(xRtnStr, "</EM>", "")
        xRg.Offset(I, 1).Value = xRtnStr
        xRg.Offset(I, 2).Value = xHtmlLink.href
    Next
    Application.ScreenUpdating = True
End Sub

3. Нажмите клавишу F5 для запуска кода. В появившемся диалоговом окне Kutools for Excel выберите ячейки, содержащие ключевые слова, которые вы хотите найти, затем нажмите кнопку ОК. См. скриншот:

Все результаты поиска, включая заголовки и ссылки, будут заполнены в соответствующие ячейки столбцов на основе ключевых слов. См. скриншот:

Связанные статьи:

• Как заполнить комбинированный список указанными данными при открытии книги?
• Как автоматически заполнять другие ячейки при выборе значений в выпадающем списке Excel?
• Как автоматически заполнять другие ячейки при выборе значений в выпадающем списке Excel?