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

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

Если делать эту процедуру вручную, то придется для каждого листа выполнить немаленькую цепочку действий (выбрать лист, правой кнопкой по ярлычку листа, выбрать Копировать, указать отдельный предварительно созданный пустой файл и т.д.) Гораздо проще использовать короткий макрос, автоматизирующий эти действия.

Способ 1. Простое разделение

Нажмите сочетание Alt+F11 или выберите в меню Сервис - Макрос - Редактор Visual Basic (Tools - Macro - Visual Basic Editor), вставьте новый модуль через менюInsert - Module и скопируйте туда текст этого макроса:

?

1 2 3 4 5 6

Sub SplitSheets1()     Dim s As Worksheet     For Each s In ActiveWorkbook.Worksheets    'проходим по всем листам в активной книге         s.Copy       'копируем каждый лист в новый файл     Next End Sub

Если теперь выйти из редактора Visual Basic и вернуться в Excel, а затем запустить наш макрос (Alt+F8), то все листы из текущей книги будут разбиты по отдельным новым созданным книгам.

Способ 2. Разделение с сохранением

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

?

1 2 3 4 5 6 7 8 9

Sub SplitSheets2()     Dim s As Worksheet     Dim wb as Workbook     Set wb = ActiveWorkbook     For Each s In wb.Worksheets                                'проходим во всем листам активной книги         s.Copy                                                 'сохраняем лист как новый файл         ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & ".xls"  'сохраняем файл     Next End Sub

Этот макрос сохраняет новые книги-листы в ту же папку, где лежал исходный файл. При необходимости сохранения в другое место, замените wb.Path на свой путь в кавычках, например "D:\2014" и т.п. Естественно, и расширение xls можно заменить на свое (xlsx или xlsm) в зависимости от вашей версии Excel.

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

Если вы хотите раскидать по файлам не все листы в вашей книге, а только некоторые, то макрос придется немного изменить. Выделите нужные вам листы в книге, удерживая на клавиатуре клавишу Ctrl или Shift и запустите приведенный ниже макрос:

?

1 2 3 4 5 6 7 8 9

Sub SplitSheets3()     Dim AW As Window     Set AW = ActiveWindow     For Each s In AW.SelectedSheets         Set TempWindow = AW.NewWindow    'создаем отдельное временное окно         s.Copy                           'копируем туда лист из выделенного диапазона         TempWindow.Close                 'закрываем временное окно     Next End Sub

Способ 4. Сохранение только выделенных листов в новый файл

Во всех описанных выше способах каждый лист сохранялся в свой отдельный файл. Если же вы хотите сохранить в отдельный новый файл сразу группу выделенных предварительно листов, то нам потребуется слегка видоизменить наш макрос:

?

1 2 3 4 5 6 7 8

Sub SplitSheets4()     Dim CurW As Window     Dim TempW As Window     Set CurW = ActiveWindow     Set TempW = ActiveWorkbook.NewWindow     CurW.SelectedSheets.Copy     TempW.Close End Sub