Excel для поиска в Google - PullRequest
Новая
       26

Excel для поиска в Google

0 голосов
/ 03 апреля 2020

В настоящее время я использую приведенную ниже формулу в VBA для поиска в Интернете, используя критерии в таблице Excel. У меня вопрос, как у меня есть ссылка для вставки в листе. Я не хочу go на сайт, я хочу гиперссылку. Какой код мне нужен, чтобы поисковая ссылка была в списке на листе? 

Sub GoogleSearch()

Dim objIEBrowser

Set objIEBrowser = CreateObject("InternetExplorer.Application")

objIEBrowser.Visible = True

Dim SearchTerm As String

For Each cell In Range("f:f")

    SearchTerm = cell
    SearchTerm = Replace(SearchTerm, " ", "+")

    objIEBrowser.navigate "https://www.google.com/?gws_rd=ssl#q=" & SearchTerm

Next

End
...