谷歌在宏中搜索

我需要對my previous question中的宏進行一些修改，如c列中的搜索結果第1個鏈接，d列中的第2個鏈接，e列中的第3個鏈接等等，最多5個或更多個鏈接。谷歌在宏中搜索

下面是宏

Sub XMLHTTP() 

    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 

    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.co.in/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 objH3 = objResultDiv.getElementsByTagName("H3")(0) 
     Set link = objH3.getElementsByTagName("a")(0) 


     str_text = Replace(link.innerHTML, "<EM>", "") 
     str_text = Replace(str_text, "</EM>", "") 

     Cells(i, 2) = str_text 
     Cells(i, 3) = link.href 
     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

來源

2014-01-18 user3157666

爲了將每個超鏈接中的行1，列C等SEQ，修改這些行：

Cells(i, 2) = str_text 
Cells(i, 3) = link.href

和改變他們這一行：

Cells(1, i+2) = link.href

聲明Cells(r, c)表示排和列要分配的位置，所以儘管代碼最初是將每個結果&鏈接放在一個新行上，在列B和C中（Cells(i, 2)將是列B等），您只需修改該語句即可您想要的數據。

來源

2014-01-18 14:45:18

谷歌在宏中搜索

回答

相關問題