|
|
|
Поднять окно Excel поверх других окон
|
|||
|---|---|---|---|
|
#18+
Создаю объект excel: Set objExcel = CreateObject("Excel.Application") With objExcel .Workbooks.Add ....... bla-bla-bla .................... .Visible = True End With Все красиво получается, но окно появляется под другими окнами и его не видно, пока не свернешь другие окна, либо пока не нажмешь на мигающую иконку вновь созданного окна в панеле задач. Как его программно наверх поднять? .Visible = True .WindowState = -4137 .Windows(1).Activate не помогает ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.08.2012, 16:39:11 |
|
||
|
|
start [/forum/topic.php?fid=22&fpage=160&tid=1449490]: |
0ms |
get settings: |
6ms |
get forum list: |
12ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
59ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
38ms |
get tp. blocked users: |
1ms |
| others: | 261ms |
| total: | 392ms |
| 0 / 0 |
