Как сохранить листы 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-файлов

Этот способ чем-то похож на второй, но листы сохраняются не как отдельные книги 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:

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

• Сборка листов из нескольких книг в одну
• Что такое макросы, куда вставлять код на Visual Basic, как их использовать.

Если в книге Excel несколько листов, вам может потребоваться сохранить только один лист в виде отдельной книги. Для сохранения одного листа в Excel 2013 или Excel 2016 используйте перемещение или копирование.

Сохранение одного листа

1. Щелкните правой кнопкой мыши ярлычок листа.

   

2. Щелкните Переместить или скопировать.

   

3. Щелкните раскрывающееся меню Переместить выбранные листы в книгу. Выберите (новая книга).

   

4. Нажмите кнопку ОК. Откроется новая книга с перемещенным листом.

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

   

5. Щелкните Файл > Сохранить в новой книге.

   Совет: Вы также можете сохранить книгу Excel, нажав клавиши CTRL+S.

Сохранение листа

​Смотрите также​ помощь)​ документов в одном​ PDF, однако мне​ второй и третий​ вашей книге, а​ созданный пустой файл​ в другую рабочую​кнопку Microsoft Office​ формата. Вы можете​

Сохранение одного листа

1. ​.​ в других форматах,​

   

2. ​ или BMP​​ можно открывать в​​ разрывы строк и​

   

3. ​ VBA, а также​​Файл​Если в книге Excel​​Подскажите как можно в​​ PDF проблем нет,​​ необходимо сохранить НЕСКОЛЬКО​

   

4. ​ лист заполнен данными,​​ только некоторые, то​​ и т.д.) Гораздо​ книгу, то не​

   ​, а затем —​​ сохранить ее в​Чтобы сохранить файл в​ таких как файлы​Объекты Microsoft Excel, объекты​ приложении Excel 2010.​ другие символы будут​​ листы макросов Microsoft​​выберите команду​​ несколько листов, вам​​ Excel организовать сохранение​

   

5. ​ но…​​ листов книги в​​ то скопируйте данные​​ макрос придется немного​​ проще использовать короткий​

   ​ ставьте галочку в​​ кнопку​ формате предыдущих версий,​ другом месте, укажите​

support.office.com

Сохранение книги в другом формате файла

​ PDF и XPS.​​ правильно зарегистрированных программ,​ При сохранении и​ интерпретироваться правильно. Сохраняет​ Excel 4.0 (XLM).​Сохранить как​ может потребоваться сохранить​ листа в отдельный​необходим единый файл,​ один файл PDF.​ с первого листа​ изменить. Выделите нужные​ макрос, автоматизирующий эти​ строке​Параметры Excel​ в формате текстового​ диск и расположение​ Обычно сохранение происходит​ поддерживающих OLE 2.0​ открытии ODS-файлов может​ только активный лист.​Шаблон (код)​

​.​ только один лист​ файл может кто​ содержаший 5 пулов​ А excel позволяет​ в новый документ,​ вам листы в​ действия.​Создать копию​.​ файла, а также​ в полях с​ в формате XLSX,​ (OwnerLink), а также​ быть потеряно форматирование.​Текст (MS-DOS)​XLTM​В разделе​ в виде отдельной​ знает скрипт который​

​ по 10 документов.​ лишь сохранить каждый​ а там проделайте​

​ книге, удерживая на​Нажмите сочетание​(Create a copy).​В категории​ в других форматах,​ именем папки и​ но формат файлов,​ Picture или другой​PDF​TXT​

1. ​Формат файлов с поддержкой​Места​

2. ​ книги. Для сохранения​​ можно назначить кнопке.​​Вот такая жевачка​​ лист поотдельности, либо​​ вышесказанное.​

   

3. ​ клавиатуре клавишу Ctrl​​Alt+F11​​Нажмите​Сохранение​ таких как файлы​​ путем к файлу.​​ используемый по умолчанию​ формат презентации.​​PDF​​Сохраняет книгу в виде​ макросов для шаблонов​выберите расположение, где​​ одного листа в​​ Очень надо! Плиз!​

   

4. ​ для мозгов))​​ всю книгу целиком.​​М х​ или Shift и​

   

5. ​или выберите в​​ОК​​в разделе​ PDF и XPS.​Примите имя, предложенное в​ для сохранения, можно​Связанный объект​PDF. Этот формат файла​

   ​ текстового файла, разделенного​​ Excel в приложениях​ нужно сохранить книгу.​ Excel 2013 или​Олег филатов​[email protected]​

6. ​Повторюсь, а мне​: элегантнее есть -​​ запустите приведенный ниже​​ меню​. Будет создана новая​

Преобразование книги Excel 97—2003 в текущий формат файла

​Сохранение книг​ Любой файл, который​ поле​ изменить. Если вы​GIF, JPG, DOC, XLS​ сохраняет форматирование документа​ знаками табуляции, —​ Excel 2007—2013. В​

1. ​ Например, выберите​​ Excel 2016 используйте перемещение​​: Скрипт можно написать,​​: уточнаю: в итоге​​ необходимо сохранить НЕСКОЛЬКО​

2. ​ макрос к примеру​​ макрос:​​Сервис — Макрос -​

Поддерживаемые Excel форматы файлов

​ книга и лист​в поле​ открывается в Office​Имя файла​ часто пользуетесь командой​

​ или BMP​

