Buscar en Google desde Excel (macro)

25 Nov Buscar en Google desde Excel (macro)

Buscar en Google desde Excel

¿Cómo podemos realizar una búsqueda en el buscador Chrome de Google generado por una macro en Excel?

La siguiente macro nos permite realizar una búsqueda de cualquier término en el buscador de Google. Podemos asignarla a la ejecución de un botón o comando para de esta forma ejecutarla mucho más rápido, o bien desde la opción Macros del menú “Programador”. Debemos copiar la siguiente instrucción dentro de un nuevo módulo en la ventana de Visual Basic:

BUSCAR EN GOOGLE DESDE EXCEL

Sub BuscarEnGoogle()
Dim chromePath As String
Dim search_string As String
Dim query As String
query = InputBox("Ingresar búsqueda", "Buscar en Google")
search_string = query
search_string = Replace(search_string, " ", "+")
chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
Shell (chromePath & " -url http://google.com/search?q=" & search_string)
End Sub

Como podemos ver nombramos a la macro “BuscarEnGoogle”. Si buscamos desde la opción Macros del menú “programador”, podremos encontrarla con dicho nombre para poder ser ejecutada.

Una vez ejecutada, nos aparecerá una ventana emergente donde debemos el término o los términos de búsqueda que deseamos realizar. Una vez aceptada, se nos abrirá la ventana de Google Chrome con los resultados directos de nuestra búsqueda.

De esta forma podemos realizar búsquedas más rápidas en el buscador de Google sin necesidad de irnos de la ventana de Excel, mediante la generación y utilización de macros.

Te recomiendo ver el siguiente link con más videos de Macros útiles de Excel AQUÍ.

¿No sabés como instalar esta macro? ¡No te preocupes!  Aquí está la solución:

Salvo aclaración, todas las fórmulas y macros de este sitio están configuradas para aplicarse sobre la celda A1. Algunas fórmulas se encuentran encerradas entre llaves {} debido a que son fórmulas matriciales. Estas llaves no deben introducirse tecleándolas, sino que se generan automáticamente al aceptar la fórmula pulsando Control+Shift+Enter al mismo tiempo. Las fórmulas de este sitio son compatibles con versiones de Microsoft Excel® 2010 o superiores.