Сохранение выбранного листа в отдельной книге

Пользователь

Сообщений: 40 Регистрация: 31.05.2018

02.12.2018 11:33:29

Приветствую пользователей форума. Имеется файл с несколькими листами. Один из них "Вкладка". Необходимо:
1. Создать новую книгу с одним листом в определенном каталоге;
2. Присвоить имя данной книге в формате "dd_mm_yy"
3. Скопировать лист "Вкладка" в книгу "dd_mm_yy"
4. Переименовать лист в аналогичный формат "dd_mm_yy"
Помогите, плиз, дилетанту прописать данный алгоритм в вба.

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#2 02.12.2018 11:36:04 Алгоритм Вы прописали

Sanja Модератор Сообщений: 16559 Регистрация: 10.01.2013	#3 02.12.2018 11:36:22 А что по этому поводу пишет макрорекордер? Детальнее него вряд ли кто сможет прописать Согласие есть продукт при полном непротивлении сторон

Malysheff Пользователь Сообщений: 40 Регистрация: 31.05.2018	#4 02.12.2018 11:52:57 Макрорекордер - не очень гибкая конструкция. Сложность возникает в переименовании листа и книги именем, представляющий текущую дату

Sanja

Модератор

Сообщений: 16559 Регистрация: 10.01.2013

02.12.2018 12:06:22

На вскидку

Код

Sub NewBook()
    ThisWorkbook.Worksheets("Выборка").Copy
    With ActiveWorkbook
        .SaveAs Filename:="D:\Определенная_папка\" & Format(Date, "dd_mm_yyyy") & ".xlsx", FileFormat:=xlOpenXMLWorkbook
        .ActiveSheet.Name = Format(Date, "dd_mm_yyyy")
        '.Close     'закрыть книгу
    End With
End Sub

Согласие есть продукт при полном непротивлении сторон

Malysheff Пользователь Сообщений: 40 Регистрация: 31.05.2018	#6 02.12.2018 12:15:09 То, что нужно. Спасибо