Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как закрыть активную книгу excel? / 4 сообщений из 4, страница 1 из 1
21.02.2011, 10:30
    #37127574
evggen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как закрыть активную книгу excel?
Добрый день!

Имеется следующая ситуация: использую событие на обработку закрытия книги excel Workbook_BeforeClose(Cancel As Boolean).
Необходимо при закрытии проверить все ли ячейки заполнены. Если заполнены не все, то пользователю выдается сообщение о необходимости их заполнения. Если он согласен и хочет их заполнить, то книга не закрывается и фокус перемещается на ячейку, которую нужно заполнить, если нет, то книга должна закрыться без сохранения .

Проблема: когда открыто несколько книг, то эксель просто вываливается с ошибкой при попытке закрыть активную книгу, если книга одна, то все работает нормально.

Пробовал использовать методы WorkBooks(wbName).Close SaveChanges:=False, Windows(winName).Close SaveChanges:=False, ActiveWorkBook.Close SaveChanges:=False. Все равно падает приложение эксель.

Подскажите, пожалуйста, что можно сделать.
...
Рейтинг: 0 / 0
21.02.2011, 10:41
    #37127591
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как закрыть активную книгу excel?
evggen,

thisworkbook.
...
Рейтинг: 0 / 0
21.02.2011, 11:24
    #37127703
evggen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как закрыть активную книгу excel?
big-duke,

все равно приложение валится, если несколько книг открыто :(
...
Рейтинг: 0 / 0
22.02.2011, 10:47
    #37129923
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как закрыть активную книгу excel?
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как закрыть активную книгу excel? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]