Как в excel лист выделить в отдельный файл

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

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

save-sheets-as-files.png

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

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

Способ 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, как их использовать.

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

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

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

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

    Ярлычки листов Excel находятся в нижней части окна Excel.

  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. ​ОК​​ вновь созданную книгу​ Изображение кнопки Office​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. ​ ярлычку листа, который​​.​ Изображение кнопки Office​Сохранить​ форматов используйте стрелки.​​ указанные ниже действия.​​).​

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

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

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

Панель быстрого доступа

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

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

support.office.com

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

Копируем и перемещаем листы в Excel

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

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

Копируем и перемещаем листы в Excel

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

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

Копируем и перемещаем листы в Excel

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

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

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

Копируем и перемещаем листы в Excel

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

Копируем и перемещаем листы в Excel

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

Копируем и перемещаем листы в Excel

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

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

​DIF​

office-guru.ru

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

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

Как сохранить лист вȎxcel как отдельный документ

​В категории​ книги в файл​ или текстовый формат​ Если вы скопируете метафайл​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 на​

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

​Если лень или нет​​ «» & s.Name​ жизни можно привести​

​Новая книга​

​ выберите формат XLSX.​ доступа и выберите​
​ формате книги Excel 2007​DBF 2​DIF​
​ Microsoft Excel, но​ другой операционной системе​
​ основе XML с​
​ может быть сохранены.​

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

​»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​ информация находится на​ воспользоваться готовым макросом​ значения параметра​

​ разделить на отдельные​​Создать копию​
​ двоичном формате файла,​Убедитесь, что в поле​ и часть форматирования​WQ1​ табуляции)​

​ dBase нельзя.​
​ символы табуляции, разрывы​
​ сохранять код макросов​ ​
​ книгу. Кликаете правую​- сколько ни​
​End Sub​
​ флешке. На всех​

​ из моей надстройки​FileFormat​ книги по листам,​

