Как создать новый Excel файл для каждого листа

Данный макрос поможет создать новый файл для каждого листа существующей книги. 

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

1. Шаг 1 объявляет две переменные объекта. Переменная WS создает контейнер памяти для каждого листа макросов с помощью цикла. Переменная создает контейнер для новых рабочих книг. 

2. На шаге 2 макрос начинает цикл по листам. Использование объекта ThisWorkbook гарантирует, что активный лист копирует код книги, которая создается. 

3. На шаге 3, мы создаем новую книгу и сохраняем её в том же месте, что и исходную (файл thisworkbook). Имя файла будет такое же имя, что и имя листа. 

4. Шаг 4 копия активного листа вставляется в новую книгу перед первым листом. 

5. Шаг 5 повторяем шаг 3 для следующего листа. После того как все листы будут скопированы макрос завершает работу. 

Важно! Не всегда возможно дать новой книге имя определенного листа. Windows имеет конкретные правила, которые мешают использовать в имени файла определенные символы. 

Символы, которые нельзя использовать: 
- обратная косая черта (\), 
- косая черта (/), 
- двоеточие (:), 
- звездочка (*), 
- знак вопроса (?), 
- трубы (|), 
- кавычки («), 
- больше ( > ), 
- меньше (<). 

Если в наименовании ваших листов используются эти символы, то использование макроса может привести к ошибке. Например, макрос выдает ошибку при создании нового файла из листа под названием Май| Выручка (из-за знака «|»).

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

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