Shark Tip - VBA Excel | Código VBA de Pesquisa no Google - VBA Code to Search on Google

VBA Excel | Código VBA de Pesquisa no Google - VBA Code to Search on Google

Efetue pesquisas no Google a partir de seus Apps no MS Office:


 Série Donut Project 

DONUT PROJECT: VBA - Projetos e Códigos de Visual Basic for Applications (Visual Basic For Apllication)eBook - DONUT PROJECT 2024 - Volume 03 - Funções Financeiras - André Luiz Bernardes eBook - DONUT PROJECT 2024 - Volume 02 - Conectando Banco de Dados - André Luiz Bernardes eBook - DONUT PROJECT 2024 - Volume 01 - André Luiz Bernardes


O código fornecido realiza uma pesquisa no Google usando o Google Chrome, com base em um termo inserido pelo usuário. Vou melhorar o código, adicionando comentários para explicar o funcionamento e realizando algumas melhorias na legibilidade e na robustez do código. Além disso, criarei cinco exemplos de aplicação para esse código.


Melhorias e Comentários no Código VBA


1. Declaração de Variáveis: Melhorei as declarações das variáveis para uma forma mais consistente e utilizei `Dim` para todas as variáveis de forma adequada.

2. Manejo do Caminho do Chrome: Agora o código verifica o caminho do Google Chrome dependendo da versão do sistema operacional (32 ou 64 bits), e inclui uma verificação para garantir que o caminho correto seja usado.

3. Tratamento de Erros: Adicionei um simples tratamento de erro para garantir que o caminho do Chrome seja corretamente atribuído.

4. Comentários no Código: Coloquei explicações detalhadas em cada parte para ajudar na compreensão.


Código Melhorado



