Как Excel закрыть?

Программирование на Visual Basic for Applications
asharky
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 162
Зарегистрирован: 22.06.2004 (Вт) 0:39
Откуда: Батоны-ларьки-поребрики...

Как Excel закрыть?

Сообщение asharky » 22.06.2004 (Вт) 0:54

Какой командой bp Excel можно закрыть сам Excel? Ну и приложение которое в нём :)

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 22.06.2004 (Вт) 4:51

quit
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

asharky
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 162
Зарегистрирован: 22.06.2004 (Вт) 0:39
Откуда: Батоны-ларьки-поребрики...

Сообщение asharky » 22.06.2004 (Вт) 7:23

GSerg писал(а):quit


Application.Quit - приложение закрывается, а сам Excel остаётся открытым :(

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 22.06.2004 (Вт) 9:31

Не понял...
Команда из кода VBA? Сработает.
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

asharky
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 162
Зарегистрирован: 22.06.2004 (Вт) 0:39
Откуда: Батоны-ларьки-поребрики...

Сообщение asharky » 22.06.2004 (Вт) 11:21

GSerg писал(а):Не понял...
Команда из кода VBA? Сработает.


Я пробовал - не работает :(

И Excel.Application.Quit, и Application.Quit - открытый файл закрывается, а сам Excel остаётся открытым.

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 22.06.2004 (Вт) 11:28

Вот только что проверил, всё работает.
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

asharky
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 162
Зарегистрирован: 22.06.2004 (Вт) 0:39
Откуда: Батоны-ларьки-поребрики...

Сообщение asharky » 22.06.2004 (Вт) 12:04

GSerg писал(а):Вот только что проверил, всё работает.


Может быть перед этой командой надо позакрывать все приложения, или ещё что-то сделать? У меня не закрывается...

asharky
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 162
Зарегистрирован: 22.06.2004 (Вт) 0:39
Откуда: Батоны-ларьки-поребрики...

Сообщение asharky » 22.06.2004 (Вт) 21:47

asharky писал(а):
GSerg писал(а):Вот только что проверил, всё работает.


Может быть перед этой командой надо позакрывать все приложения, или ещё что-то сделать? У меня не закрывается...


Нашёл ошибку: перед quit стояла команда Application.ActiveWorkbook.Close Соответственно, quit просто не выполнялся.

Всем спасибо...

Raul
Начинающий
Начинающий
 
Сообщения: 7
Зарегистрирован: 25.06.2004 (Пт) 10:17

Сообщение Raul » 25.06.2004 (Пт) 10:29

GSerg писал(а):quit


Да, только расширил бы, например так:


Count_Open_WorkBooks = Application.Workbooks.Count
If Count_Open_WorkBooks = 1 Then
Application.Quit
Else
ActiveWorkbook.Close
End If

Тогда, если открыты другие книги, - их не закроет

asharky
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 162
Зарегистрирован: 22.06.2004 (Вт) 0:39
Откуда: Батоны-ларьки-поребрики...

Сообщение asharky » 25.06.2004 (Пт) 10:36

Raul писал(а):Тогда, если открыты другие книги, - их не закроет


Спасибо большое! Это в моём случае не очень важно, но я только начинаю изучать язык и подобные нюансы очень важны для понимания и осваивания сути.


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 103

    TopList