Googleの検索結果をExcelのワークシートに入力するにはどうすればよいですか？

場合によっては、Googleで重要なキーワード検索を実行し、記事のタイトルとハイパーリンクを含むワークシートに上位の検索結果レコードを保持する必要があります。 この記事では、セル内の特定のキーワードに基づいてGoogle検索結果をワークシートに入力するのに役立つVBAメソッドを提供します。

Googleの検索結果をVBAコードでワークシートに入力します

Googleの検索結果をVBAコードでワークシートに入力します

以下のスクリーンショットに示すように、列Aのリストを検索する必要があるキーワードを想定して、次のようにして、これらのキーワードのGoogle検索結果を対応する列にVBAコードで入力してください。

1。 プレス 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウをクリックしてください インセット > モジュール。 次に、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のドロップダウンリストで値を選択するときに他のセルに自動入力するにはどうすればよいですか？