Come popolare i risultati della ricerca di Google in un foglio di lavoro in Excel?

In alcuni casi, potrebbe essere necessario eseguire una ricerca importante di parole chiave su Google e registrare i primi risultati della ricerca in un foglio di lavoro che includa il titolo e il collegamento ipertestuale dell'articolo. Questo articolo fornisce un metodo VBA per aiutare a popolare i risultati della ricerca di Google in un foglio di lavoro basato su parole chiave fornite nelle celle.

Popola i risultati della ricerca di Google in un foglio di lavoro con il codice VBA

Popola i risultati della ricerca di Google in un foglio di lavoro con il codice VBA

Supponendo che le parole chiave che devi cercare siano elencate nella colonna A come mostrato nello screenshot sottostante, procedi come segue per popolare i risultati della ricerca di Google di queste parole chiave nelle colonne corrispondenti utilizzando il codice VBA.

1. Premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, fai clic su Inserisci > Modulo. Quindi copia e incolla il codice VBA nella finestra del codice.

Codice VBA: popola i risultati della ricerca di Google in un foglio di lavoro

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. Premi il tasto F5 per eseguire il codice. Nella finestra di dialogo Kutools per Excel che appare, seleziona le celle contenenti le parole chiave che desideri cercare, quindi fai clic sul pulsante OK. Vedi screenshot:

Tutti i risultati della ricerca, inclusi titoli e collegamenti, vengono quindi popolati nelle celle delle colonne corrispondenti in base alle parole chiave. Vedi screenshot:

Articoli correlati:

• Come popolare una casella combinata con dati specificati all'apertura della Cartella di lavoro?
• Come popolare automaticamente altre celle quando si selezionano valori in una lista a discesa di Excel?
• Come popolare automaticamente altre celle quando si selezionano valori in una lista a discesa di Excel?