При закрытии книги, удаляются листы - 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!! Еще раз спасибо!!