Приветствую вас уважаемые форумчане и достопочтеннейший модератор.
Нашелся макрос на просторах интернета, по открытию содержимого ячейки в браузере.
Были безрезультатные попытки переделать его.
Нужно чтобы макрос брал содержимое ячейки и открывал браузер с выдачей по запросу из взятого из ячейки.
Но нужно, чтобы браузер открывал тот, который прописан в макросе, а не браузер по умолчанию.
И еще, чтобы браузер открывался в режиме инкогнито.
Помогите пожалуйста решить этот вопросик.
А вот и сам макрос.
Нашелся макрос на просторах интернета, по открытию содержимого ячейки в браузере.
Были безрезультатные попытки переделать его.
Нужно чтобы макрос брал содержимое ячейки и открывал браузер с выдачей по запросу из взятого из ячейки.
Но нужно, чтобы браузер открывал тот, который прописан в макросе, а не браузер по умолчанию.
И еще, чтобы браузер открывался в режиме инкогнито.
Помогите пожалуйста решить этот вопросик.
А вот и сам макрос.
Код |
---|
Sub SearchValuesInWeb() Dim Link$ ' Макрос открывает в выбранном браузере результаты поиска значений из ячеек ' поиск производится в Google If Err Then Exit Sub ' запуск не из контекстного меню maxCellsCount = 10 ' больше 20 ячеек - отказываемся от запуска поиска Dim coll As New Collection ' берем только непустые уникальные значения из выделенного диапазона ячеек Dim ra As Range: Set ra = Intersect(Selection, ActiveSheet.UsedRange) Arr = ra.Value: If ra.Cells.Count = 1 Then Arr = Array(ra(1)) For Each Item In Arr If Len(Trim(Item)) Then coll.Add CStr(Trim(Item)), CStr(Trim(Item)) If coll.Count > maxCellsCount Then Exit For Next ' если случайно запустить поиск тысячи значений - комп подвиснет надолго... If coll.Count > maxCellsCount Then msg = "Количество значений для поиска провысило ограничение в " & maxCellsCount & " ячеек!" MsgBox msg, vbExclamation, "Слишком много значений - поиск отменяется" Exit Sub End If Path$ = """" & "C:\Users\mila\AppData\Local\Yandex\YandexBrowser\Application\browser.exe -incognito" & """" ' проверяем существование исполняемого файла браузера Path2$ = Path$: If Dir(Split(Path$, Chr(34))(1), vbNormal) = "" Then Path2$ = "" For Each Item In coll ' перебираем все уникальные значения ячеек n = n + 1 ' формируем поисковую ссылку для Yandex Link = """" & "https://yandex.ru/search/?lr=213&text=" & Item & """" CreateObject("wscript.shell").Run Link ' после первой ссылки дожидаемся запуска браузера (1 секунду) If n = 1 Then Application.Wait Now + 1 / 86400 Next End Sub |