Приветствую вас уважаемые форумчане и достопочтеннейший модератор.
Нашелся макрос на просторах интернета, по открытию содержимого ячейки в браузере.
Были безрезультатные попытки переделать его.
Нужно чтобы макрос брал содержимое ячейки и открывал браузер с выдачей по запросу из взятого из ячейки.
Но нужно, чтобы браузер открывал тот, который прописан в макросе, а не браузер по умолчанию.
И еще, чтобы браузер открывался в режиме инкогнито.
Помогите пожалуйста решить этот вопросик.
А вот и сам макрос.
Нашелся макрос на просторах интернета, по открытию содержимого ячейки в браузере.
Были безрезультатные попытки переделать его.
Нужно чтобы макрос брал содержимое ячейки и открывал браузер с выдачей по запросу из взятого из ячейки.
Но нужно, чтобы браузер открывал тот, который прописан в макросе, а не браузер по умолчанию.
И еще, чтобы браузер открывался в режиме инкогнито.
Помогите пожалуйста решить этот вопросик.
А вот и сам макрос.
| Код |
|---|
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
|