​ и позволяет совместно​	​ для использования в​	​ этом формате можно​
​OneDrive​	​ или копирование.​	​ только задача не​ нужен единый фай​ листов книги, но​ написать — встроенными​Sub SplitSheets3() Dim​ Редактор Visual Basic​ скопируется в неё.​Сохранять файлы в следующем​ Excel 2007, можно​, или введите новое​
​Сохранить как​	​OwnerLink, ObjectLink, Link, Picture​	​ использовать файлы. Формат​ операционной системе MS-DOS​ сохранять код макросов​
​, чтобы сохранить файл​	​Щелкните правой кнопкой мыши​	​ вполне ясна. На​ pdf​ не все.​ средствами того же​ AW As Window​ (Tools — Macro​ Если Вы решите​ формате​
​ сохранить в формате​	​ имя книги.​	​, можно добавить ее​ или другой формат.​
​ PDF гарантирует, что​	​ — и гарантирует,​	​ VBA и листы​ в веб-хранилище, или​ ярлычок листа.​ листе кнопка, при​anvg​Hugo​ Excel — а…​
​ Set AW =​	​ — Visual Basic​	​ переместить лист, то​выберите тот формат​ книги Excel 2007.​В списке​ на панель быстрого​Объект-рисунок Office​ при просмотре файла​ что символы табуляции,​ макросов Excel 4.0​
​Компьютер​	​Щелкните​	​ нажатии которой этот​: Скачайте PDFCreator последних​: Не пробовали коду​
​ не так это​ ActiveWindow For Each​	​ Editor)​	​ в исходной книге​ файла, который вы​ Excel 2007 по​Тип файла​
​ доступа.​	​EMF​	​ на компьютере и​ разрывы строк и​
​ (XLM).​	​, чтобы сохранить файл​	​Переместить или скопировать​ лист сохраняется в​
​ версий. Содержит утилиту​	​ всместо activesheet дать​	​ и сложно -​
​ s In AW.SelectedSheets​	​, вставьте новый модуль​	​ его больше не​ хотите использовать по​ умолчанию сохраняет файлы​выберите один из​Важно:​Формат рисованного объекта Office​ при его печати​ другие символы будут​Книга Excel 97—2003​ в локальной папке,​
​.​	​ отдельном файле? А​	​ для объединения pdf​ Array(«Лист1», «Лист2», «Лист3»)?​ на пару минут​ Set TempWindow =​ через меню​
​ будет.​	​ умолчанию.​	​ в формате XLSX,​ вариантов:​ При сохранении книги в​ или Picture (EMF)​ будет сохранен исходный​ интерпретироваться правильно. Сохраняет​XLS​ такой как​Щелкните раскрывающееся меню​ с каким названием?​

​ в один. Поддерживает​

​Проверить не могу​	​ работы )))​	​ AW.NewWindow ‘создаем отдельное​
​Insert — Module​Вы также можете создать​	​В пользовательском интерфейсе Microsoft​	​ но вы можете​Если книга была создана​ формате файла Excel​Текст​
​ формат и данные​ только активный лист.​	​Формат двоичных файлов Excel​	​Документы​Переместить выбранные листы в​Уважаемая Ярослава, а​ ли автоматизацию (или​ — нет 2007.​YJYNGK​ временное окно s.Copy​и скопируйте туда​ копию листа в​ Office Fluent команду​ изменить формат, используемый​ в более ранней​
​ другой версии форматирование​	​TXT​	​ файла нельзя будет​Текст в кодировке Unicode​ 97 — Excel​.​ книгу​ в хорошем OpenOffice​ другой способ неручной​YJYNGK​: Уважаемые ребята, добрый​ ‘копируем туда лист​ текст этого макроса:​
​ той же рабочей​	​Сохранить как​	​ для сохранения по​ версии Excel и​ и возможности, уникальные​Отображаемый текст, текст OEM​ легко изменить. Формат​TXT​ 2003 (BIFF8).​В диалоговом окне​. Выберите​ как это можно​ сшивки) — не​
​: Hugo, добрый день!​	​ день!​	​ из выделенного диапазона​Sub SplitSheets1() Dim​ книге. Такая необходимость​нельзя вывести на​ умолчанию.​
​ содержит макросы, которые​	​ для Excel 2007 и​	​Веб-страница в одном файле​ PDF также удобно​Сохраняет книгу в виде​Шаблон Excel 97- Excel​Сохранение документа​(новая книга)​ сделать? ;-)​ знаю. Есть и​К сожалению в​Вынужден обратиться за​ TempWindow.Close ‘закрываем временное​ s As Worksheet​
​ может возникнуть, если​	​ ленту в виде​	​Если вы часто пользуетесь​ нужно в ней​ более поздних версий,​MHT, MHTML​ применять для печати​ текста в кодировке​ 2003​перейдите в нужное​.​Может в плохой​ другие утилиты для​
​ таком синтаксисе выпадает​	​ помощью, поиск полноценного​	​ окно Next End​ For Each s​ Вы хотите внести​ кнопки. Однако вы​ командой​ оставить, выберите​ будут потеряны. Дополнительные​Веб-страница в одном файле​ документов в типографии.​ Unicode, стандартной кодировке​XLT​
​ расположение.​	​Нажмите кнопку​	​ программе Excel этот​ объединения pdf в​
​ в Debug …​	​ ответа на мой​	​ Sub​ In ActiveWorkbook.Worksheets ‘проходим​

​ изменения в лист,​​ можете добавить ее​Сохранить как​Книга Excel с поддержкой​ сведения см. в​

​ (MHT или MHTML).​

​Документ XPS​	​ символов, разработанном Unicode​	​Формат двоичных файлов Excel​
​В списке​	​ОК​	​ способ тоже сработает…​ один файл. Поищите.​YJYNGK​ вопрос не дал.​Создавать новое окно и​ по всем листам​ но при этом​
​ на панель быстрого​	​, можно добавить ее​	​ макросов (*.xlsm)​ статье Использование Excel​ Этот формат файла​XPS​ Consortium.​ 97 — Excel​Тип файла​. Откроется новая книга​Люди когда-то Windows​anvg​: извините, поторопился отправить​Прошу помощи …​ копировать через него,​ в активной книге​ требуется сохранить первоначальный​ доступа.​
​ на панель быстрого​	​.​	​ с более ранними​ объединяет встроенные рисунки,​Этот формат файла сохраняет​CSV (разделители — запятые)​ 2003 (BIFF8) для​выберите нужный формат.​ с перемещенным листом.​ запускали ТОЛЬКО для​: Посмотрел сейчас код​ без кода …​Есть книга из​ а не напрямую,​ s.Copy ‘копируем каждый​ вариант. Как было​Нажмите​
​ доступа.​	​Если вы хотите сохранить​	​ версиями Excel.​ приложения, связанные документы​ форматирование документа и​CSV​ хранения шаблонов Excel.​ При необходимости используйте​Примечание:​ того, чтобы поработать​ формы для Excel,​Sub Макрос2()​ которой необходимо средствами​ приходится потому, что​

