Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Зависание Excel при закрытии файла кодом - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Зависание Excel при закрытии файла кодом
Алекс75 Дата: Понедельник, 27.04.2015, 11:57 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Файл сложный.
Цель: закрытие файла при разных условиях

[vba]
Код
         
If Sheets("spr2").Range("N10").Value = "save" Then ActiveWindow.Close savechanges:=False 'если есть метка save, то файл уже сохранён и тут просто нужно закрыть файл
'Если файл нужно закрыть без сохранения, то:  
Application.EnableEvents = False
Sheets("spr2").Range("N9").Value = "close" 'ставим метку, что просто закрыть
ActiveWindow.Close savechanges:=False
[/vba]

Если файл открыт один, то всё проходит безболезненно. Но если открыто более одного файла, то этот то закроется, а дальше крутиться бублик и фатал еррор экселя. Остальные файлы закрываются в аварийном режиме.
 
Ответить
СообщениеФайл сложный.
Цель: закрытие файла при разных условиях

[vba]
Код
         
If Sheets("spr2").Range("N10").Value = "save" Then ActiveWindow.Close savechanges:=False 'если есть метка save, то файл уже сохранён и тут просто нужно закрыть файл
'Если файл нужно закрыть без сохранения, то:  
Application.EnableEvents = False
Sheets("spr2").Range("N9").Value = "close" 'ставим метку, что просто закрыть
ActiveWindow.Close savechanges:=False
[/vba]

Если файл открыт один, то всё проходит безболезненно. Но если открыто более одного файла, то этот то закроется, а дальше крутиться бублик и фатал еррор экселя. Остальные файлы закрываются в аварийном режиме.

Автор - Алекс75
Дата добавления - 27.04.2015 в 11:57
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!