Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Открыть текстовое содержимое ячейки в браузере не по умолчанию, в режиме инкогнито.
 
Приветствую вас уважаемые форумчане и достопочтеннейший модератор.
Нашелся макрос на просторах интернета, по открытию содержимого ячейки в браузере.
Были безрезультатные попытки переделать его.

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

А вот и сам макрос.
Код
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
Страницы: 1
Наверх