При закрытии книги, удаляются листы - Microsoft Office Excel

Romuald · 20.01.2009, 12:45

Добрый день!!
Подскажите, как сделать ?
При закрытии книги,макрос проверяет есть ли листы с определенным названием, если таких листов нет, то книга закрывается, если листы с такими наименованиями есть , то их удаляем и книга закрывается

slan · 20.01.2009, 12:54

в процелуре before_close

on error resume next
sheets(тра-ля-ля).delete

SAS888 · 20.01.2009, 13:03

Вставьте в модуль "Эта книга" следующий код:

Код:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Application.DisplayAlerts = False: On Error Resume Next
    Sheets(Array("Sheet1", "Sheet2", "Sheet7")).Delete
    
End Sub

Естественно, что элементами массива должны быть имена проверяемых листов.

Romuald · 20.01.2009, 21:34

SAS888!!
Еще раз спасибо!!

20.01.2009, 12:45	#1
Romuald Форумчанин Регистрация: 12.11.2007 Сообщений: 209	При закрытии книги, удаляются листы Добрый день!! Подскажите, как сделать ? При закрытии книги,макрос проверяет есть ли листы с определенным названием, если таких листов нет, то книга закрывается, если листы с такими наименованиями есть , то их удаляем и книга закрывается

20.01.2009, 13:03	#3
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Вставьте в модуль "Эта книга" следующий код: Код: `Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False: On Error Resume Next Sheets(Array("Sheet1", "Sheet2", "Sheet7")).Delete End Sub` Естественно, что элементами массива должны быть имена проверяемых листов. Чем шире угол зрения, тем он тупее.

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
вывод сообщения при закрытии программы	tiger	Помощь студентам	4	27.08.2008 23:31
База тормозит при закрытии	muu	БД в Delphi	1	14.06.2008 20:47
запись в файл при закрытии в приложения	SERG1980	Общие вопросы Delphi	5	14.11.2007 08:08
ошибка при закрытии adoquery	Банзай	БД в Delphi	7	03.09.2007 19:31

20.01.2009, 12:54	#2
slan Форумчанин Регистрация: 30.01.2008 Сообщений: 314	в процелуре before_close on error resume next sheets(тра-ля-ля).delete

20.01.2009, 21:34	#4
Romuald Форумчанин Регистрация: 12.11.2007 Сообщений: 209	SAS888!! Еще раз спасибо!!