​ лист в новый​ описано ранее в​

​кнопку Microsoft Office​Любой файл, который открывается​ книгу как шаблон,​Откройте в Excel книгу,​ и другие вспомогательные​ позволяет совместно использовать​Сохраняет книгу в виде​​Книга Microsoft Excel 5.0/95​​ стрелки для прокрутки​​ При этом лист удалится​​ с Microsoft Office…​​ прилагаемой в папке​​Sheets(Array(«Лист1», «Лист2», «Лист3»)).ExportAsFixedFormat​​ VBA сохранить несколько​​ Excel не умеет​​ файл Next End​​ этой статье, откройте​

​.​	​ в Excel 2007,​	​ выберите​
​ которую вы хотите​	​ элементы, на которые​	​ файлы. Формат XPS​ текстового файла, разделенного​XLS​ и выбора форматов​ ​ из исходной книги.​​ О, как…Впрочем, сейчас​ примеров PDFCreator -​ Type:=xlTypePDF, Filename:= _​ листов (Лист1, Лист2,​ копировать группу листов,​ Sub​
​ диалоговое окно​	​Щелкните правой кнопкой мыши​	​ можно сохранить в​Шаблон Excel (*.xltx)​
​ сохранить в формате,​	​ есть ссылки в​	​ гарантирует, что при​ знаками запятой, —​Формат двоичных файлов Excel​ файлов, которые не​ Если вы хотите​
​ многие поступают точно​	​ можете легко его​	​»D:Documents and Settingse.babchinskiyDesktopСохранить​
​ Лист3) в один​	​ если среди них​	​Если теперь выйти из​
​Переместить или скопировать​ элемент​	​ текущем формате книги​	​.​ подходящем для использования​ документе.​
​ просмотре файла на​	​ для использования в​	​ 5.0/95 (BIFF5).​
​ видны в списке.​ сохранить лист в​	​ так же…​	​ модифицировать, вставив вызов​
​ в пдф.pdf», Quality​	​ документ формата PDF.​ есть листы с​	​ редактора Visual Basic​(Move or Copy).​Сохранить как​ Excel (*.xlsx). Таким​Если книга была создана​ в другой программе.​
​Веб-страница​	​ компьютере и при​ другой операционной системе​	​Таблица XML 2003​Примечание:​
​ обеих книгах, в​	​Ну, примерно так:​	​ вашей процедуры, для​ _​
​ На каждом из​	​ умными таблицами. Копирование​	​ и вернуться в​
​ По умолчанию в​	​и выберите​	​ образом вы сможете​ в более ранней​На вкладке​HTM, HTML​ его печати будет​ Windows — и​XML​ Список доступных форматов файлов​ диалоговом окне​
​ [ссылка заблокирована по​	​ печати в единый​	​:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False,​ ​ этих листов есть​​ через новое окно​ Excel, а затем​ выпадающем списке​Добавить на панель быстрого​ воспользоваться новыми возможностями​ версии Excel и​Файл​

​Формат HTML.​ сохранено исходное форматирование​

​ гарантирует, что символы​Формат файлов XML-таблиц 2003​ зависит от типа​Переместить или скопировать​ решению администрации проекта]​ pdf.​ _​

​ «область печати» которая​ позволяет такую проблему​ запустить наш макрос​В книгу​ доступа​

• ​ Excel 2007, которые​ содержит макросы, которые​выберите команду​Примечание:​

• ​ и данные файла​ табуляции, разрывы строк​ (XMLSS).​ активного листа в​установите флажок​Скрипт открывается в​[email protected]​OpenAfterPublish:=True​ меня и интересует.​ обойти.​

​ (Alt+F8), то все​	​(To book) выбрана​	​.​
​ не поддерживаются в​	​ нужно в ней​	​Сохранить как​ Если вы скопируете текст​
​ нельзя будет легко​ и другие символы​	​Данные XML Data​ книге (лист, лист​	​Создать копию​ редакторе VBA, например​
​: у меня возникла​	​End Sub​	​Листы «XXXX» и​Во всех описанных выше​
​ листы из текущей​	​ текущая книга –​	​Иногда при работе с​
​ файлах других форматов,​	​ оставить, а вы​	​.​ из другой программы,​
​ изменить.​	​ будут интерпретироваться правильно.​	​XML​ диаграммы или другой).​

​.​ нажатием сочетания клавиш​ необходимость сшить несколько​Hugo​ «YYYYY» копироваться с​ способах каждый лист​ книги будут разбиты​ оставьте это без​ книгой Excel возникает​ например сможете увеличивать​ хотите сохранить ее​Чтобы сохранить книгу в​ Microsoft Excel вставит​Форматы файлов, использующие буфер​ Сохраняет только активный​Формат данных XML.​​Примите имя, предложенное в​​Щелкните​ Alt+F11.​ файлов pdf в​

Сохранение книги Excel в файле другого формата

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

1. ​Надстройка Microsoft Excel​ поле​Файл​Скрипт:​ один​

2. ​antal10​​ должны.​​ отдельный файл. Если​​ созданным книгам.​​Перед листом​

3. ​ переместить лист в​Примечание:​Шаблон Excel с поддержкой​ диск и расположение​ формате HTML независимо​Если вы скопировали данные​

4. ​CSV (Макинтош)​XLAM​​Имя файла​​>​Private Sub CommandButton1_Click()​

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

​(Before sheet) выберите​ другую книгу или​ При сохранении книги, созданной​

​ макросов (*.xltm)​​ в полях с​ от формата исходного​ в буфер обмена​CSV​Формат файлов надстроек Excel​, или введите новое​Сохранить​

​On Error GoTo​​ в нескольких листах​ также позволяет сохранить​ я сохранял нужные​ сохранить в отдельный​ книги сразу же​ лист, перед которым​ сделать копию листа​

Сохранение файла другого формата в формате Excel 2007 и более поздних версий

​ в более ранней​.​ именем папки и​ текста.​ в одном из​Сохраняет книгу в виде​ 2007—2013 на основе​ имя книги.​в новой книге.​ errhand​ данные (готовит документы)​

​ все листы в​​ листы в отдельные​ новый файл сразу​ сохранять под именами​ хотите вставить скопированный​ в этой же​ версии Excel, в​Если вы хотите сохранить​ путем к файлу.​Форматы файлов, не поддерживаемые​ следующих форматов файлов,​ текстового файла, разделенного​ XML с поддержкой​Если вы открыли книгу​

1. ​Совет:​Dim NewBook As​и все варианты​

2. ​ один PDF файл.​​ файлы PDF (через​​ группу выделенных предварительно​​ листов. Для этого​​ лист. Мы решили​

3. ​ книге. Например, Вы​ формате книги Excel​ книгу в текущем​Примите имя, предложенное в​ в Excel 2013​ вы можете вставить​

4. ​ знаками запятой, —​ макросов. Надстройка —​​ Excel 97—2003, но​​ Вы также можете сохранить​ Workbook​

5. ​ (по 5-10 листов)​​ По крайней мере​​ сохранить как), а​ листов, то нам​

   • ​ макрос придется немного​ вставить копию нашего​ хотите что-то изменить,​ 2007 некоторые возможности​ формате книги Excel,​ поле​​Указанные ниже форматы файлов​ их в Excel,​​ для использования в​

   • ​ это программа, обеспечивающая​ вам не нужно​ книгу Excel, нажав​​Set NewBook =​​ сохраняет в pdf​

   • ​ у меня все​ затем их объединял​ потребуется слегка видоизменить​ изменить, добавив команду​ листа в самый​ но при этом​ и часть форматирования​ выберите​​Имя файла​ больше не поддерживаются,​​ используя команду​

   • ​ операционной системе Макинтош​ возможность выполнения дополнительного​ хранить ее в​ клавиши CTRL+S.​​ Workbooks.Add​​а в итоге​

   • ​ листы в один​ в один файл​ наш макрос:​ сохранения в цикл:​​ конец книги после​​ сохранить первоначальные листы.​

6. ​ могут быть потеряны.​​Книга Excel (*.xlsx)​​, или введите новое​

Изменение формата файлов, используемого для сохранения по умолчанию

​ поэтому вы не​Вставка​ — и гарантирует,​ кода. Позволяет использовать​

1. ​ этом формате файла,​​Примечание:​​Application.DisplayAlerts = False​​ нужно получить один​​ файл сохраняет.​

2. ​ программой «Адоб Акробат».​​Sub SplitSheets4() Dim​​Sub SplitSheets2() Dim​​ всех существующих листов.​​Для начала мы покажем​​Откройте книгу, которую вы​.​​ имя книги.​ сможете открыть файлы​или​ что символы табуляции,​

Добавление команды «Сохранить как» на панель быстрого доступа

​ проекты VBA и​​ просто преобразуйте книгу​​Мы стараемся как​Do While NewBook.Worksheets.Count​ файл.​При экспорте в​Возможно ли реализовать​ CurW As Window​

1. ​ s As Worksheet​ Отметьте галочкой параметр​ Вам, как скопировать​​ хотите сохранить в​​Если вы хотите сохранить​

   

2. ​В раскрывающемся списке​​ этих форматов или​​Специальная вставка​​ разрывы строк и​​ листы макросов Excel​

3. ​ в текущий формат​​ можно оперативнее обеспечивать​​ > 1​

4. ​решил так:​​ PDF т.е. (Сохранить​​ мой замысел ??​

​ Dim TempW As​ Dim wb as​Создать копию​ лист из одной​ формате книги Excel​ книгу в новом​Тип файла​ сохранять файлы в​(​ другие символы будут​ 4.0 (XLM).​ файла (XLSX).​ вас актуальными справочными​NewBook.Worksheets(1).Delete​скачал программу pdftk​ как Adobe PDF)​ Если да, то​ Window Set CurW​ Workbook Set wb​(Create a copy)​ рабочей книги в​ 2007.​ двоичном формате файла,​

​выберите формат, подходящий​ этих форматах.​​Главная​​ интерпретироваться правильно. Сохраняет​Надстройка Excel 97—2003​В меню​

Сохранение файла в формате Excel 2007

​ материалами на вашем​Loop​ (гуглится просто)​ выскакивает окно с​ прошу помочь мне​ = ActiveWindow Set​ = ActiveWorkbook For​ и нажмите​ другую существующую или​Нажмите кнопку​ выберите​ для использования в​

​Для работы с данными​​>​ только активный лист.​XLA​Файл​ языке. Эта страница​Application.DisplayAlerts = True​1. все pdf-ки​

1. ​ выбором листов и​ с этим !!​ TempW = ActiveWorkbook.NewWindow​ Each s In​

2. ​ОК​​ вновь созданную книгу​ ​Microsoft Office​​Двоичная книга Excel (*.xlsb)​​ другой программе.​

3. ​ книги в программе,​Буфер обмена​​CSV (MS-DOS)​​Надстройка Excel 97-2003, дополнительная​выберите команду​

4. ​ переведена автоматически, поэтому​​NewBook.Worksheets(1).Name = «Ваш​​ макрос ложит в​ все сохраняет в​

   • ​shanemac​ CurW.SelectedSheets.Copy TempW.Close End​ wb.Worksheets ‘проходим во​.​ Excel. Кликните правой​и выберите команду​.​

   • ​Для прокрутки списка и​ которая больше не​>​

   • ​CSV​ программа, предназначенная для​Сведения​ ее текст может​ заказ»​ папку с pdftk​ один файл. При​: слить три листа​ Sub​

   • ​ всем листам активной​Лист будет вставлен и​ кнопкой мыши по​Сохранить как​

   • ​Нажмите кнопку​ отображения большего числа​ поддерживается, попробуйте выполнить​Вставка​

   • ​Сохраняет книгу в виде​ выполнения дополнительного кода.​.​ содержать неточности и​

5. ​Range(Cells(1, 1), Cells(Range(«A1»).EntireColumn.Rows.Count,​​ (путь к ней​​ печати в Pdf​

Изменение формата файлов, используемого для сохранения по умолчанию

​ в один —рабочий,​Этот способ чем-то​ книги s.Copy ‘сохраняем​ его ярлычок появится​

1. ​ ярлычку листа, который​​.​ ​Сохранить​ форматов используйте стрелки.​​ указанные ниже действия.​​).​

2. ​ текстового файла, разделенного​​ Поддерживает использование проектов​​Нажмите кнопку​​ грамматические ошибки. Для​​ Range(«A1»).EntireRow.Columns.Count)).Copy NewBook.Worksheets(1).Range(«A1»)​​ C:pdftkpdftk.exe)​ тоже есть выбор,​​ добавив заголовки м​ похож на второй,​ лист как новый​ справа от ярлычков​

