Как скопировать лист в новый Excel файл

Что делает макрос: В Excel, вы можете вручную скопировать лист в новую книгу, щелкнув правой кнопкой мыши на целевой лист и выбрав Move или опцию Copy. Если вам нужно автоматически скопировать весь лист в совершенно новую книгу, данный макрос обеспечивает эту функцию.

Как макрос работает

В этом макросе, активный лист сначала копируется. Затем мы используем параметры, чтобы отправить копию в новую книгу, которая создается на лету. Скопированный лист позиционируется, как первый лист в новую книгу.

Используется объект ThisWorkbook. Это гарантирует, что активный лист, который копируется из рабочей книги, в которой находится код, а не из новой созданной рабочей книги.

Код макроса

Sub SkopirovatListVNovuyuKnigu()
'Копируем лист и отправляем в новую книгу
ThisWorkbook.ActiveSheet.Copy _
Before:=Workbooks.Add.Worksheets(1)
End Sub

Как использовать

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

1. Активируйте редактор Visual Basic, нажав ALT + F11.
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта.
3. Выберите Insert➜Module.
4. Введите или вставьте код во вновь созданном модуле.