|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
10.01.2011, 13:55
|
#1 |
|
Новичок
Джуниор
Регистрация: 10.01.2011
Сообщений: 1
|
Как развернуть окно Lotus Notes через Excel VBA?
Доброго времени суток!
Очень нужно решить задачку: написать код в Excel VBA, который бы восстанавливал свёрнутое пользователем окно Lotus Notes (либо просто все окна). Это очень нужно, т.к. иначе не работает код, использующий UIWorkspace. Буду очень благодарен за любую помощь! |
|
|
|
10.01.2011, 19:14
|
#2 |
|
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
алгоритм достаточно прост (используем WinAPI)
1) при помощи функции FindWindow определяем дескриптор hwnd искомого окна hwnd = FindWindow(vbNullString, strAppTitle) 2) При помощи функции ShowWindow (или другой какой-нибудь) посылаем найденному окну команду развернуться: ShowWindow hwnd, SW_SHOWNORMAL& 'фокус ShowWindow hwnd, SW_MAXIMIZE& 'открываем Попробуйте поискать готовое решение здесь
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
 Макросы любой сложности на заказ. Мониторинг цен конкурентов
Последний раз редактировалось EducatedFool; 10.01.2011 в 19:17. |
|
|
|
|
10.01.2011, 19:27
|
#3 |
|
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Игорь, заметил досадную феньку. FindWindow не находит окно, если программа свернута в трей. http://www.planetaexcel.ru/forum.php?thread_id=13329 . Порылся в Апи функциях... Видимо плохо рылся, времени много нет.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| VBA to Lotus Notes. Multiple mailboxes | Jarik | Microsoft Office Excel | 4 | 17.09.2010 13:21 |
