Как искать в google с помощью vba?

Помимо использования Excel, мы все делаем много важных вещей. Я прав?

Одна из таких вещей — использование Google для поиска чего-либо. В моем списке полезных макрокодов есть код, который вы можете использовать для выполнения поискового запроса в Google с помощью Chrome.

И сегодня я поделюсь с вами этим кодом. Вы можете добавить этот код в свою личную книгу макросов и использовать его в любое время, когда вам нужно что-то найти в Google.

Код VBA для открытия Google Chrome для поиска

Вот код ниже, который вы можете использовать для поиска в Google с помощью Chrome.

Версия для 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

Версия для 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

Как использовать этот код VBA для поиска в Google

Вот простой шаг, который вам нужно выполнить, чтобы активировать этот код.

  • Откройте редактор VB, используя сочетание клавиш Alt + F11, или перейдите на вкладку «Разработчик».
  • Вставьте новый модуль и вставьте в него приведенный выше код.

Теперь закройте редактор VB и запустите этот макрос из опции макросов на вкладке разработчика.

Как это работает

Когда вы запускаете этот код, он отображает поле ввода для ввода запроса. Вам нужно ввести свой запрос в это поле ввода и нажать «ОК».

После того, как вы нажмете «ОК», этот код создаст синтаксис URL-адреса поиска, используя введенный вами текст.

И в конце перенаправляет Chrome на этот URL-адрес, чтобы предоставить вам результаты по введенному вами запросу.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *