Como pesquisar no google usando vba?

Há muitas coisas importantes que todos fazemos além de usar o Excel. Estou certo?

Uma dessas coisas é usar o Google para pesquisar algo. Na minha lista de códigos de macro úteis, tenho um código que você pode usar para realizar uma consulta de pesquisa no Google usando o Chrome.

E hoje vou compartilhar esse código com vocês. Você pode adicionar esse código à sua pasta de trabalho de macro pessoal e usá-lo sempre que precisar pesquisar algo no Google.

Código VBA para abrir o Google Chrome para pesquisa

Aqui está o código abaixo que você pode usar para pesquisar no Google usando o Chrome.

Versão do Windows 32

 Sub Google_Search_32() Dim chromePath As String Dim search_string As String Dim query As String query = InputBox("Enter here your search here", "Google Search") 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

Versão do Windows 64

 Sub Google_Search_64() Dim chromePath As String Dim search_string As String Dim query As String query = InputBox("Enter here your search here", "Google Search") search_string = Replace(query, " ", "+") chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe""" Shell (chromePath & " -url http://google.com/search?q=" & search_string) End Sub

Como usar este código VBA para pesquisar no Google

Aqui está a etapa simples que você precisa seguir para resgatar este código.

• Abra o editor VB usando a tecla de atalho Alt + F11 ou vá para a guia do desenvolvedor.

• Insira um novo módulo e cole o código acima nele.

Agora feche o editor VB e execute esta macro na opção macros na guia do desenvolvedor.

Como funciona

Quando você executa este código, ele mostra uma caixa de entrada para inserir sua consulta. E você precisa inserir sua consulta nesta caixa de entrada e clicar em OK.

Depois de clicar em OK, esse código cria a sintaxe do URL de pesquisa usando o texto inserido.

E, no final, redireciona o Chrome para este URL para fornecer resultados para a consulta inserida.