Excel vbaによる自動Googleクエリ：誰でもこれを動作させることができますか？

Question

コミュニティに新しく、excel vbaで自動化されたGoogle検索を実行する方法を探して、ヘッダーのすぐ下にある「約49,600件の結果（0.78秒）」の情報を解析します。私は最近、ちょうどそれを達成する（または主張する）ようなこのチュートリアルを見つけました。 - >http://yodalearning.com/tutorials/perform-google-search-internet-explorer-using-excel-vba-excel-vba/

誰でもこれを動作させることができますか？

私はモジュールを実行しようとするとGoogleを開きますが、永遠になるロードサークルは何もしません。誰かがこれをどのように働かせるかについてのアイディアがあれば、大歓迎です！

Answer 1

A2に次のように入れてください：A4

girafe 
rhino 
starbucks 

は、以下のスクリプトを実行します。

Sub Gethits() 
    Dim url As String, lastRow As Long 
    Dim XMLHTTP As Object, html As Object, objResultDiv As Object, objH3 As Object, link As Object 
    Dim start_time As Date 
    Dim end_time As Date 
    Dim var As String 
    Dim var1 As Object 

    lastRow = Range("A" & Rows.Count).End(xlUp).Row 

    Dim cookie As String 
    Dim result_cookie As String 

    start_time = Time 
    Debug.Print "start_time:" & start_time 

    For i = 2 To lastRow 

     url = "https://www.google.com/search?q=" & Cells(i, 1) & "&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 html = CreateObject("htmlfile") 
     html.body.innerHTML = XMLHTTP.ResponseText 
     Set objResultDiv = html.getelementbyid("rso") 
     Set var1 = html.getelementbyid("resultStats") 
     Cells(i, 2).Value = var1.innerText 

     DoEvents 
    Next 

    end_time = Time 
    Debug.Print "end_time:" & end_time 

    Debug.Print "done" & "Time taken : " & DateDiff("n", start_time, end_time) 
    MsgBox "done" & "Time taken : " & DateDiff("n", start_time, end_time) 
End Sub 

のMozilla：