​(Create a copy).​​ выберите формат XLSB.​
​Выбрать команды из​ могут быть потеряны.​.WQ1​
​TXT​Таблица OpenDocument​ строк и другие​ VBA и листы​
​Список форматов (также называемые​ кнопку мыши удерживая​ искал работающих процедур​Но наверняка как-то​
​ компах установить виртуальный​ PLEX:​следующие:​

​ чтобы передать затем​ Поскольку мы создаём​

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

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

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

​ листа, выбираете меню​​ нашел, да и​ иначе написать…​ ни к чему.​: выделить нужное и​
​XLSM = 52​ филиал и т.д.​ в списке​
​ статье Поддерживаемые Excel​.​ в статье Использование​
​WB1, WB3​ разделителей.​ Excel 2010 можно​
​ активный лист.​
​Двоичная книга Excel​ может открывать или​
​ перенести-скопировать, в новом​ с запуском bat​[email protected]​Сохраняю я в​ выбрать «Сохранить как»​
​XLSB = 50​Если делать эту процедуру​Перед листом​ форматы файлов.​
​Найдите в списке кнопку​ Excel с более​
​WB1, WB3​CSV (разделители — запятые)​ сохранять в формате,​
​Текст (Макинтош)​XLSB​ сохранять в Excel​

​ меню выбираете ту​ тоже были проблемы:​: продолжение:​ отдельные файлы потому​
​Asd asd​

​XLS = 56​ вручную, то придется​(Before sheet) не​Нажмите кнопку​
​Сохранить как​ ранними версиями Excel.​Quattro Pro 5.0 и​CSV​

​ который позволяет открывать​TXT​Формат двоичных файлов (BIFF12)​ 2013-файла, который отображается​

​ книгу, куда хотите​

​ bat работает только​процедура 5 раз​ как сохранить иным​: Нажмите ПКМ по​
​TXT = 42​ для каждого листа​ будет других листов.​Сохранить​и выберите ее.​Откройте файл, который вы​ 7.0 для Windows.​Формат с разделителями-запятыми​ их в редакторах​Сохраняет книгу в виде​

​ для Excel 2007—2013.​ форматы файлов, которые​ скопировать или перенести​ если в пути-имени​ меняет в листе1​

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 для Microsoft 365 Excel 2021 Excel 2019 Excel 2016 Excel 2013 Еще…Меньше

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

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

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

    Ярлычки листов Excel находятся в нижней части окна Excel.

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

    Контекстное меню вкладки

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

    Диалоговое окно "Переместить или скопировать"

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

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

    Флажок "Создать копию" находится в нижней части диалогового окна.

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

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

Нужна дополнительная помощь?

Содержание:

  1. Разделить каждый лист на отдельный файл Excel
  2. Разделить каждый рабочий лист и сохранить как отдельные PDF-файлы
  3. Разделите только те рабочие листы, которые содержат слово / фразу, в отдельные файлы Excel

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

Это может потребоваться, когда вы составляете листы за разные месяцы или регионы, продукты / клиенты и хотите быстро получить отдельную книгу для каждого листа (в виде файла Excel или PDF).

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

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

Разделить каждый лист на отдельный файл Excel

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

Разделить каждый лист Excel на отдельные файлы (шаг за шагом)

Чтобы разделить эти листы в отдельный файл Excel, вы можете использовать приведенный ниже код VBA:
'Код, созданный Sumit Bansal из trumpexcel.com Sub SplitEachWorksheet () Dim FPath As String FPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each ws In ThisWorkbook.Sheets ws.Copy Application.ActiveWorkbook.SaveAs Имя файла: = FPath & "" & ws.Name & ".xlsx" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
Перед использованием приведенного выше кода VBA необходимо убедиться в нескольких вещах:

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

Как только вы это сделаете, вы можете поместить указанный выше код VBA в файл и запустить его.

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

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

Ниже приведены шаги по размещению этого кода VBA в книге Excel (они будут такими же для всех других методов, показанных в этом руководстве):

Куда поставить этот код?

Ниже приведены шаги по размещению кода в редакторе Visual Basic, где он может быть выполнен:

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

Имя каждого сохраненного файла совпадает с именем листа в основном файле.

Разделить каждый лист Excel на отдельные файлы (шаг за шагом)

Поскольку вы поместили код VBA в книгу Excel, вам необходимо сохранить его в формате .XLSM (который является форматом с поддержкой макросов). Это гарантирует, что макрос будет сохранен и будет работать, когда вы откроете этот файл в следующий раз.

Обратите внимание, что я использовал строки Application.ScreenUpdating = False и Application.DisplayAlerts = False в коде, чтобы все происходило в серверной части и не видеть, что происходит на вашем экране. Как только код запускается, разделяет листы и сохраняет их, мы возвращаем им значение ИСТИНА.

Рекомендуется создать резервную копию основного файла (в котором есть листы, которые вы хотите разделить). Это гарантирует, что вы не потеряете свои данные в случае, если что-то пойдет не так, или если Excel решит замедлить работу или дать сбой.

Разделить каждый рабочий лист и сохранить как отдельные PDF-файлы

Если вы хотите разделить листы и сохранить их как файлы PDF вместо файлов Excel, вы можете использовать следующий код:
'Код, созданный Sumit Bansal из trumpexcel.com Sub SplitEachWorksheet () Dim FPath As String FPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each ws In ThisWorkbook.Sheets ws.Copy Application.ActiveSheet.ExportAsport Введите: = xlTypePDF, Имя файла: = FPath & "" & ws.Name & ".xlsx" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
Перед использованием этого кода необходимо убедиться в следующем:

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

Приведенный выше код разделяет каждый лист в файле Excel и сохраняет его в формате PDF в той же папке, где вы сохранили основной файл Excel.

Разделите только те рабочие листы, которые содержат слово / фразу, в отдельные файлы Excel

Если у вас много листов в книге, и вы хотите разделить только те листы, в которых есть определенный текст, вы также можете это сделать.

Например, предположим, что у вас есть файл Excel, содержащий данные за несколько лет, и каждый лист в файле имеет номер года в качестве префикса. Что-то вроде того, что показано ниже:

Теперь предположим, что вы хотите разделить все листы на период с 21 по 2022 год и сохранить их в виде отдельных файлов Excel. Для этого вам нужно как-то проверить имя каждого рабочего листа, и только те листы, которые имеют номер 2021-2022, должны быть разделены и сохранены, а остальные должны быть оставлены нетронутыми.

Это можно сделать с помощью следующего макроса VBA:
'Код, созданный Sumit Bansal из trumpexcel.com Sub SplitEachWorksheet () Dim FPath As String Dim TexttoFind As String TexttoFind = "2020" FPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each ws In ThisWorkbook. Таблицы Если InStr (1, ws.Name, TexttoFind, vbBinaryCompare) 0 Тогда ws.Copy Application.ActiveWorkbook.SaveAs Имя файла: = FPath & "" & ws.Name & ".xlsx" Application.ActiveWorkbook.Close False End If Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
В приведенном выше коде я использовал переменную TexttoFind, которой изначально было присвоено значение «2020».

Затем код VBA использует цикл For Next в VBA для просмотра каждого рабочего листа, а затем проверяет имя каждой функции INSTR рабочего листа. Эта функция проверяет, есть ли в имени листа слово 2021-2022 или нет. Если это так, он вернет номер позиции, в которой он нашел этот текст (в данном случае это 2021-2022 годы).

И если он не находит искомый текст, он возвращает 0.

Это используется с условием IF Then. Поэтому, если имя листа содержит текстовую строку 2021-2022, оно будет разделено и сохранено как отдельный файл. И если у него нет этой текстовой строки, условие IF не будет выполнено, и ничего не произойдет.

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

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

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

как создать копию листа в excel

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

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

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

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

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

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

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

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

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

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

kak razdelit knigu na otdelnye listyCompleteSolutionмакрос (надстройка) для сохранения листов отдельными файлами

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

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

Понравилась статья? Поделить с друзьями:
  • Как в excel копировать правила условного форматирования
  • Как в excel левсимв до пробела
  • Как в excel копировать несколько ячеек
  • Как в excel ластик
  • Как в excel копировать несколько строк