Добавление команды «Сохранить как» на панель быстрого доступа

​ хотите скопировать, и​Примите имя, предложенное в​​.​​Примечание:​Найти в Интернете компанию,​Формат​ знаками запятой, —​ VBA.​Преобразовать​

1. ​ нас важно, чтобы​​fName = Application.GetSaveAsFilename(«Ваш​ ​2. запускаю ее​

2. ​ и тоже печатает​ видимо —шапки​​ но листы сохраняются​​ файл ActiveWorkbook.SaveAs wb.Path​​ существующих листов.​ в контекстном меню​​ поле​

support.office.com

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

​Вы можете изменить тип​ В зависимости от типа​ выпускающую конвертеры файлов​Расширение​ для использования в​Книга Excel 4.0​.​ эта статья была​ заказ от «​ bat-файл со скриптом:​ в один PDF​

​его уже распечатывать​ не как отдельные​ & «» &​Таким образом очень удобно​ выберите​Имя файла​ файла, используемого по​ активного листа (лист​ для форматов, не​Идентификаторы типа буфера обмена​ операционной системе MS-DOS​XLW​​В Excel 2013 вы​​ вам полезна. Просим​

​ & Date &​​ pdftk *.pdf cat​​ файл.​antal10​​ книги Excel, а​​ s.Name & «.xlsx»​ изменять порядок листов​Переместить или скопировать​, или введите новое​

​ умолчанию при сохранении​​ книги, лист диаграммы​ поддерживаемых Excel.​Рисунок​ — и гарантирует,​Формат файла Excel 4.0,​ можете открывать и​ вас уделить пару​ «.xls», «Книга Microsoft​ output 9999.pdf​

​Если у вас​: А в чем​ в формате PDF,​ ‘сохраняем файл Next​​ и структуру рабочих​​(Move or Copy).​ имя книги.​​ книги.​​ или другие типы​Сохраните книгу в другом​​WMF или EMF​​ что символы табуляции,​ в котором сохраняются​ сохранять файлы проектов​ секунд и сообщить,​​ Office Excel (*.xls),​​все .pdf сшиваются​ нет виртуального принтера,​ собственно проблема, что​ что часто требуется,​ End Sub​

​ книг. Это может​​В диалоговом окне​В списке​На вкладке​ листов) будут доступны​ формате файла, который​Рисунки в формате Windows​​ разрывы строк и​​ только обычные листы,​

​ в перечисленных ниже​​ помогла ли она​​ *.xls»)​ в один 9999.pdf​ то можно просто​ в конечном итоге​ если никто не​Этот макрос сохраняет новые​ пригодиться и в​Переместить или скопировать​

​Тип файла​Файл​ разные форматы файлов​ можно открыт в​ Metafile (WMF) или​ другие символы будут​ листы диаграмм и​ форматах.​ вам, с помощью​If fName <>​3. далее макрос​ сохранить как и​ вам нужно непонятно.​​ должен менять документ​​ книги-листы в ту​ том случае, если​(Move or Copy)​​выберите один из​​выберите пункт​ для сохранения.​ другой программе. Например​ Windows Enhanced Metafile​​ интерпретироваться правильно. Сохраняет​​ макросов. В приложении​Форматы файлов Excel​ кнопок внизу страницы.​ False Then​ копирует итоговый pdf​ выбрать формат PDF​ Чем вас печать​ и увидеть ваши​ же папку, где​​ Вам нужно отправить​​ в выпадающем списке​ вариантов:​​Параметры​​Совет:​

​ сохраните книгу в​ (EMF).​ только активный лист.​ Excel 2013 можно​

​Формат​ Для удобства также​NewBook.SaveAs Filename:=fName​ куда мне надо​ при этом в​ на виртуальный принтер​ формулы. Обратите внимание,​ лежал исходный файл.​ кому-то не целую​В книгу​Если книга была создана​

​.​ Дополнительные сведения о сохранении​
​ электронную таблицу XML​
​Примечание:​

​DIF​

office-guru.ru

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

​ открыть книгу в​Расширение​ приводим ссылку на​End If​4. и очищает​ окне сохранения файла​ AdobePDF не устраивает?​ что:​ При необходимости сохранения​ рабочую книгу, а​(To book) выберите​ в более ранней​

​В категории​ книги в файл​ или текстовый формат​ Если вы скопируете метафайл​DIF​ этом формате, но​Описание​ оригинал (на английском​Exit Sub​

​ папку от уже​ зайти в параметры​ Зачем сохранять в​для этого используется уже​ в другое место,​ один конкретный лист​ рабочую книгу, в​​ версии Excel и​​Сохранение​ формата PDF или​ файла, который может​ Windows (WMF) из​Формат обмена данными. Сохраняет​ сохранить в нем​

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

​Книга Excel​​ языке) .​​errhand:​ ненужных pdf​​ и выбрать листы.​ отдельные файлы, если​ другой метод (ExportAsFixedFormat​ замените wb.Path на​ этой книги.​​ которую нужно скопировать​ содержит макросы, которые​​в разделе​​ XPS см. в​ поддерживаться в другой​

​ другой программы, Microsoft​ только активный лист.​ файл Excel нельзя.​XLSX​В большинстве случаев вы​MsgBox Err.Description​1. ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF,​Или еще проще,​ в итоге потом​ а не Copy)​

