Активация открытого окна

Пользователь

Сообщений: 32 Регистрация: 10.04.2016

07.09.2019 17:20:17

Добрый день.
В первом макросе открывается браузер (работает) . Далее выполняется рад других макросов. После нужно активировать окно (на передний план), открытое в первом макросе.
Тут не получается (макрос Active_IE). Это возможно сделать?

Код

Public ie As Object
 
Sub Open_IE ()
 
Dim WebUrl As String
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
WebUrl = "https://ya.ru"
ie.Navigate WebUrl
 
End Sub
 
'Тут разные макросы
 
Sub Active_IE()
'не работает
 
ie.Activate
 
End Sub

Nordheim Пользователь Сообщений: 3154 Регистрация: 18.04.2017	#2 07.09.2019 20:27:39 А где вы пытаетесь активировать я не увидел? В процедуре Active_IE не понятно что вы пытаетесь активировать. Изменено: Nordheim - 07.09.2019 20:29:11 "Все гениальное просто, а все простое гениально!!!"

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

07.09.2019 22:52:33

Возьмите за основу это:
https://excelvba.ru/code/GetRunningIE
там 4 закомментированных строки, - как раз они и отвечают за активацию окна
(вызов 2 winAPI функций, объявление которых нужно добавить в код дополнительно)

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

GAPAGAPA

Пользователь

Сообщений: 32 Регистрация: 10.04.2016

08.09.2019 12:25:21

Цитата
Nordheim написал: В процедуре Active_IE не понятно что вы пытаетесь активировать.

Все так. Именно поэтому и написал в форум. Не понимаю как активировать окно и вытащить на передний план.

Читают тему