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 

  

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 

  

 

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:

 

Veja outros códigos:

  

 

 

 

 Série de Livros nut Project 

  

 Série VBA Outlook: 

  

  

  

 Série DONUT PROJECT 2021 

  

  

  

 Série DONUT PROJECT 2018 

  

   

  

  

 

 Série DONUT PROJECT 2015 

  

    

   

  

   

  

   

  

 

 Série DONUT PROJECT 2014 

   

   

  

  

    

  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