Как сохранить отдельный лист в excel. Как сохранить листы рабочей книги Excel отдельными файлами?

Как сохранить листы рабочей книжки Excel отдельными файлами?

В данной заметке побеседуем о том, как переместить либо скопировать лист рабочей книжки Excel в другую книжку, а также о том как сохранить все листы книжки  отдельными файлами. Для чего же это нужно? Да не много ли для чего! Кто-то посылает файлы почтой и не желает отсылать лишнюю информацию, содержащуюся на остальных листах собственной рабочей книжки. Кто-то собирает информацию у пары юзеров и для этого делит книжку на листы, раздает шаблоны для наполнения, а потом собирает все листы обратно в книжку, можно долго фантазировать, давайте перейдем к делу.

Традиционно предложу два метода позволяющих перемещать листы в отдельные файлы Excel.

Как сохранить лист отдельным файлом обычными средствами Excel?

Первый – обычными средставми приложения Excel. Кликаем правой клавишей мышки в области наименований листов и избираем пункт меню “Переместить/скопировать…”

Как сохранить отдельный лист в excel. Как сохранить листы рабочей книги Excel отдельными файлами?

В поле “Переместить избранные листы в книгу” избираем или “(новая книга)”, или избираем заглавие файла, в который собираемся перемещать лист (этот файл должен быть предварительно открыт). Нажимаем “Ок” – лист перемещается. Да, ежели отметить галочкой опцию “Создать копию”, то заместо перемещения листа произойдет его копирование, а также можно будет указать место для вставки листа.

Как сохранить листы отдельными файлами при помощи надстройки?

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

Читайте также  Создание резервной копии iphone в itunes. Как сделать резервную копию iPhone в iTunes и iCloud

Использование надстройки позволяет:

1. Вызывать диалоговое окно надстройки одним кликом мыши прямо из вкладки на ленте;

2. выбирать папку, в которую будут сохраняться рабочие книги;

3. при делении рабочей книжки на отдельные файлы именовать новейшие файлы именами листов;

4. при сохранении листов отдельными файлами именовать их составными именами, состоящими из имени начальной рабочей книжки и имени листа;

5. создавать неповторимые имена файлов, добавляя текущую дату и время к именам файлов;

6. выбирать более подходящее расширение (тип) для новейших рабочих книг.

Как сохранить отдельный лист в excel. Как сохранить листы рабочей книги Excel отдельными файлами?видео по работе с надстройкой

Как сохранить отдельный лист в excel. Как сохранить листы рабочей книги Excel отдельными файлами?Как сохранить отдельный лист в excel. Как сохранить листы рабочей книги Excel отдельными файлами?макрос (надстройка) для сохранения листов отдельными файлами

Разделенные листы можно опять объединить в одну общую рабочую книжку при помощи надстройки для объединения листов. При необходимости, можно ознакомиться с пошаговой аннотацией по установке надстроек в приложении Excel разных версий.

Другие материалы по теме:

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

Про сборку листов из пары книжек в одну текущую я уже писал тут. Сейчас разберем решение обратной задачи: есть одна книжка Excel, которую необходимо “разобрать”, т.е. сохранить каждый лист как отдельный файл для предстоящего использования.

Как сохранить отдельный лист в excel. Как сохранить листы рабочей книги Excel отдельными файлами?

Примеров подобного из настоящей жизни можно привести массу. К примеру, файл-отчет с листами-филиалами необходимо поделить на отдельные книжки по листам, чтоб передать потом данные в каждый филиал и т.д.

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

Способ 1. Обычное разделение

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

Читайте также  Как поменять цвет подсветки клавиатуры. Как включить подсветку на клавиатуре

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

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

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

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

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 & “.xlsx” ‘сохраняем файл Next End Sub

Этот макрос сохраняет новейшие книги-листы в ту же папку, где лежал начальный файл. При необходимости сохранения в другое место, замените wb.Path на собственный путь в кавычках, к примеру “D:Отчеты2012” и т.п.

Ежели необходимо сохранять файлы не в обычном формате книжки Excel (xlsx), а в остальных (xls, xlsm, xlsb, txt и т.д.), то не считая тривиального конфигурации расширения на необходимое, будет нужно добавить еще и уточнение формата файла – параметр FileFormat:

ActiveWorkbook.SaveAs wb.Path & “” & s.Name & “.xlsb”, FileFormat:=50

Для главных типов файлов значения параметра FileFormat следующие:

  • XLSX = 51
  • XLSM = 52
  • XLSB = 50
  • XLS = 56
  • TXT = 42

Полный перечень всех вариантов можно поглядеть в справке MSDN.

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

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

Читайте также  В браузере не работает колесо прокрутки. Мышка не прокручивает страницу

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

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

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

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

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

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

Этот метод кое-чем похож на 2-ой, но листы сохраняются не как отдельные книжки Excel, а в формате PDF, что нередко требуется, ежели никто не должен поменять документ и узреть ваши формулы. Обратите внимание, что:

  • для этого употребляется уже иной способ (ExportAsFixedFormat а не Copy)
  • листы выводятся в PDF с параметрами печати, настроенными на вкладке Разметка странички (Page Layout)
  • книга обязана быть сохранена на момент экспорта

Подходящий нам код будет смотреться последующим образом:

Sub SplitSheets5() Dim s As Worksheet For Each s In ActiveWorkbook.Worksheets s.ExportAsFixedFormat Filename:=ThisWorkbook.Path & “” & s.Name & “.pdf”, Type:=xlTypePDF Next End Sub

Способ 6. Готовый макрос из надстройки PLEX

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

Как сохранить отдельный лист в excel. Как сохранить листы рабочей книги Excel отдельными файлами?

Ссылки по теме

 

Оставьте комментарий