如何将Google搜索结果填充到Excel中的工作表？

在某些情况下，您可能需要在Google中进行一些重要的关键字搜索，并将排名靠前的搜索结果记录保存到工作表中，其中包括文章的标题和超链接。本文提供了一种VBA方法，帮助根据单元格中的给定关键字将Google搜索结果填充到工作表中。

使用VBA代码将Google搜索结果填充到工作表

使用VBA代码将Google搜索结果填充到工作表

假设您需要搜索的关键字列在A列中，如下截图所示，请按照以下步骤操作，通过VBA代码将这些关键字的Google搜索结果填充到相应的列中。

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下拉列表中选择值时自动填充其他单元格？