Страницы: 1
RSS
Удаление кнопки при сохранении листа в новый файл
 
Добрый вечер, уважаемые форумчане!
Понимаю, что тема поднималась много раз, но сам никак не могу исправить код.
Помогите, пожалуйста, разобраться в следующем.
Выполняю некоторые действия в книге, затем сохраняю определенный лист с кнопкой в новую книгу. Все работает отлично, но в новую книгу копируется и лист, и кнопка.
Вот фрагмент кода, который выполняет сохранение:
Код
p = ActiveWorkbook.Path
    Sheets("Лист для сохранения").Copy
     ActiveWorkbook.SaveAs Filename:=p & "\" & Format(Now(), "mm/yyyy") & " " & "Лист для сохранения.xlsx", FileFormat:=xlOpenXMLWorkbook
     Sheets(1).Activate
     ActiveSheet.Shapes.Range(Array("Button 1")).Delete
Именно в таком варианте кнопка удаляется, но новая книга остается открытой и при закрытии Excel спрашивает о ее сохранении.
Если в конец кода добавить:
Код
ActiveWindow.Close
То книга сохраняется, закрывается, но кнопка в ней не удаляется.
Помогите, пожалуйста, как поправить код, чтобы новая книга сохранялась, закрывалась, и чтобы в ней не было кнопки.
Изменено: Leojse - 08.05.2019 21:23:43
 
4-я строка лишняя, 3-ю переставьте в конец.
Владимир
 
sokol92, огромное Вам спасибо!
Страницы: 1
Наверх