Hoe zoeken op google met vba?

Er zijn veel belangrijke dingen die we allemaal doen naast het gebruik van Excel. Heb ik gelijk?

Een van die dingen is het gebruik van Google om naar iets te zoeken. In mijn lijst met nuttige macrocodes heb ik een code waarmee u met Chrome een zoekopdracht op Google kunt uitvoeren.

En vandaag deel ik deze code met jullie. U kunt deze code toevoegen aan uw persoonlijke macrowerkmap en deze gebruiken wanneer u maar iets wilt Googlen.

VBA-code om Google Chrome te openen voor zoeken

Hier is de onderstaande code die u kunt gebruiken om op Google te zoeken met Chrome.

Windows 32-versie

 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

Windows 64-versie

 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

Hoe u deze VBA-code kunt gebruiken om op Google te zoeken

Hier is de eenvoudige stap die u moet volgen om deze code in te wisselen.

  • Open de VB-editor met de sneltoets Alt + F11 of ga naar het tabblad Ontwikkelaars.
  • Plaats een nieuwe module en plak de bovenstaande code erin.

Sluit nu de VB-editor en voer deze macro uit via de macro’s-optie op het tabblad Ontwikkelaar.

Hoe het werkt

Wanneer u deze code uitvoert, wordt er een invoervak weergegeven waarin u uw vraag kunt invoeren. En u moet uw vraag in dit invoervak invoeren en op OK klikken.

Nadat u op OK hebt geklikt, maakt deze code de zoek-URL-syntaxis aan met behulp van de tekst die u heeft ingevoerd.

En uiteindelijk wordt Chrome omgeleid naar deze URL om u resultaten te geven voor de door u ingevoerde zoekopdracht.

Voeg een reactie toe

Je e-mailadres wordt niet gepubliceerd. Vereiste velden zijn gemarkeerd met *