| Вопрос: Перключение между окнами программ | Добавлено: 29.02.08 11:22 |
Автор вопроса:  Дмитрий | ICQ: 316947594 |
|
Здравствуйте! Собственно сабж:
в модуле excel'я процедура, вызывающая приложение word: Sub Ворд Application.ActivateMicrosoftApp xlMicrosoftWord end sub по выполнении этой процедуры запускается Word с новым документом. его окно является выделенным (активным). как снова увидеть окно excel'я, не производя никаких действий над окном Word'а? способы workbooks(1).activate и windows(1).activate не помогают, т.к. окно Excel'я, несмотря на работающий Word всё равно остаётся активным, хотя оно и не выделено. даже если производить какие-то действия над книгой, например, записывать значение в какую-нибудь ячейку, то оно записывается, но выделенным всё-равно остаётся Word. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  LonerWanderer Вопросов: 18 Ответов: 66 |
Профиль | | #1 | Добавлено: 07.03.08 11:17 |
|
У меня вот так работает:
Call Ворд
Dim PauseTime, Start PauseTime = 2 ' ждем время, чтобы ворд загрузился полностью Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'AppActivate "Microsoft Excel" ' Но если открыта хоть одна книга ' эта строчка не срабатывает, т.к. заголовок окна экселя другой. ' Поэтому делаем немного по-другому: AppActivate Application.Caption ' активируем по заголовку окна. |
||
Страница: 1 |