VPF::Как Workbook загнать в "фон" - Форум программистов

kashemirny

Дата 15.5.2010, 15:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 114
Регистрация: 12.11.2007

Репутация: нет
Всего: нет

Привет всем, вопрос по xL...
В объекте "ЭтаКнига" файла 1.xls я открываю другой файл 2.xls таким кодом:

Код


Private Sub Workbook_Open()

    Workbooks.Open Filename:="2.xls", ReadOnly:=True
    ActiveWindow.Visible = False
    Windows("1.xls").Activate

End Sub

При этом в процессе открытия, файл 2.xls на долю секунды появляется (чем жутко раздражает) и исчезает в фон. Помогите сделать так, чтобы файл 2.xls без появления сразу прятался в фон.

Hugo121

Дата 15.5.2010, 23:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 10.5.2010

Репутация: 1
Всего: 2

Код


Private Sub Workbook_Open()
Application.ScreenUpdating = False
    Workbooks.Open Filename:="2.xls", ReadOnly:=True
    ActiveWindow.Visible = False
    Windows("1.xls").Activate
Application.ScreenUpdating = True
End Sub

kashemirny

Дата 17.5.2010, 09:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 114
Регистрация: 12.11.2007

Репутация: нет
Всего: нет

Hugo121, спасибо smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »