Сохранить лист под именем excel

Если в книге 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, которую нужно «разобрать», т.е. сохранить каждый лист как отдельный файл для дальнейшего использования.

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

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

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

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

Wasilich Дата: Понедельник, 28.10.2013, 22:20 | Сообщение № 1 Группа: Друзья Ранг: Старожил Сообщений: 1232 Репутация: 326 ± Замечаний: 0% ± 2003 Часто встречал вопрос: — «Как сохранить лист в отдельный файл?» Вот пример сохранения сразу несколько листов и по одному. Корректировка и сокращение макросов приветствуется. К сообщению приложен файл: 7023102.xls (49.5 Kb)   Ответить

AndreTM Дата: Вторник, 29.10.2013, 02:38 | Сообщение № 2 Группа: Друзья Ранг: Старожил Сообщений: 1762 Репутация: 498 ± Замечаний: 0% ± 2003 & 2010 Я, вроде бы, там и там как раз и говорил про это. А корректировка… Ну, откорректируйте: — .InitialFileName = iPath в вашем варианте излишен. И, мне кажется, что при одиночном сохранении — подстановка имени файла в диалог более логична — .DisplayAlerts — желательно отключать/включать тогда, когда необходимо подавить сообщения, а не на всё время процедуры — Sheets(Sh.Name). <=> Sh. (не забывайте — Sheets() относится к ActiveWorkbook., так что использование коллекции без указания родителя — чревато) — Попробуйте избавиться от использования ActiveWorkbook. — Процедура массового сохранения может быть с параметром, как раз и определяющим этот ваш «конкретный» лист (или устанавливающий его на ActiveSheet) — Процедуру сохранения одного листа можно заменить на функцию с параметрами, возврат — сохраненное имя; и тогда её можно будет использовать в процедуре массового сохранения, которая будет заключаться только в переборе нужных листов — «Очистку» листа копии тоже можно сделать параметрической — ввести ещё один параметр функции, который будет определять, что именно нужно очистить на листе — И плиз, не надо месседжбоксов! А если очень надо — то просто вызовы процедур оборачиваются в дополнительный интерактив. Ведь ваше сообщение неинформативно — вы же правильность копирования нигде не проверяете. Skype: andre.tm.007 Donate: Qiwi: 9517375010 Сообщение отредактировал AndreTM — Вторник, 29.10.2013, 02:50   Ответить

RAN Дата: Вторник, 29.10.2013, 04:19 | Сообщение № 3 Группа: Друзья Ранг: Экселист Сообщений: 5645 Попробуйте избавиться от использования ActiveWorkbook А чем не нравится ActiveWorkbook, и как еще можно идентифицировать новую книгу до ее сохранения? Быть или не быть, вот в чем загвоздка!   Ответить

AndreTM Дата: Вторник, 29.10.2013, 04:44 | Сообщение № 4 Группа: Друзья Ранг: Старожил Сообщений: 1762 Репутация: 498 ± Замечаний: 0% ± 2003 & 2010 В этом методе (когда копируется один лист через .Copy без параметров) — никак. Впрочем, я же показывал: сразу после копирования — назначаем ActiveWorkbook объектной переменной. И дальше работаем исключительно с ней. В других же случаях — методы возвращают ссылку на книгу, например: [vba] Код Set NewWB = Workbooks.Add [/vba] Skype: andre.tm.007 Donate: Qiwi: 9517375010   Ответить

Wasilich Дата: Вторник, 29.10.2013, 12:53 | Сообщение № 5 Группа: Друзья Ранг: Старожил Сообщений: 1232 Репутация: 326 ± Замечаний: 0% ± 2003 А корректировка… Ну, откорректируйте: Андрей, я не себя имел ввиду. Ибо данный пример сделан на моем уровне познания VBA. И пример по теме может быть не только мой. Так что, предлагайте свои варианты.   Ответить

RAN Дата: Вторник, 29.10.2013, 22:27 | Сообщение № 6 Группа: Друзья Ранг: Экселист Сообщений: 5645 Wasilic, вариант для 1 листа [vba] Код Private Sub Save_as() 10  With Application.FileDialog(msoFileDialogSaveAs) 20      .InitialFileName = ThisWorkbook.Path & «» & «Сравнение» 30      If .Show = 0 Then Exit Sub 40      ThisWorkbook.ActiveSheet.Copy 50      Application.DisplayAlerts = False 60      .Execute 70      Application.DisplayAlerts = True 80  End With 90  ActiveWorkbook.Close False End Sub [/vba] Быть или не быть, вот в чем загвоздка!   Ответить

Wasilich Дата: Вторник, 29.10.2013, 23:40 | Сообщение № 7 Группа: Друзья Ранг: Старожил Сообщений: 1232 Репутация: 326 ± Замечаний: 0% ± 2003 Wasilic, вариант для 1 листа Спасибо Андрей. Только Ник мой убери, это ж не для меня, и цифорки из кода тоже, иначе будут вопросы — «а зачем цифры?»! Вот еще варианты в примере, в т.ч. с макросом от AndreTM если он не возражает. К сообщению приложен файл: ___2.xls (45.0 Kb)   Ответить

RAN Дата: Среда, 30.10.2013, 00:23 | Сообщение № 8 Группа: Друзья Ранг: Экселист Сообщений: 5645 Любой каприз …. Вариант для 1 листа [vba] Код Private Sub Save_as()     With Application.FileDialog(msoFileDialogSaveAs)         .InitialFileName = ThisWorkbook.Path & «» & «Сравнение»         If .Show = 0 Then Exit Sub         ThisWorkbook.ActiveSheet.Copy         Application.DisplayAlerts = False         .Execute         Application.DisplayAlerts = True     End With     ActiveWorkbook.Close False End Sub [/vba] Быть или не быть, вот в чем загвоздка! Сообщение отредактировал RAN — Среда, 30.10.2013, 00:25   Ответить

RAN Дата: Среда, 30.10.2013, 00:33 | Сообщение № 9 Группа: Друзья Ранг: Экселист Сообщений: 5645 Wasilic, лучше выкладывай коды, а не файлы. Файл качать надо, а по коду сразу может быть понятно — не то. Файлы — бонус. Быть или не быть, вот в чем загвоздка!   Ответить

Wasilich Дата: Среда, 30.10.2013, 01:33 | Сообщение № 10 Группа: Друзья Ранг: Старожил Сообщений: 1232 Репутация: 326 ± Замечаний: 0% ± 2003 Файл качать надо, а по коду сразу может быть понятно — не то. Это нам с тобой просто, посмотрел и понятно. А тем кто знает, что «никто не знает» — сложновато будет. А, в фале оно уже как бы и работает. ИМХО.   Ответить

AndreTM Дата: Среда, 30.10.2013, 02:47 | Сообщение № 11 Группа: Друзья Ранг: Старожил Сообщений: 1762 Репутация: 498 ± Замечаний: 0% ± 2003 & 2010 от AndreTM если он не возражает Нэ вазражайу (с) К сообщению приложен файл: 0748227.jpg (11.4 Kb) Skype: andre.tm.007 Donate: Qiwi: 9517375010   Ответить

DAKRAY Дата: Четверг, 09.01.2014, 18:19 | Сообщение № 12 Группа: Пользователи Ранг: Участник Сообщений: 73 Репутация: 1 ± Замечаний: 0% ± Excel 2003 Всем добрый. В приложении еще один простенький вариант сохранения. Изначальный код мне скинул antal10, переделал под свои нужды. [vba] Код Private Sub SaveSheets_Click() Dim Fname As String      Application.ScreenUpdating = False      Fname = ThisWorkbook.Path & «» & Sheets(«Sheet1»).Range(«A1″).Value & » » & Range(«B1»).Text & «.xls» ‘тут название файла состоит из названия фирмы и нр. счета      Sheets(Array(«Sheet1», «Sheet2»)).Copy ‘указываем листы, которые хотим оставить      Sheets(«Sheet1»).Shapes(«SaveSheets»).Delete ‘удаляем ненужные кнопки (в моем случае у меня есть кнопки, которые должны остаться)      With ActiveWorkbook           Application.DisplayAlerts = False           .SaveAs Filename:=Fname           Application.ScreenUpdating = True           Application.DisplayAlerts = True           ‘.Close      End With      Workbooks(«Book_Save.xls»).Close 0 End Sub [/vba] П.С. Только вот никак не получается сделать так, чтобы модуль (функция) тоже копировался в новую книгу. Там у меня сумма прописью. Можно в принципе и значение только копировать, не обязательно с модулем — как проще. Если не сложно help подскажите!)   Ответить

shebelme Дата: Понедельник, 06.10.2014, 08:05 | Сообщение № 13 Группа: Пользователи Ранг: Прохожий Сообщений: 2 Репутация: 0 ± Замечаний: 0% ± Excel 2007 Прошу вашей помощи! Подскажите как изменить код таким образом, что бы был прописан конкретный адрес для сохранения нового файла, а не ручной выбор. За ранее спасибо!   Ответить