​ свой путь в​Урок подготовлен для Вас​ лист.​ нужно в ней​Сохранение книг​ статье Сохранение в​ программе.​ Excel вставит рисунок​SYLK​Форматы текстовых файлов​

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

​Стандартный формат файлов Excel​ наверняка будете сохранять​Resume Next​ Filename:=»C:pdftk» & m​ выделить сразу все​ сливаете в один.​листы выводятся в PDF​

​ кавычках, например «D:Отчеты2012″​ командой сайта office-guru.ru​Замечание:​ оставить, выберите формат​в поле​ формате PDF или​Формат​ в виде расширенного​SLK​Формат​ 2007—2013, основанный на​ свои книги в​End Sub​ & «.pdf», Quality:=xlQualityStandard,​ листы, которые нужно​

​ Нужно средствами VBA​ с параметрами печати,​ и т.п.​Источник: http://www.howtogeek.com/220677/how-to-copy-or-move-a-worksheet-into-another-workbook-in-excel/​Чтобы скопировать выбранный​ XLSM.​Сохранять файлы в следующем​ XPS.​Расширение​ метафайла (EMF).​

​Формат Symbolic Link. Сохраняется​Расширение​ языке XML. В​ текущем формате файл​Ярослава емельянова ^^​ IncludeDocProperties _​ сохранить т.е. ярлычки​ ну так и​ настроенными на вкладке​Если нужно сохранять файлы​Перевел: Антон Андронов​ лист в существующую​​Если вы хотите сохранить​​ формате​

​Любой файл, который открывается​Идентификаторы типа буфера обмена​Точечный рисунок​

​ только активный лист.​Описание​​ этом формате нельзя​​ (XLSX). Но иногда​

• ​: Excel — плохая​
• ​:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False​
• ​ листов с клавишей​
• ​ включите макрорекордер и​
• ​ Разметка страницы (Page​

​ не в стандартном​Автор: Антон Андронов​ рабочую книгу, эта​

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

​ книгу как шаблон,​выберите тот формат​ в Excel 2007 и​Диаграмма Excel​BMP​Примечание:​Форматированный текст (разделители —​ сохранять код макросов​ может потребоваться сохранить​ программа. Лучше переходить​2. Shell «cmd​ Shift и сохранить​ запишите все действия.​

​ Layout)​ формате книги Excel​Про сборку листов из​ книга должна быть​ выберите формат XLTX.​ файла, который вы​ более поздних версий,​XLC​Рисунки, сохраненные в растровом​ Если вы сохраните книгу​ пробелы)​ Microsoft Visual Basic​ книгу в другом​

​ на OpenOffice. Который,​ /c cd C:pdftk​ как и выбрать​ Или я просто​книга должна быть сохранена​ (xlsx), а в​ нескольких книг в​ открыта. Если нужная​Если книга была создана​ хотите использовать по​ можно сохранить в​Форматы файлов Excel 2.0,​

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

​ формате (BMP).​ в любом текстовом​PRN​ для приложений (VBA)​ формате, например для​ кстати, бесплатен.​ & C:pdftk000.bat», vbNormalFocus​ PDF.​ не понял что​ на момент экспорта​ других (xls, xlsm,​

​ одну текущую я​ книга не открыта,​ в более ранней​ умолчанию.​ текущем формате книги​ 3.0 и 2.x​Форматы файлов Microsoft Excel​ формате, будут потеряны​

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

​Формат для Lotus, с​ и листы макросов​ более ранней версии​Marish_ka​ ‘запуск bat​Hugo​ нужно.​Нужный нам код будет​ xlsb, txt и​ уже писал здесь.​ то её не​ версии Excel и​

• ​Команду​ Excel (XSLX). Таким​WK1, FMT, WK2, WK3,​
• ​XLS​ все элементы форматирования.​ разделителями — пробелами.​ Microsoft Office Excel​ Excel, в текстовый​
• ​: Файл-сохранить как. Выбираешь​Application.Wait Now() +​

​: Проверил на 2007.​YJYNGK​

​ выглядеть следующим образом:​ т.д.), то кроме​ Теперь разберем решение​ будет в выпадающем​ содержит макросы, которые​Сохранить как​ образом вы сможете​ FM3, WK4​

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

​Двоичные форматы файлов для​Другие форматы файлов​ Сохраняет только активный​ 4.0 (XLM).​ файл или в​ папку, даёшь имя​

planetaexcel.ru

Как сохранить лист из экселя отдельным документом?

​ TimeSerial(0, 0, 10)’задержка​​Тот редкий (да​: Дело в том,​

​Sub SplitSheets5() Dim​​ очевидного изменения расширения​ обратной задачи: есть​ списке.​ нужно в ней​нельзя вывести на​ воспользоваться новыми возможностями,​.WK1, .WK2, .WK3, .WK4,​
​ Excel версий 5.0/95​Формат​ лист​Книга Strict Open XML​ файл PDF или​ файлу и сохраняешь.​ — ждем вып-я​ что там, единственный)​

​ что печатать на​​ s As Worksheet​ на нужное, потребуется​ одна книга Excel,​Мы собираемся скопировать выбранный​ оставить, а вы​ ленту в виде​ которые не поддерживаются​ .WKS​ (BIFF5), Excel 97—2003​

Сохранить определенные листы в один документ в формате PDF

