¿Cómo rellenar los resultados de búsqueda de Google en una hoja de cálculo en Excel?

En algunos casos, es posible que necesites realizar búsquedas importantes de palabras clave en Google y mantener un registro de los principales resultados de búsqueda en una hoja de cálculo que incluya el título y el hipervínculo del artículo. Este artículo proporciona un método VBA para ayudarte a rellenar los resultados de búsqueda de Google en una hoja de trabajo basada en palabras clave dadas en las celdas.

Rellenar los resultados de búsqueda de Google en una hoja de cálculo con código VBA

Rellenar los resultados de búsqueda de Google en una hoja de cálculo con código VBA

Suponiendo que las palabras clave que necesitas buscar estén listadas en la columna A como se muestra en la siguiente captura de pantalla, sigue los siguientes pasos para rellenar los resultados de búsqueda de Google de estas palabras clave en las columnas correspondientes con código VBA.

1. Presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo. Luego copia y pega el código VBA en la ventana de código.

Código VBA: Rellenar los resultados de búsqueda de Google en una hoja de cálculo

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. Presiona la tecla F5 para ejecutar el código. En el cuadro de diálogo emergente de Kutools para Excel, selecciona las celdas que contienen las palabras clave que deseas buscar y luego haz clic en el botón Aceptar. Ver captura de pantalla:

Todos los resultados de búsqueda, incluidos títulos y enlaces, se rellenan en las celdas de las columnas correspondientes según las palabras clave. Ver captura de pantalla:

Artículos relacionados:

• ¿Cómo rellenar un cuadro combinado con datos especificados al abrir el Libro de Trabajo?
• ¿Cómo auto rellenar otras celdas al seleccionar valores en la lista desplegable de Excel?
• ¿Cómo auto rellenar otras celdas al seleccionar valores en la lista desplegable de Excel?