Sub SearchWindow32()


    ' Declaração das variáveis

    Dim chromePath As String

    Dim search_string As String

    Dim query As String

    Dim is64bit As Boolean

    

    ' Pergunta ao usuário o termo de pesquisa

    query = InputBox("Digite o que deseja procurar:", "Google Search") 


    ' Verifica se o usuário não cancelou a entrada

    If query = "" Then

        MsgBox "Você não inseriu nenhum termo de pesquisa. O programa será encerrado.", vbExclamation

        Exit Sub

    End If


    ' Substitui espaços por "+" para ser compatível com a URL do Google

    search_string = Replace(query, " ", "+")


    ' Verifica o sistema operacional (32 ou 64 bits)

    is64bit = (Len(Dir("C:\Program Files\Google\Chrome\Application\chrome.exe")) > 0)


    ' Define o caminho do Chrome com base na versão do sistema operacional

    If is64bit Then

        ' Para sistemas operacionais 64 bits

        chromePath = "C:\Program Files\Google\Chrome\Application\chrome.exe"

    Else

        ' Para sistemas operacionais 32 bits

        chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

    End If


    ' Verifica se o Chrome está instalado no caminho especificado

    If Len(Dir(chromePath)) = 0 Then

        MsgBox "O Google Chrome não foi encontrado. Verifique se está instalado corretamente.", vbCritical

        Exit Sub

    End If


    ' Executa a pesquisa no Google com o termo fornecido

    Shell (chromePath & " -url ""http://google.com/#q=" & search_string & """")

    

End Sub



Comentários Explicativos:


- Entrada do Usuário: O código começa com um `InputBox` onde o usuário digita o termo a ser pesquisado. Se o usuário não inserir nenhum termo e clicar em "OK", o código irá avisá-lo e interromper a execução.

- Substituição de Espaços: O `Replace` é utilizado para converter espaços em "+" porque isso é necessário para construir uma URL válida para o Google.

- Verificação do Caminho do Chrome: O código verifica se o Google Chrome está instalado em `C:\Program Files` ou `C:\Program Files (x86)` dependendo se o sistema operacional é 64 bits ou 32 bits. 

- Execução do Chrome: Usa o comando `Shell` para abrir o Google Chrome e realizar a pesquisa na URL do Google.

- Tratamento de Erros: Caso o Google Chrome não esteja instalado no caminho esperado, o código exibe uma mensagem de erro.


5 Exemplos de Aplicação para o Código:


1. Pesquisa por Produtos na Web:

   - Objetivo: Criar uma aplicação onde o usuário pode buscar produtos em sites de compras como Mercado Livre ou Amazon, fornecendo o nome do produto.

   - Exemplo de uso: O código poderia ser adaptado para redirecionar a pesquisa para a página de resultados do Mercado Livre, por exemplo, usando `mercadolivre.com.br` no lugar do Google.


2. Pesquisa por Definições de Palavras:

   - Objetivo: Utilizar o código para buscar definições de palavras no Google ou em dicionários online.

   - Exemplo de uso: O termo inserido pelo usuário poderia ser direcionado para um site como [dicionario.com](https://www.dicionario.com) ou [wordreference.com](https://www.wordreference.com) para buscar significados.


3. Pesquisa de Notícias ou Artigos Científicos:

   - Objetivo: Adaptar o código para buscar artigos acadêmicos ou notícias usando termos específicos.

   - Exemplo de uso: O termo de pesquisa poderia ser direcionado para uma pesquisa mais focada, como no Google Scholar ou sites de notícias especializados, adicionando uma URL específica de pesquisa.


4. Pesquisa em Sites de Ensino de Idiomas:

   - Objetivo: Usar o código para pesquisar traduções e exemplos de frases em sites de ensino de idiomas, como Duolingo ou Babbel.

   - Exemplo de uso: O código poderia direcionar o usuário para uma pesquisa de tradução no Google Tradutor ou em outras plataformas de idiomas, baseando-se no termo fornecido.


5. Pesquisa por Locais e Mapas:

   - Objetivo: Criar uma aplicação que permita ao usuário pesquisar por endereços ou locais no Google Maps diretamente.

   - Exemplo de uso: O código poderia ser modificado para pesquisar locais no Google Maps, redirecionando a URL para o Google Maps com o termo inserido (por exemplo, "Santos, SP").


Esses exemplos de uso podem ser adaptados facilmente alterando a URL base para outros sites de pesquisa ou serviços online.


  PUDIM PROJECT 

eBook - PT - PUDIM PROJECT 2024 - Python Volume 01 - Funções Essenciais - Série PUDIM PROJECT — André Luiz Bernardes eBook - PT - PUDIM PROJECT 2024 - Python Volume 02 - Funções Essenciais - Série PUDIM PROJECT — André Luiz Bernardes eBook - PT - PUDIM PROJECT 2024 - Python Volume 03 - Automatizando Postagens em Redes e Plataformas Sociais - Série PUDIM PROJECT — André Luiz Bernardes


eBook - PT - PUDIM PROJECT 2024 - Python Volume 04 - Funções para Automatização - Série PUDIM PROJECT — André Luiz Bernardes eBook - PT - PUDIM PROJECT 2024 - Python Volume 05 - Automatizando Postagens em Redes e Plataformas Sociais - Série PUDIM PROJECT — André Luiz Bernardes eBook - PT - PUDIM PROJECT 2024 - Python Volume 06 - Automatizando Postagens em Redes e Plataformas Sociais - Série PUDIM PROJECT — André Luiz Bernardes


eBook - PT - PUDIM PROJECT 2024 - Python Volume 07 - Automatizando Postagens em Redes e Plataformas Sociais - Série PUDIM PROJECT — André Luiz Bernardes eBook - PT - PUDIM PROJECT 2024 - Python Volume 08 - Automatizando Postagens em Redes e Plataformas Sociais - Série PUDIM PROJECT — André Luiz Bernardes eBook - PT - PUDIM PROJECT 2024 - Python Volume 09 - Automatizando Postagens em Redes e Plataformas Sociais - Série PUDIM PROJECT — André Luiz Bernardes


eBook - PT - PUDIM PROJECT 2024 - Python Volume 10 - Automatizando Postagens em Redes e Plataformas Sociais - Série PUDIM PROJECT — André Luiz Bernardes eBook - PT - PUDIM PROJECT 2024 - Python Volume 11 - Automatizando Postagens em Redes e Plataformas Sociais - Série PUDIM PROJECT — André Luiz Bernardes


 Série de artigos: PUDIM PROJECT Pyhton 

PUDIM PROJECT 2024 | Python - Simplifique sua Rotina com Estes 8 Scripts Python para Automatizar Tarefas Diárias PUDIM PROJECT 2024 | Python - Aprenda a Manipular Datas e Horários com o Pacote Pendulum em Python: Exemplos Práticos PUDIM PROJECT 2024 | Python - Copie Facilmente Conteúdos de Arquivos para a Área de Transferência

PUDIM PROJECT 2024 | Python - Validação de YAML e JSON: Garanta a Integridade dos Dados no Kubernetes com Estas Ferramentas Simples PUDIM PROJECT 2024 | Python - Aprenda a Criptografar e Descriptografar Senhas Usando Python


Versão Win 32


Sub SearchWindow32()

Dim chromePath As String

Dim search_string As String

Dim query As String

Let query = InputBox("Digite o que deseja procurar", "Google Search")

Let search_string = query

Let search_string = Replace(search_string, " ", "+")

'Uncomment the following line for Windows 64 versions and comment out Windows 32 versions'

Let chromePath = "C:Program FilesGoogleChromeApplicationchrome.exe"

'Uncomment the following line for Windows 32 versions and comment out Windows 64 versions

Let chromePath = "C:Program Files (x86)GoogleChromeApplicationchrome.exe"

Shell (chromePath & " -url http://google.com/#q=" & search_string)

End Sub


Versão Win 64


Sub SearchWindow64()

Dim chromePath As String

Dim search_string As String

Dim query As String

Let query = InputBox("Digite o que deseja procurar", "Google Search")

Let search_string = query

Let search_string = Replace(search_string, " ", "+")

'Uncomment the following line for Windows 64 versions and comment out Windows 32 versions

Let chromePath = "C:Program FilesGoogleChromeApplicationchrome.exe"

'Uncomment the following line for Windows 32 versions and comment out Windows 64 versions

'Let chromePath = "C:Program Files (x86)GoogleChromeApplicationchrome.exe"

Shell (chromePath & " -url http://google.com/#q=" & search_string)

End Sub 

 

Conheça também:

VBA Excel | Código VBA de Pesquisa no Google - VBA Code to Search on Google

VBA Excel | Inserir várias Planilhas - Insert Multiple Worksheets

VBA Excel | Redimensione todos os Gráficos numa Planilha - Resize All Charts in a Worksheet

VBA Excel | Desproteger Planilha - Un-Protect Worksheet

VBA Excel | Proteger Planilha - Protect Worksheet

VBA Excel | Proteja todas as Planilhas Instantaneamente - Protect all Worksheets Instantly

VBA Excel | Excluir tudo, exceto a planilha ativa - Delete all but the Active Worksheet

VBA Excel | Ocultar tudo, exceto a planilha ativa - Hide all but the Active Worksheet

VBA Excel | Realçar Valores Únicos - Highlight Unique Values

VBA Excel | Realçar Células Com Comentários - Highlight Cells with Comments

VBA Excel | Faz Backup da Aba de trabalho Atual - Create a Backup of a Current Workbook

VBA Excel | Salve cada Planilha como um único PDF - Save Each Worksheet as a Single PDF

VBA Excel | Excluir todas as Planilhas em Branco - Delete all Blank Worksheets

 

Veja outros códigos:

VBA Excel | Extraindo a Data de uma Célula com Data e Horário - Remove Date from Date and Time VBA Excel | Converta Tudo para Maiúscula - Convert to Upper CaseVBA Excel | Contando Palavras na Planilha - Word Count from Entire Worksheet VBA Excel | Removendo Decimais dos Números - Remove Decimals from Numbers

VBA Excel |  Multiplique todos os Valores por um Número - Multiply all the Values by a Number VBA Excel | Calculando a Raiz Cúbica - Calculate the Cube Root

VBA Excel | Adicionando Letras de A até Z - Add A-Z Alphabets in a Range VBA Excel | Convertendo Numerais Romanos em Arábicos - Convert Roman Numbers into Arabic Numbers

VBA Excel | Converta todos os Números Negativos em Positivos - Remove Negative Signs VBA Excel | Preencha com zeros as Células em Branco - Replace Blank Cells with Zeros



 Série de Livros nut Project 

DONUT PROJECT: VBA - Projetos e Códigos de Visual Basic for Applications (Visual Basic For Apllication)eBook - DONUT PROJECT 2024 - Volume 03 - Funções Financeiras - André Luiz Bernardes eBook - DONUT PROJECT 2024 - Volume 02 - Conectando Banco de Dados - André Luiz Bernardes eBook - DONUT PROJECT 2024 - Volume 01 - André Luiz Bernardes




 Série VBA Outlook: 

VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Usando o DAO em vez do ADO (Using DAO instead of ADO) VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Usando um Recordset Desconectado (Using a Disconnected Recordset) VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Usando Transações (Using Transactions)


VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Usando Parâmetros em Consultas SQL (Using Parameters in SQL Queries) VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Tratando Erros (Handling Errors) VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Fechando a Conexão (Closing the Connection)


VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Enviando um e-Mail para cada Cliente (Sending an email to each Customer) VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Lendo Dados do Conjunto de Registros (Reading Recordset Data) VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Executando uma Consulta SQL (Executing an SQL Query)


VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Conectando ao Banco de Dados usando ADO (Connecting to the Database using ADO)


 Série DONUT PROJECT 2021 


DONUT PROJECT 2021 - VBA Function: Sabe como enviar dados para o Google Sheet, através do MS Excel, usando VBA, no MacBook?

DONUT PROJECT 2021 - VBA Function:  Como Rastrear o Google Maps (Coordenadas Geográficas) no VBA Excel? DONUT PROJECT 2021 - VBA Function:  Crie Acrônimos a partir de Strings de Texto DONUT PROJECT 2021 - VBA Function:  Convertendo uma Matrix num Vetor - Convert Matrix to a Vector

DONUT PROJECT 2021 - VBA Function:  Como tornar o Formulário Transparente no MS Excel? DONUT PROJECT 2021 - VBA Function:  Faça Buscas no Google a Partir da Célula do MS Excel - Search Google From a Cell DONUT PROJECT 2021 - VBA Function:  Decompondo um Nome nas Dimensões de uma Matriz


DONUT PROJECT 2021 - VBA Function: Extraindo o Último Sobrenome de um Nome Completo ou a Última Palavra de uma Frase DONUT PROJECT 2021 - VBA Function:  Extraindo o Segundo Nome de um Nome Completo ou a Segunda Palavra de uma Frase DONUT PROJECT 2021 - VBA Function: Extraindo o Primeiro Nome ou  a Primeira Palavra de uma Frase



 Série DONUT PROJECT 2018 

DONUT PROJECT 2018 - VBA - 12 - Aumente sua Produtividade DONUT PROJECT 2018 - VBA - 10 - Loop For-Each DONUT PROJECT 2018 - VBA - 08 - Referenciando Ranges


DONUT PROJECT 2018 - VBA - 07 - Amostra de Macro  DONUT PROJECT 2018 - VBA - 06 - Recursos Adicionais DONUT PROJECT 2018 - VBA - 05 - Gravando a Primeira Macro

DONUT PROJECT 2018 - VBA - 04 - Opções de Solução DONUT PROJECT 2018 - VBA - 03 - Requisitos e Preparação DONUT PROJECT 2018 - VBA - 02 - Continua Cético

DONUT PROJECT 2018 - VBA - 01 - Maximizando Sua Eficiência DONUT PROJECT 2018 - Excel - Ao Gravar Macro Altere o Método SELECT por RANGE 


 DONUT PROJECT 2018 - Excel - Acelerando as Macros - Desativando os Recursos de Atualização



 Série DONUT PROJECT 2015 

DONUT PROJECT 2015 - Excel - Formatting A Pivot Field's Data - Formatando os Campos de uma Tabela Dinâmica DONUT PROJECT 2015 - Excel - Formatting A Pivot Table's Data - Formatando os Dados de um Tabela Dinâmica DONUT PROJECT 2015 - Excel - Expand/Collapse Entire Field Detail - Ampliando Detalhadamente os Campos da Tabela Dinâmica

DONUT PROJECT 2015 - Extraindo e-Mails - Extracting An Email Address From Text   DONUT PROJECT 2015 - Função - Extraindo Quaisquer Elementos de uma String a Partir do Limitador DONUT PROJECT 2015 - Função - Retorna o número de ocorrências de um caracter numa string

DONUT PROJECT 2015 - Função - Retorna Qualquer Conteúdo Delimitado por 2 Caracteres  DONUT PROJECT 2015 - Função - Retorna Apenas o Conteúdo Entre Parênteses DONUT PROJECT 2015 - Função - Extrai Conteúdo entre Parênteses

DONUT PROJECT 2015 - Excel - Report Layout DONUT PROJECT 2015 - Excel - Grand Totals - Inserindo Totais para todas as Colunas e Linhas na Tabela Dinâmica DONUT PROJECT 2015 - Excel - Change Pivot Table Data Source Range - Mudando a Fonte de Dados da Tabela Dinâmica

DONUT PROJECT 2015 - Excel - Refresh Pivot Tables - Aplicando Refresh em Tabelas Dinâmicas DONUT PROJECT 2015 - How To Create Partially Anonymous Data - Como Manter Informações parcialmente Anônimas  DONUT PROJECT 2015 - Excel - Clear Report Filter - Limpando o Filtro da Tabela Dinâmica

DONUT PROJECT 2015 - Excel - Report Filter On Multiple Items - Criando Filtros Múltiplos na Tabela Dinâmica DONUT PROJECT 2015 - Excel - Report Filter On A Single Item - Criando Filtro de Relatório na Tabela Dinâmica DONUT PROJECT 2015 - Excel - Remove Calculated Pivot Fields - Removendo Campos Calculados da Tabela Dinâmica

DONUT PROJECT 2015 - Excel - Remove Pivot Fields - Removendo Campos da Tabela Dinâmica  DONUT PROJECT 2015 - Excel - Add A Values Field - Adicionando Campos Calculados na Tabela Dinâmica DONUT PROJECT 2015 - Excel - Add Calculated Pivot Fields - Adicionando Campos Calculados na Tabela Dinâmica

DONUT PROJECT 2015 - Excel - Add Pivot Fields - Adicionado Campos na Tabela Dinâmica DONUT PROJECT 2015 - Excel - Delete All Pivot Tables - Apagando todas as Tabelas Dinâmicas DONUT PROJECT 2015 - Excel - Delete A Specific Pivot Table - Apague um Tabela Dinâmica Específica


DONUT PROJECT 2015 - VBA To Add A Confidentiality Footer Statement In Excel, Word, or PowerPoint - Adicionando um Rodapé com Status de Confidencialidade no Excel, Word ou PowerPoint DONUT PROJECT 2015 - Excel - Create A Pivot Table - Criando uma Tabela Dinâmica


 Série DONUT PROJECT 2014 

DONUT PROJECT 2014 - Use os add-ins do MS Excel e dê um salto em sua performance DONUT PROJECT 2014 - VBA - Automatizando o Outlook para enviar um e-mail com anexo  DONUT PROJECT 2014 - VBA - Outlook - Salvando todos os arquivos anexados nos e-mails


DONUT PROJECT 2014 - VBA - Criando uma Matriz de Datas MAT - Moving Annual Total  DONUT PROJECT 2014 - VBA - Excel - Atualizando Tabelas Dinâmicas - Refresh Pivot Table via VBA DONUT PROJECT 2014 - VBA - Excel - Removendo os Caracteres Alfabéticos e Especiais


DONUT PROJECT 2014 - VBA - Access - Criando uma Query com Parâmetros DONUT PROJECT 2014 - VBA - Access - Atualizando o conteúdo de uma Query DONUT PROJECT 2014 - VBA - Access - Saiba o Número de Registro de cada tabela


DONUT PROJECT 2014 - VBA - Access - Extraia Blocos de Dados do Banco de Dados - Sem Problemas de TIMEOUT DONUT PROJECT 2014 - VBA - Access - Lista o Tamanho de Todas as Tabelas DONUT PROJECT 2014 - VBA - Excel - Populando um ListBox no seu Formulário

DONUT PROJECT 2014 - VBA - Excel - Importando arquivos CSV  DONUT PROJECT 2014 - VBA - Excel - Deletando Conexões de Dados  DONUT PROJECT 2014 - VBA - Excel - Obtendo o Nome da Planilha sem a Extensão - Get name of workbook without extension


DONUT PROJECT 2014 - VBA - WORD - Exportação Automatizada - De *.docx Para *.pdf - Otimizando o tamanho


  Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!
brazilsalesforceeffectiveness@gmail.com

✔ VBA Brazil Specialist®

Nenhum comentário:

Postar um comentário

diHITT - Notícias