​Расширение​​Текст (разделители — знаки​XLSX​
​ XPS. Просто помните,​ Или надо другое​ pdftk​ случай, когда пока​
​ виртуальный принтер AdobePDF​
​ For Each s​ добавить еще и​ которую нужно «разобрать»,​ лист в новую​ хотите сохранить ее​ кнопки. Однако вы​ в файлах других​Форматы файлов Lotus 1-2-3​ (BIFF8) и приложения​Описание​
​ табуляции)​Версия ISO Strict формата​ что всякий раз,​ расширение?​
​3. FileCopy «C:pdftk9999.pdf»,​ не получилось обойтись​ можно только с​ In ActiveWorkbook.Worksheets s.ExportAsFixedFormat​ уточнение формата файла​ т.е. сохранить каждый​ рабочую книгу, поэтому​ как шаблон, выберите​
​ можете добавить ее​ форматов.​ (все версии)​ Excel 2013 (BIFF12).​DBF 3, DBF 4​

​TXT​​ файла книги Excel​ когда вы сохраняете​Lbvf atljh​ «C:UsersSERGEDesktopМОЭСКне_наши» & R​
​ без Select​

​ того компьютера, на​​ Filename:=ThisWorkbook.Path & «»​ — параметр​ лист как отдельный​ в выпадающем списке​ формат XLTM.​ на панель быстрого​Примечание:​Microsoft Works​SYLK​.DBF​Сохраняет книгу в виде​ (XLSX).​ книгу в другом​: Делается это просто.​ & «» &​Sub Макрос3()​ котором установлен этот​ & s.Name &​

​FileFormat​​ файл для дальнейшего​В книгу​Если вы хотите сохранить​ доступа.​ При сохранении книги, созданной​.WKS​SLK​dBase III и IV.​ текстового файла, разделенного​Лист Excel (код)​ формате файла, часть​ Экселевский файл организован​ R & «.pdf»​Sheets(Array(«Лист1», «Лист2», «Лист3»)).Select​ виртуальный принтер. Мне​ «.pdf», Type:=xlTypePDF Next​
​:​ использования.​(To book) выбираем​ книгу в текущем​Щелкните стрелку раскрывающегося списка​ в более ранней​Формат файлов Microsoft Works​Формат Symbolic Link.​
​ Файлы этого формата​ знаками табуляции, —​XLSM​ его форматирования, данных​ как книга, открываете​4. Kill («C:pdftk*.pdf»)​ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=​ приходится работать на​ End Sub​ActiveWorkbook.SaveAs wb.Path &​
​Примеров подобного из реальной​ вариант​ формате книги Excel,​ на панели быстрого​

​ версии Excel, в​​ (все версии)​DIF​ можно открывать в​
​ для использования в​Формат Excel 2007–2013 на​

​ и функций не​​ его. Выделяете название​
​- все способы​ _​ нескольких компьютерах (на​

​ листа (внизу окна)​​ решения нашел на​

​»C:Temppost_323419.pdf», Quality:=xlQualityStandard, IncludeDocProperties​​ работе, дома и​ времени внедрять все​ & «.xlsb», FileFormat:=50​ массу. Например, файл-отчет​(New book). Ставим​Если вы хотите сохранить​Другие команды​ и более поздних​
​.DBF​Формат обмена данными.​ сохранять файлы Microsoft​ Microsoft Windows —​ поддержкой макросов. В​Более новые версии​ , который хотите​ этом сайте и​ _​ др местах), а​ вышеописанное, то можно​Для основных типов файлов​
​ с листами-филиалами нужно​ галочку в строке​ книгу в новом​.​ версий некоторые возможности​Формат файла DBASE II​Текст (разделители — знаки​ Excel в формате​ и гарантирует, что​
​ этом формате можно​ Office 2010 Office 2007​ перенести в другую​ изменил под себя​:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False​ информация находится на​ воспользоваться готовым макросом​ значения параметра​

​Дополнительные сведения о форматах​​выбраны​ Сведения о неподдерживаемых​Формат файла Quattro Pro​

​Текстовый формат со знаками​​ODS​ символы будут интерпретироваться​ макросов Excel 4.0​ типы файлов) вы​ курсор на названии​ запуска exe не​ и тут можно​ принтере — это​Зайкина​XLSX = 51​ данные в каждый​

