Excel VBA: FollowHyperlink вдруг перестает работать, что-то "сносится" в chrome

[vadims71]

Необходимо запускать chrome со строками поиска, например ищем слово  myquestion

ThisWorkbook.FollowHyperlink "https://www.google.ru/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#newwindow=1&q=myquestion"

все работает - запускается chrome и выдается результат поиска моего слова
а потом вдруг chrome запускается с нужным запросом, но для поиска самого нужно нажать  Enter или соответствующую кнопку мышкой
а через какое-то время - строго сообщение "Невозможно загрузить данные"

лечится переустановкой Chrome, но на время - через 2-3 дня все повторяется.

PS: Собственно перестают работать и вполне корректные гиперссылки в книге, те по клику мышки на ячейку с явной и корректной гиперссылкой выдает тоже сообщение

[Администратор]

Попробуйте использовать другой инструмент вместо "FollowHyperlink", а именно "Shell".

Sub Макрос1()

    Dim strChromeFullName As String
   
    '1. Здесь укажите путь, где находится программа "Гугл Хром", и имя exe-файла программы "Гугл Хром".
        ' Обратите внимание, что добавляются кавычки. Это нужно для Shell.
    strChromeFullName = """C:\Program Files\Google\Chrome\Application\chrome.exe"""
    '2. Здесь после "-url" укажите запрос.
    Shell strChromeFullName & " -url https://www.google.ru/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#newwindow=1&q=myquestion"

End Sub