Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Сделать активным окно браузера Firefox, VBA
 
#1
21.07.2017 15:24:29
Здравствуйте!
Нужно чтобы после выполнении макроса фокус переключался с окна Excel на окно браузера Firefox (браузер открыт).
Подскажите,пожалуйста, как это сделать на VBA ?
 
 
 
#2
21.07.2017 15:51:48
Через API. Ищите нужное окно и делаете это активным. Примеры на форуме были(правда, не под лису)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
21.07.2017 16:02:52
У меня только  начальный уровень знаний по VBA, типа range..cells..arr().  API для меня тёмный лес. Даже если и найду пример с другим браузером,то для Firefox не смогу переделать :(
 
 
 
#4
21.07.2017 16:05:31
Тогда откажитесь от затеи. Вы, насколько я помню, на форуме уже весьма давно и за это время можно было из азов выйти на приличный уровень. А коли нет желания учиться и делать самостоятельно - то Вам дорога в ветку работы.
Ну или второй вариант: ждать, пока кому-то из спортивного интереса или в целях тренировки захочется сделать все за Вас с нуля.
Я пример точно не подскажу, т.к. у меня FireFox не установлен. Устанавливать ради этого желания ноль.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#5
21.07.2017 20:50:01
А если окна всего 2,  Excel  и Firefox, и оба не свёрнуты. Всё равно нужно писать макрос через API ?  Может есть какое-нибудь простое решение ?
 
 
 
#6
21.07.2017 22:23:40
Цитата
ball_bes написал:
А если окна всего 2,  Excel  и Firefox, и оба не свёрнуты
Ну, тогда можно проще ;)
Код
Public Sub mySwitch()
    Application.SendKeys "%{TAB}"
End Sub
 
 
 
#7
21.07.2017 22:59:08
Вариант, если Лиса не запущена:
Код
Sub Test()
    x = Shell("""C:\Program Files\Mozilla Firefox\firefox.exe""", vbNormalNoFocus)
End Sub
 
 
 
#8
21.07.2017 23:05:50
Ещё вариант "без Windows API" - задействовать Windows Scripting Host (поскольку экселисты как-то к WSH уже привыкли потихоньку, по крайней мере к Dictionary и RegExp  :) ).
 
 
 
#9
22.07.2017 00:01:06
Код
Application.SendKeys "%{TAB}"
Примерно то что нужно,только не работает. Вроде как окно Excel перестаёт быть активным,но на Firefox не переключается, вручную нажимаешь "ALT+TAB" - переключается.  
 
 
 
#10
22.07.2017 00:12:53
Интересно, такие "фокусы" в алгоритмизации дополнительно оплачиваются?  :D  
Изменено: Мотя - 22.07.2017 08:03:59
 
 
 
#11
22.07.2017 00:20:21
Ага, The_Prist сказал что денег у него навалом, всё оплатит :)
 
 
 
#12
22.07.2017 00:21:45
Мозилла запущена, окно приложения одно:
Код
    Set WshShell = CreateObject("WScript.Shell")
    FFActivated = WshShell.AppActivate(" Mozilla Firefox")
    If Not FFActivated Then MsgBox "Firefox window not found"
 
 
 
#13
22.07.2017 00:25:04
AndreTM , СПАСИБО !
 
 
 
#14
22.07.2017 10:45:40
Цитата
ball_bes написал:
 The_Prist  сказал что денег у него навалом, всё оплатит
The_Prist что-то другое говорил, советую перечитать и вникнуть, а не отсебятину пороть.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
Страницы: 1
Читают тему
Наверх