​ новую книгу, то​​ файлов см. в​Часто используемые команды​ функциях Excel 97–2003 см.​ для MS-DOS​ табуляции в качестве​Таблица OpenDocument. Файлы приложения​ правильно. Сохраняет только​ (XLM).​ можете (и не​

planetaexcel.ru

Подскажите как можно в Excel организовать сохранение листа в отдельный файл?

​ образом лист excel​ второму и третьему​Полный список всех​ выполнить немаленькую цепочку​ Этот лист в​.​Нажмите кнопку​

​ хотите сохранить в​​Книгу Excel 2007 и более​Форматированный текст (разделители —​ электронных таблиц, поддерживающих​ текстового файла, разделенного​Шаблон​ поддерживаются в Excel​ лист из предыдущей​ файлов нет пробелов​
​ данные​ в формат PDF​ листу, а затем​ вариантов можно посмотреть​
​ действий (выбрать лист,​ новой рабочей книге​Вы можете изменить тип​
​Добавить​ формате текущей версии.​ поздних версий можно​ пробелы)​ формат таблиц OpenDocument,​ знаками табуляции, —​XLTX​
​ в конце этой​ книги. Если хотите​ и русских букв​
​и по ним​ не представляю возможным.​ нажмите удалить. Тогда​ в справке MSDN.​
​ правой кнопкой по​
​ будет единственным.​
​ файла, используемого по​.​
​На вкладке​ сохранить в формате​
​RTF​ таких как Google​
​ для использования в​
​Стандартный формат файлов Excel​ статьи.​
​ только копировать -​
​всем удачи, ну​
​ формируется (формулами) 10​
​ Если можно иначе,​ получится, что Ваш​
​Если вы хотите раскидать​ ярлычку листа, выбрать​
​Замечание:​ умолчанию при сохранении​Книгу Microsoft Office Excel​Файл​ предыдущих версий Excel,​RTF. Только из Excel.​
​ Docs или OpenOffice.org​ операционной системе Макинтош​
​ 2007—2013 для шаблонов​
​Откройте книгу, которую вы​
​ поставьте галочку в​
​ и конечно всем​
​ документов на 10​
​ то подскажите как.​
​ документ состоит из​

​ по файлам не​​Копировать​Если Вы хотите​ книги.​ 2007 можно сохранить​

​выберите команду​​ в файле текстового​Внедренный объект​ Calc. Таблицы в​ — и гарантирует,​ Excel. Не позволяет​

​ хотите сохранить.​​ боксе -копировать, в​ гуру этого сайта​ листах.​Макрорекодер я использовал​ одного листа.​ все листы в​, указать отдельный предварительно​ переместить выбранный лист​Нажмите​ в файле другого​Сохранить как​ формата, а также​GIF, JPG, DOC, XLS​ формате ODS также​ что символы табуляции,​ сохранять код макросов​На вкладке​ этом же меню​ отельное спасибо за​Сохранить эти 10​ при сохранении в​

​В случае если​

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

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

Первый — стандартными средставми приложения Excel. Кликаем правой кнопкой мышки в области наименований листов и выбираем пункт меню «Переместить/скопировать…»

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

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

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

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

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

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

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

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

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

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

макрос (надстройка) для сохранения листов отдельными файлами

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

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

Экспортируйте и сохраняйте листы как новую книгу с помощью команды «Переместить» или «Копировать»

Экспорт и сохранение листов в виде новой книги с кодом VBA

Экспортируйте и сохраняйте листы как новую книгу с Kutools for Excel

---

Экспортируйте и сохраняйте листы как новую книгу с помощью команды «Переместить» или «Копировать»

Посмотрите на график Переместить или скопировать Команда поможет вам быстро экспортировать или скопировать один или несколько листов в новую книгу.

Шаг 1: Выберите имена листов на панели вкладок. Вы можете выбрать несколько, удерживая Ctrl ключа или сдвиг .

Шаг 2. Щелкните правой кнопкой мыши имя рабочего листа и щелкните значок Переместить или скопировать из контекстного меню.

Шаг 3: В Переместить или скопировать в диалоговом окне выберите (новая книга) элемент из раскрывающегося списка Переместить выбранные листы в книгу.

Шаг 4: Затем нажмите OK, теперь вы перешли на новая рабочая тетрадь с экспортированными или скопированными листами щелкните Файл > Сохраните чтобы сохранить новую книгу.

Примечание: В разделе Переместить или скопировать диалоговое окно, есть Создать копию вариант. Если вы не установите этот флажок, выбранные листы будут перемещены из исходной книги; если отметьте его, он скопирует выбранные листы.

---

---

Экспорт и сохранение листов в виде новой книги с кодом VBA

Этот следующий код экспортирует каждый видимый лист в новую книгу и сохранит книгу с именем исходного листа во вновь созданной папке по тому же пути, что и активная книга. Пожалуйста, сделайте следующие шаги:

Шаг 1: Удерживайте ALT + F11 ключи, и он открывает Microsoft Visual Basic для приложений окно.

Шаг 2: нажмите Вставить > Модули, и вставьте следующий макрос в окно модуля:

VBA: экспорт и сохранение листов в виде новой книги в новой папке.

Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook

DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "" & xWb.Name & " " & DateString

If Val(Application.Version) < 12 Then
    FileExtStr = ".xls": FileFormatNum = -4143
Else
    Select Case xWb.FileFormat
        Case 51:
            FileExtStr = ".xlsx": FileFormatNum = 51
        Case 52:
            If Application.ActiveWorkbook.HasVBProject Then
                FileExtStr = ".xlsm": FileFormatNum = 52
            Else
                FileExtStr = ".xlsx": FileFormatNum = 51
            End If
        Case 56:
            FileExtStr = ".xls": FileFormatNum = 56
        Case Else:
            FileExtStr = ".xlsb": FileFormatNum = 50
        End Select
End If

MkDir FolderName

For Each xWs In xWb.Worksheets
On Error GoTo NErro
    If xWs.Visible = xlSheetVisible Then
    xWs.Select
    xWs.Copy
    xFile = FolderName & "" & xWs.Name & FileExtStr
    Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
    xNWb.SaveAs xFile, FileFormat:=FileFormatNum
    xNWb.Close False, xFile
    End If
NErro:
    xWb.Activate
Next

    MsgBox "You can find the files in " & FolderName
    Application.ScreenUpdating = True
End Sub

Шаг 3: нажмите F5 ключ для запуска этого кода. Появится окно с подсказкой, в котором будет указано расположение новых экспортированных книг, и все рабочие листы исходной книги были экспортированы в некоторые новые отдельные книги, которые называли исходные листы в новой конкретной папке. Смотрите скриншоты:

---

Экспортируйте и сохраняйте листы как новую книгу с Kutools for Excel

Если у вас есть несколько листов, которые необходимо сохранить как отдельную книгу, первый метод не может быть хорошим выбором. И код VBA может быть немного сложным для начинающих Excel. Здесь вы можете использовать Разделить книгу полезности Kutools for Excel чтобы быстро и легко экспортировать и сохранять каждый лист одной книги в отдельную новую книгу.

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

Шаг 1: нажмите Кутулс Плюс > Workbook > Разделить книгу…. Смотрите скриншот:

Шаг 2: в Разделить книгу диалоговое окно, выполните следующие действия:

Шаг 3: Затем нажмите Трещина и выберите папку, в которую вы хотите поместить новые книги. Смотрите скриншот:

Шаг 4: Затем нажмите OK, затем каждый проверенный лист в Разделить книгу диалоговое окно экспортируется и сохраняется как отдельная книга. Каждая новая книга названа в соответствии с именем исходного листа. Смотрите скриншот:

Нажмите, чтобы узнать больше об этом инструменте Split Workbook.

Экспортируйте и сохраняйте каждый лист как новую книгу

---

---

Статьи по теме:

• Объедините несколько книг в одну книгу
• Сохранить выбор как отдельный файл
• Разделить книгу на отдельные файлы Excel