Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > Удаление листа

Автор: Lapochka 22.10.2008, 11:46

у меня выполняется примерно следующая процедура (VBA MS Excel).

1) создаю новый лист - Svod
2) создаю на нем сводную таблицу
3) копирую данные из этой таблицы на другой лист - Debtor
4) удаляю лист Svod

Код


' копирую
worksheets("Svod").range(cells(2,1),cells(row_svod,1)).copy
worksheets("Debtor").activate
cells(2,1).select
activesheet.paste

' удаляю лист
sheets("svod").select
application.cutcopymode = false
activewindow.selectedsheets.delete

При выполнении этого sub-а, выводится сообщение:
"В листах, выбранных для удаления, могут существовать данные. Чтобы удалить данные, нажмите кнопку "Удалить".

Мне нужно сделать так, чтобы это сообщение не выводилось и лист просто удалялся без всяких препятствий.
smile

Автор: Данкинг 22.10.2008, 11:58

Код


Application.DisplayAlerts = False

Автор: Lapochka 22.10.2008, 12:33

thank you very much! smile

Автор: Akina 22.10.2008, 13:25

Код


Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True

Только так, и не иначе! И еще обязательный on error goto...
А то потом не расхлебаешь.

Автор: rodomod 19.5.2016, 16:05

в архиве есть ценная iнfo

Этот ответ добавлен с нового Винграда - http://ru.vingrad.com/Udaleniye-lista-id50bdb6556ccc19ae4f0176b1#findElement_E7045_573dba17ae2015d7730d6e5e_0