Google検索結果をExcelのワークシートに取り込むにはどうすればよいですか？

場合によっては、重要なキーワードをGoogleで検索し、記事のタイトルとハイパーリンクを含む上位検索結果をワークシートに記録する必要があります。この記事では、セル内の指定されたキーワードに基づいてGoogle検索結果をワークシートに取り込むためのVBAメソッドを提供します。

VBAコードを使用してGoogle検索結果をワークシートに取り込む

VBAコードを使用してGoogle検索結果をワークシートに取り込む

以下のように、検索したいキーワードが列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ダイアログボックスで、検索したいキーワードを含むセルを選択し、[OK]ボタンをクリックします。スクリーンショットをご覧ください：

その後、すべての検索結果（タイトルやリンクを含む）がキーワードに基づいて対応する列のセルに取り込まれます。スクリーンショットをご覧ください：

関連記事：

• ワークブックを開いたときに指定されたデータでコンボボックスを自動的に設定するにはどうすればよいですか？
• Excelのドロップダウンリストで値を選択した際に他のセルを自動的に設定するにはどうすればよいですか？
• Excelのドロップダウンリストで値を選択した際に他のセルを自動的に設定するにはどうすればよいですか？