Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Переход из Excel по ссылке в Опере
 
#1
24.05.2014 20:46:16
Как запустить Оперу понятно:
Код
 Range("N7").Select
 Shell "c:\Program Files (x86)\Opera\Opera.exe"
А как теперь прописать ссылку на определенную страницу?
Опера запускается на Экспресс - странице.
Изменено: mikle63 - 24.05.2014 21:16:43
 
 
 
#2
24.05.2014 22:15:59
Поиск помогает
 
 
 
#3
24.05.2014 22:21:50
А обязательно через оперу? Для IE можно:

Код
Sub test()
    Dim address As String
    address = "http://www.planetaexcel.ru"
    Dim ie As Object
    Set ie = CreateObject("internetexplorer.application")
    ie.Visible = True
    ie.navigate address
End Sub
Потом нужно освободить память, написав set ie = nothing
Изменено: Все_просто - 24.05.2014 22:22:55
С уважением,
Федор/Все_просто
 
 
 
#4
24.05.2014 22:22:38
Кроме страницы, в командной строке много чего прописать можно: http://www.opera.com/docs/switches/
 
 
 
#5
24.05.2014 22:27:26
В этом примере ссылка на определенный сайт и страницу, а мне надо так чтобы ссылки в ячейке менялись.
 
 
 
#6
24.05.2014 22:29:40
Цитата
mikle63 пишет:
мне надо так чтобы ссылки в ячейке менялись
Подставляйте значение из ячейки.
 
 
 
#7
24.05.2014 22:37:21
Вот такой код тоже не работает:
Код
 Range("N7".Select
 Shell("c:\Program Files (x86)\Opera\Opera.exe" & "http://www.planetaexcel.ru", vbNormalNoFocus)
И надо именно Опера.
 
 
 
#8
24.05.2014 22:42:38
пробел надо добавлять перед ссылкой
и в кавычки заключать путь к запускаемому файлу

Код
Shell """C:\Program Files\Opera\20.0.1387.91\opera.exe""" & " ""http://www.planetaexcel.ru""", vbNormalNoFocus
и путь к программе Opera желательно считывать из реестра
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#9
24.05.2014 22:52:13
Отлично все работает. Спасибо.
Только еще вопрос:
Вместо определенной ссылки  "http://www.planetaexcel.ru", надо задать адрес который будет находиться в ячейке. Адреса будут меняться.
 
 
 
#10
24.05.2014 23:02:42
для диапазона ячеек A1:A4
Код
    Dim cell As Range 
    For Each cell In Range("A1:A4").Cells
      Shell """C:\Program Files\Opera\20.0.1387.91\opera.exe""" & " " & cell.value
    Next cell
не лучший способ, - но работает
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#11
24.05.2014 23:08:35
Спасибо. Все сработало.
 
 
 
#12
24.05.2014 23:12:49
Про ячейки я же Вам ещё в #6 ответил.
 
 
 
#13
24.05.2014 23:18:41
Если можно, еще вопрос. Это диапазон Опера открывает все страницы в этом диапазоне, а надо только активной ячейки.
 
 
 
#14
24.05.2014 23:24:23
Уберите цикл и замените:
Код
& activecell.value
 
 
 
#15
24.05.2014 23:29:27
Спасибо это оно. Тема закрыта.
 
 
 
Страницы: 1
Читают тему
Наверх