Гость
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Windows(Blib).Visible = False / 4 сообщений из 4, страница 1 из 1
24.05.2004, 11:15
    #32530241
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Windows(Blib).Visible = False
Привет всем !

Помогите пожалуйста ...кто может :)
Отрываю из 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®
...
Рейтинг: 0 / 0
24.05.2004, 12:27
    #32530442
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Windows(Blib).Visible = False
Уже разобрался

Jojo®
...
Рейтинг: 0 / 0
24.05.2004, 13:51
    #32530658
funddd
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Windows(Blib).Visible = False
И что было?
...
Рейтинг: 0 / 0
24.05.2004, 14:37
    #32530768
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Windows(Blib).Visible = False
Так работает
If Not path1 & Blib = "" Then
Application.DisplayAlerts = False
ActiveWorkbook.UpdateRemoteReferences = False
Workbooks.Open(path1 & Blib).RunAutoMacros xlAutoOpen
Excel.Application.Windows(1).Visible = False

Jojo®
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Windows(Blib).Visible = False / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]