Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Открытие книги неактивной
 
#1
10.09.2013 15:07:04
Здравствуйте. Подскажите пожалуйста, как открыть книгу через VBA, чтоб она открывалась в фоне, а не становилась активной. Код ниже открывает книгу и делает ее активной. А надо чтобы оставалась открытой в фоне.
Код
WorkBooks.Open("C:\template.xlsx")
 
 
 
#2
10.09.2013 15:12:19
Код
 Dim WB As Workbook
Set WB = GetObject("C:\template.xlsx")
Изменено: Михаил С. - 10.09.2013 15:13:12
 
 
 
#3
10.09.2013 15:13:27
Или активировать затем окно "основной" книги.
 
 
 
#4
10.09.2013 15:45:41
Понятно. Спасибо. Сделал книгу изначально скрытой, теперь при открытии она не мешает. Но в конце макроса мне надо написать код, чтоб сделать ее видимой.
 
 
 
#5
10.09.2013 15:52:15
а как вы книгу делаете невидимой? Вот и идите от обратного  :D
Учимся сами и помогаем другим...
 
 
 
#6
10.09.2013 16:16:05
Невидимой сделал вручную и сохранил. А теперь с помощью кода надо сделать видимой.
Пробую так:
Код
WorkBooks("template.xlsx").Visible = true

не получается.
Изменено: VISXAN - 10.09.2013 16:21:08
 
 
 
#7
10.09.2013 16:20:38
Код
Dim WB As Workbook
Set WB = GetObject("C:\template.xlsx")
'... здесь код
WB.Windows(1).Visible = True
 
 
 
#8
10.09.2013 16:29:35
Код
Set WB = GetObject("C:\template.xlsx")
этот код открывает книгу скрытой (даже если она такой не является), поэтому от него отказался.
Теперь книгу изначально сделал скрытой и пользуюсь для открытия таким кодом:
Код
Workbooks.Open("C:\template.xlsx")

Далее, после определенной процедуры VBA (заполнения данной книги данными), нужно сделать книгу видимой. Этот код не помогает:
Код
WorkBooks("C:\template.xlsx").Visible = true
Изменено: VISXAN - 10.09.2013 16:31:03
 
 
 
#9
10.09.2013 16:39:06
Вы сами себя слышите?
Цитата
этот код открывает книгу скрытой ..., поэтому от него отказался.
Поэтому открываю книгу и тут же делаю ее невидимой
Цитата
Далее, после определенной процедуры VBA ...нужно сделать книгу видимой.
:D Мазохисты всех стран - объединяйтесь. А на вопрос ответил Hugo.
Я сам - дурнее всякого примера! ...
 
 
 
#10
10.09.2013 16:42:44
Т.к. форум тормозит с screenupdating - диалог получается интересным :)
 
 
 
#11
10.09.2013 16:47:16
KuklP, да не делаю я ее скрытой. Она сама скрытая, куда ее еще скрывать.
В процедуре открываю эту книгу (скрытую), та же процедура забивает ту же книгу (скрытую) данными и теперь необходимо ее отобразить с помощью кода в той же процедуре. Что тут не понятного.
 
 
 
#12
10.09.2013 16:49:43
Код
Dim WB As Workbook
Set WB = GetObject("C:\template.xlsx")

'... здесь код
 Set WB = Nothing
Windows("template.xlsx").Visible = True
Изменено: Михаил С. - 10.09.2013 16:52:46
 
 
 
#13
10.09.2013 16:55:03
Михаил С., спасибо Вам большое. Четко и просто.
 
 
 
#14
10.09.2013 16:57:50
Миша, мож так?

Код
Windows(WB.name).Visible = True
Set WB = Nothing
Я сам - дурнее всякого примера! ...
 
 
 
#15
10.09.2013 16:59:09
Без разницы. Но так наверно проще.
Главное, что бы книгу сделать "видимой", в любом месте кода после открытия нужно Set WB = Nothing.
Лучше в самом конце, что WB использовать можно было.
Изменено: Михаил С. - 10.09.2013 17:02:47
 
 
 
#16
10.09.2013 17:03:18
А что делает этот код?
Код
Set WB = Nothing
 
 
 
#17
10.09.2013 17:05:21
удаляет GetObject.

зы. ежели что - я сам ангелького не понимаю. Пользуюсь переводчиком
Изменено: Михаил С. - 10.09.2013 17:08:35
 
 
 
#18
10.09.2013 17:29:57
Ах да, ступил. Удаляет присвоенное значение. Ну или присваивает ничего))
Изменено: VISXAN - 10.09.2013 17:30:37
 
 
 
#19
09.04.2019 20:00:14
подскажите пожалуйста как сделать чтобы не моргало на
Код
Set WB = GetObject("C:\template.xlsx")
'.......

Windows(WB.name).Visible = True ' <-- вот тут моргает
WB.Close True
Application.ScreenUpdating = False - не помогает
Изменено: Максим - 09.04.2019 22:01:33
 
 
 
#20
09.04.2019 20:42:23
пока решил так:
Код
Set EXapp = New Application
EXapp.Visible = False
Set WB = EXapp.Workbooks.Open("C:\template.xlsx")
'.........
WB.Close True
Set EXapp = Nothing

но что-то кажется что слишком тяжёлая артиллерия
Изменено: Максим - 09.04.2019 20:42:55
 
 
 
Страницы: 1
Читают тему
Наверх