Wasilich Дата: Среда, 08.10.2014, 00:21 | Сообщение № 14 Группа: Друзья Ранг: Старожил Сообщений: 1232 Репутация: 326 ± Замечаний: 0% ± 2003 изменить код таким образом, что бы был прописан конкретный адрес Так попробуйте. [vba] Код Sub Лист_в_файл() ‘Сохранить текущий лист.      Dim List$, iPath$          iPath = «D:Папкапапка» ‘ конкретный адрес для сохранения нового файла          Application.ScreenUpdating = False      Application.DisplayAlerts = False      List = ActiveSheet.Name      Sheets(List).Copy      Sheets(List).UsedRange.Value = Sheets(List).UsedRange.Value      Sheets(List).Buttons.Delete ‘Удаляем кнопки      ‘Sheets(List).DrawingObjects.Delete ‘Удаляем все элементы      ActiveWorkbook.SaveAs iPath & List ‘& «.xls»      ActiveWorkbook.Close False      Application.DisplayAlerts = True      Application.ScreenUpdating = True      MsgBox «Готово!»   End Sub [/vba]   Ответить

Ферхо Дата: Воскресенье, 07.12.2014, 14:28 | Сообщение № 15 Группа: Пользователи Ранг: Новичок Сообщений: 10 Репутация: 1 ± Замечаний: 0% ± Excel 2010 Не претендую ни на что, просто я делаю так (возможно кому-то пригодится идея) [vba] Код ‘сохранить лист в отдельном файле ‘sSheetName — имя сохраняемого листа (если такого нет — ни чего не делается) ‘sNewFileName — имя файла (если не задано — берется имя листа) ‘sNewPath — куда сохраняем, если не задано, в текущую ‘sRngDelList — если надо указываем диапазоны столбцов для удаления ‘bDelFurmula — если указано — удаляем формулы и ссылки ‘sSubRun — если нужна дополнительная обработка — укажим нужную процедуру Function fnSheetsSave(ByVal sSheetName As String, _                          Optional ByVal sNewFileName As String = «», _                          Optional ByVal sNewPath As String = «», _                          Optional ByVal sRngDelList As String = «», _                          Optional ByVal bDelFurmula As Boolean = False, _                          Optional ByVal sSubRun As String = «») As Boolean                     Dim sFullFileName As String, arDelCol, iI As Integer, sCol As String Dim strPS As String: strPS = Application.PathSeparator      fnSheetsSave = False      If Not fnSheetsIsExist(sSheetName) Then Exit Function            TRC.Pop «fnSheetsSave»      TRC.INFO «Сохранение листа в отдельную книгу», eColorBloc            If sNewFileName = «» Then sNewFileName = sSheetName        mChkPath:      ‘проверим и если что, сформируем путь      If sNewPath = «» Then          sNewPath = ActiveWorkbook.path & strPS      Else          If Right(sNewPath, 1) <> strPS Then sNewPath = sNewPath & strPS          If Not fnPathIsExists(sNewPath) Then              sNewPath = «»              GoTo mChkPath          End If      End If            ‘создаем полный путь к новому файлу      sFullFileName = sNewPath & sNewFileName & IIf(fnGetFileExt(sNewFileName) = «», «.xls», «»)            ‘возможен долгий процесс, поэтому      ‘дадим возможность поработать другим      DoEvents            On Error Resume Next      ‘создаем копию листа…      ‘создается новая книга и она становится активной      ThisWorkbook.Sheets(sSheetName).Copy      TRC.NOERROR «Лист скопирован в новую книгу (» & sSheetName & «)»      If TRC.IFERROR(«ОШИБКА копирования листа (» & sSheetName & «) %1») Then GoTo lEXITfnSheetsSave      ‘после возможно долгого процесса      ‘дадим возможность поработать другим      DoEvents            Application.ScreenUpdating = False            If bDelFurmula = True Then          ‘убираем ссылки и формулы          ActiveSheet.Range(«A1»).CurrentRegion.Value = ActiveSheet.Range(«A1»).CurrentRegion.Value          TRC.INFO «Формулы удалены»      End If            ‘однозначно убираем перенос по словам      ActiveSheet.Range(«A1»).CurrentRegion.WrapText = False            ‘если указаны столбцы на удаление — удалим их      If sRngDelList <> «» Then          arDelCol = Split(sRngDelList, » «)          For iI = 0 To UBound(arDelCol)              sCol = arDelCol(iI)              ActiveSheet.Range(sCol).Delete          Next iI          TRC.INFO «Столбцы удалены (» & sRngDelList & «)»      End If            ‘если указана дополнительная функция для обработки — выполним ее      If sSubRun <> «» Then          Application.Run sSubRun          TRC.INFO «Функция дополнительной обработки выполнена (» & sSubRun & «)»      End If            ‘сохраняем файл со всеми изменениями      ActiveWorkbook.SaveCopyAs sFullFileName      ActiveWorkbook.Close SaveChanges:=False      TRC.NOERROR «Новая книга сохранена (» & sFullFileName & «)»      If TRC.IFERROR(«ОШИБКА! Книга не сохранена (» & sFullFileName & «) %1») Then GoTo lEXITfnSheetsSave            fnSheetsSave = True        lEXITfnSheetsSave:      Application.ScreenUpdating = True            TRC.Push End Function [/vba] Если очень хочется, то можно! 2B|`2B?   Ответить

kbcgv Дата: Суббота, 10.01.2015, 15:54 | Сообщение № 16 Группа: Пользователи Ранг: Прохожий Сообщений: 2 Репутация: 0 ± Замечаний: 20% ± Excel 2010 Wasilic, вариант для 1 листа Private Sub Save_as() 10 With Application.FileDialog(msoFileDialogSaveAs) 20 .InitialFileName = ThisWorkbook.Path & «» & «Сравнение» 30 If .Show = 0 Then Exit Sub 40 ThisWorkbook.ActiveSheet.Copy 50 Application.DisplayAlerts = False 60 .Execute 70 Application.DisplayAlerts = True 80 End With 90 ActiveWorkbook.Close False End Sub Пригодился идеально ваш код. Спасибо. Попытался из него сделать надстройку. Чтобы добавить ссылку на макрос в панель быстрого запуска эксель. Сохранив его в формате надстройки. В этом случае не работает, только из этого же файла. Подскажите пожалуйста как его сделать для надстройки. В нём имя изменил, для того чтобы формировал имя из ячеек на листе. [vba] Код Sub Save_as() 10 With Application.FileDialog(msoFileDialogSaveAs) 20 .InitialFileName = [b3] & » » & [b8] 30 If .Show = 0 Then Exit Sub 40 ThisWorkbook.ActiveSheet.Copy 50 Application.DisplayAlerts = False 60 .Execute 70 Application.DisplayAlerts = True 80 End With 90 ActiveWorkbook.Close False End Sub [/vba] [moder]Оформляйте коды тегами Кнопка #[/moder] Сообщение отредактировал DJ_Marker_MC — Суббота, 10.01.2015, 16:28   Ответить

RAN Дата: Суббота, 10.01.2015, 16:44 | Сообщение № 17 Группа: Друзья Ранг: Экселист Сообщений: 5645 формировал имя из ячеек на листе. В отличие от макроса из #15, этот макрос не может в принципе. Для того, чтобы работал из надстройки, нужно так [vba] Код 40 ActiveWorkbook.ActiveSheet.Copy [/vba] Быть или не быть, вот в чем загвоздка!   Ответить

kbcgv Дата: Суббота, 10.01.2015, 17:32 | Сообщение № 18 Группа: Пользователи Ранг: Прохожий Сообщений: 2 Репутация: 0 ± Замечаний: 20% ± Excel 2010 В отличие от макроса из #15, этот макрос не может в принципе. Не может делать имя из ячеек? Я в этом ничего практически не понимаю, методом тыка всё. Именно из ячееек b3 и b8 и делает имя. И всё как хотелось работает в виде надстройки, благодаря: Для того, чтобы работал из надстройки, нужно так 40 ActiveWorkbook.ActiveSheet.Copy Спасибо.   Ответить

AVI Дата: Среда, 07.09.2016, 05:36 | Сообщение № 19 Группа: Проверенные Ранг: Ветеран Сообщений: 523 Репутация: 17 ± Замечаний: 0% ± Excel 2016 Добрый день! Как сделать так, что бы при сохранении файла удалялись 5 первых столбцов? И как при сохранении можно самостоятельно называть файл? Сообщение отредактировал AVI — Среда, 07.09.2016, 05:39   Ответить

китин Дата: Среда, 07.09.2016, 07:20 | Сообщение № 20 Группа: Модераторы Ранг: Экселист Сообщений: 6973 Репутация: 1063 ± Замечаний: 0% ± Excel 2007;2010;2016 правила прочитать и задать вопрос в соответствующей теме Не судите очень строго:я пытаюсь научиться ЯД 41001877306852   Ответить