Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Application.Quit
 
#1
27.08.2010 11:27:39
Доброго времени суток Всем! :)  
     
Подскажите пожалуйста, правильно ли я добавил метод "Quit"?!  
 
-------------  
'какой-то код...  
With Application  
.DisplayAlerts = True  
.Visible = True  
.EnableCancelKey = xlInterrupt  
.Quit  
End With  
ThisWorkbook.Close False  
-------------  
 
Хотел добиться закрытия (полностью закрыть) Excel и кажется добился, но мало ли что. :)
<FONT COLOR="CadetBlue">
 
 
 
#2
27.08.2010 11:37:21
после  
 
.quit  
 
работа приложения завершится, остальные строки избыточны  :)
Живи и дай жить..
 
 
 
#3
27.08.2010 11:39:19
Т.е. End With можно не писать? :)
 
 
 
#4
27.08.2010 12:01:16
Тоесть правильно?! :)  
 
Мне нужно закрыть книгу Excel еще, если до ".quit" - книга не закрывается :)
<FONT COLOR="CadetBlue">
 
 
 
#5
27.08.2010 12:04:09
Кажется понял теперь :)  
 
Если нужно завершить выполнение приложения, тогда пишем так:  
-------------  
'какой-то код...  
With Application  
'.DisplayAlerts = True  
'.Visible = True  
'.EnableCancelKey = xlInterrupt  
.Quit  
End With  
ThisWorkbook.Close False  
-------------  
 
слэн, правильно я Вас понял?!
<FONT COLOR="CadetBlue">
 
 
 
#6
27.08.2010 12:08:46
ThisWorkbook.Close False    
лишнее, до него дело не дойдёт.
 
 
 
#7
27.08.2010 12:14:30
Игорь, самое интересное что и выше ничего не нужно получается. В справке читал, но не все понятно, так как плохо понимаю на английском, только догадываюсь. :(  
 
Если забрать "ThisWorkbook.Close False" - появляется окно с предупреждением (сохранить). Получается, что доходит.
<FONT COLOR="CadetBlue">
 
 
 
#8
27.08.2010 12:22:14
Не, не доходит. Просто видит несохранённые изменения и вопит. Сохраните книгу перед Quit или Application.DisplayAlerts = False выше поставьте.
 
 
 
#9
27.08.2010 13:06:06
Но, вообще-то, с точки зрения "user-experience", насильственное закрытие офисного приложения при закрытии файла, да еще не спросив пользователя, ооооочень плохая идея. Сами посудите, почему вы должны решать за пользователя, что, если ваш файл закрыт, то ему Excel уже не нужен? И потом, вам еще надо прописать код на случай, если у пользователя открыты другие файлы.
KL
 
 
 
#10
27.08.2010 13:27:20
Ну да, мне пришлось всю работу сперва позакрывать, прежде чем эту мелочь тестить... :)
 
 
 
#11
27.08.2010 14:25:16
Спасибо за советы и помощь! ;)  
 
Просто никогда еще не применял этот метод, а тут решил красиво закрыть свое приложение, которое может работать, если другие книги Excel не открыты - иначе закроется.  
 
Я проверку сделал, если книги все же открыты - без этого метода, если нет - с ним. :)  
 
P.S. Все-таки пока сам не попробуешь (прощупаешь) до конца не поймешь. ;)
<FONT COLOR="CadetBlue">
 
 
 
#12
27.08.2010 17:16:13
Правильней будет сообщить Эксу:  
ThisWorkbook.Saved = True  
а дальше уже:  
With Application....  
Если нет других открытых книг, Экс молча покинет зал.  
Но все это с учетом замечания KL.
Я сам - дурнее всякого примера! ...
 
 
 
Страницы: 1
Читают тему
Наверх