Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Свернуть, Развернуть, Закрыть определенное окно ie - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Свернуть, Развернуть, Закрыть определенное окно ie (Иное/Other)
Свернуть, Развернуть, Закрыть определенное окно ie
WeRiX Дата: Вторник, 28.10.2014, 20:22 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 4 ±
Замечаний: 0% ±

Excel 2013
Подскажите плз как выполнить действия, указанные в теме (Свернуть, Развернуть, Закрыть), с определенной страницей (известен адрес сайта), открытой в отдельном окне IE.
Заранее спасибо.


Сообщение отредактировал WeRiX - Вторник, 28.10.2014, 20:23
 
Ответить
СообщениеПодскажите плз как выполнить действия, указанные в теме (Свернуть, Развернуть, Закрыть), с определенной страницей (известен адрес сайта), открытой в отдельном окне IE.
Заранее спасибо.
Автор - WeRiX
Дата добавления - 28.10.2014 в 20:22
WeRiX Дата: Среда, 29.10.2014, 17:29 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 4 ±
Замечаний: 0% ±

Excel 2013
С закрытием разобрался -->

[vba]
Код
Sub Z()
Dim Shell As Object
Dim ie As Variant
Set Shell = CreateObject("shell.application")

For Each ie In Shell.Windows
     If InStr(1, ie.LocationURL, "yandex") <> 0 Then
ie.Quit
         Exit For
     End If
Next

End Sub
[/vba]

Осталось узнать как можно свернуть и развернуть
 
Ответить
СообщениеС закрытием разобрался -->

[vba]
Код
Sub Z()
Dim Shell As Object
Dim ie As Variant
Set Shell = CreateObject("shell.application")

For Each ie In Shell.Windows
     If InStr(1, ie.LocationURL, "yandex") <> 0 Then
ie.Quit
         Exit For
     End If
Next

End Sub
[/vba]

Осталось узнать как можно свернуть и развернуть
Автор - WeRiX
Дата добавления - 29.10.2014 в 17:29
SkyPro Дата: Среда, 29.10.2014, 18:04 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
Гуглите по запросу "vba shell32.dll" (если не ошибаюсь, то эта библиотека позволяет управлять окнами).

skypro1111@gmail.com
 
Ответить
СообщениеГуглите по запросу "vba shell32.dll" (если не ошибаюсь, то эта библиотека позволяет управлять окнами).
Автор - SkyPro
Дата добавления - 29.10.2014 в 18:04
WeRiX Дата: Вторник, 04.11.2014, 18:01 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 4 ±
Замечаний: 0% ±

Excel 2013
Все же отыскал.
Если кому нужно-->
[vba]
Код
Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Sub Z()

Dim Shell As Object
Dim ie As Variant
Set Shell = CreateObject("shell.application")

For Each ie In Shell.Windows
     If InStr(1, ie.LocationURL, "yandex") <> 0 Then
ShowWindow ie.hwnd, 6
         Exit For
     End If
Next

End Sub
[/vba]

Флаги функции,определяющие вид окна:
 
Ответить
СообщениеВсе же отыскал.
Если кому нужно-->
[vba]
Код
Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Sub Z()

Dim Shell As Object
Dim ie As Variant
Set Shell = CreateObject("shell.application")

For Each ie In Shell.Windows
     If InStr(1, ie.LocationURL, "yandex") <> 0 Then
ShowWindow ie.hwnd, 6
         Exit For
     End If
Next

End Sub
[/vba]

Флаги функции,определяющие вид окна:
Автор - WeRiX
Дата добавления - 04.11.2014 в 18:01
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Свернуть, Развернуть, Закрыть определенное окно ie (Иное/Other)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!