如何將Google搜尋結果填充到Excel中的工作表？

在某些情況下，您可能需要在Google上進行一些重要的關鍵字搜尋，並將頂部的搜尋結果記錄保存在工作表中，其中包括文章的標題和超連結。本文提供了一種VBA方法，幫助根據單元格中的給定關鍵字將Google搜尋結果填充到工作表中。

使用VBA代碼將Google搜尋結果填充到工作表

使用VBA代碼將Google搜尋結果填充到工作表

假設您需要搜尋的關鍵字列在A列中，如下方截圖所示，請按照以下步驟操作，將這些關鍵字的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下拉列表中選擇值時如何自動填充其他單元格？