|
Windows(Blib).Visible = False
|
|||
---|---|---|---|
#18+
Привет всем ! Помогите пожалуйста ...кто может :) Отрываю из excel еще один файл и пытаюсь сделать его невидимым в панли задач... Вылазит error Subscript out of range в строке - Windows(Blib).Visible = False коментарю ее все работает нормально,т.е. файл открывается ... а невидимым не хочет быть ... path1 = Workbooks("zt.xls").Sheets("Общие_данные").Cells(3, 3).Value If Not path1 & Blib = "" Then Application.DisplayAlerts = False ActiveWorkbook.UpdateRemoteReferences = False Workbooks.Open(path1 & Blib).RunAutoMacros xlAutoOpen Windows(Blib).Visible = False Else MsgBox theTitle & Chr(10) & Chr(13) & "Выполнение программы прервано", _ theCode, theTitle Workbooks(book).Close SaveChanges:=False End If Jojo® ... |
|||
:
Нравится:
Не нравится:
|
|||
24.05.2004, 11:15 |
|
Windows(Blib).Visible = False
|
|||
---|---|---|---|
#18+
Уже разобрался Jojo® ... |
|||
:
Нравится:
Не нравится:
|
|||
24.05.2004, 12:27 |
|
Windows(Blib).Visible = False
|
|||
---|---|---|---|
#18+
И что было? ... |
|||
:
Нравится:
Не нравится:
|
|||
24.05.2004, 13:51 |
|
Windows(Blib).Visible = False
|
|||
---|---|---|---|
#18+
Так работает If Not path1 & Blib = "" Then Application.DisplayAlerts = False ActiveWorkbook.UpdateRemoteReferences = False Workbooks.Open(path1 & Blib).RunAutoMacros xlAutoOpen Excel.Application.Windows(1).Visible = False Jojo® ... |
|||
:
Нравится:
Не нравится:
|
|||
24.05.2004, 14:37 |
|
|
start [/forum/topic.php?fid=61&msg=32530658&tid=2186777]: |
0ms |
get settings: |
8ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
143ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
46ms |
get tp. blocked users: |
1ms |
others: | 236ms |
total: | 469ms |
0 / 0 |