Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > Как Workbook загнать в "фон"

Автор: kashemirny 15.5.2010, 15:58

Привет всем, вопрос по 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

Код


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

Hugo121, спасибо smile