✔ Programação GLOBAL®: janeiro 2022

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

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

PUDIM PROJECT

Série de artigos: PUDIM PROJECT Pyhton

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