Как сохранить каждый лист Excel в отдельный файл? - Itsovet61.ru

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

Иногда вам нужно сохранить файлы Excel как PDF файлов. Мы представим два метода для сохранения каждого рабочего листа как отдельного PDF .

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

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

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

PDF — широко распространенный среди пользователей формат файлов благодаря своему характеру. Поэтому иногда вам нужно сохранить файлы Excel как файлы PFD. И способ сохранения как PDF файлы очень просто.

Сохранить листы Excel как PDF Файлы.

Чтобы сохранить листы Excel как PDF файлы очень просто. Вот шаги по сохранению рабочего листа как PDF .

  1. Подойдите к листу, который нужно сохранить как PDF.
  2. Щелкните вкладку «Файл» на ленте.
  3. Затем нажмите кнопку «Сохранить как».
  4. Далее в окне «Сохранить как» выберите путь, по которому вам нужно сохранить.
  5. А затем отредактируйте имя нового файла.
  6. Теперь выберите «PDF»В части« Сохранить как тип ».
  7. После этого нажмите «Сохранить». Таким образом, текущий рабочий лист был сохранен как PDF файл. Кроме того, если вам нужно сохранить другие листы как отдельные PDF файлы, вы можете повторить вышеуказанные шаги для сохранения один за другим.

С другой стороны, если вам нужно сохранить всю книгу как PDF файл, выполните следующие действия.

  1. Щелкните правой кнопкой мыши вкладку одного листа.
  2. Затем выберите в меню опцию «Выбрать все листы». Таким образом, вы создали группу листов.
  3. Повторите шаги 2-7, чтобы сохранить книгу как PDF файл. Таким образом, весь лист будет в одном PDF .

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

Метод 1: разделить документ

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

  1. Выполните шаги, описанные в предыдущей части, и сохраните весь файл Excel как файл PFD.
  2. А затем откройте PDF файл в PDF Приложение.
  3. В PDF файл, для каждого листа по 3 страницы. Здесь нажмите кнопку «Закладки» справа.
  4. Теперь переместите курсор в начало первой страницы.
  5. Затем нажмите кнопку «Новая закладка» на панели закладок.
  6. Теперь введите имя в новую закладку. Таким образом, вы вставили закладку для первого рабочего листа.
  7. Повторите шаги 4-6 и добавьте закладки для других листов в файле.
  8. Теперь щелкните вкладку «Документ» на панели инструментов.
  9. Затем выберите в подменю опцию «Разделить документ».
  10. В окне «Разделить документ» выберите вариант «Закладки верхнего уровня».
  11. Затем нажмите кнопку «ОК» в окне.
  12. Далее вы увидите эту информацию. Это означает, что вы успешно разбили документ. И здесь нажмите кнопку «ОК».

Теперь вы можете перейти в папку, в которой вы сохранили PDF файл раньше. Новый PDF файлы будут сохранены по тому же пути. Вы видите, что есть три новых PDF файлы в пути. И им будут присвоены названия Part1, Part2 и Part3. Вы также можете изменить имя по своему усмотрению.

Метод 2: используйте коды VBA

Если нет PDF приложения на вашем компьютере, вы также можете использовать коды VBA для сохранения рабочих листов как отдельных PDF файлы.

  1. Нажмите комбинацию клавиш «Alt + F11» на клавиатуре, чтобы открыть редактор Visual Basic.
  2. Затем щелкните правой кнопкой мыши проект VBA.
  3. В новом меню наведите курсор на опцию «Вставить».
  4. Затем выберите в подменю опцию «Модуль». Таким образом, вы вставили модуль в файл.
  5. Теперь введите в модуль следующие коды VBA:

Dim CurWorksheet как рабочий лист

Для каждого CurWorksheet в ActiveWorkbook.Worksheets

CurWorksheet.ExportAsFixedFormat Тип: = xlTypePDF, _

Имя файла: = Application.ActiveWorkbook.Path & «» & CurWorksheet.Name, _

Качество: = xlQualityStandard, _

IncludeDocProperties: = True, _

IgnorePrintAreas: = Ложь, _

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

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

На изображении видно, что есть три новых PDF файлы с соответствующим именем рабочего листа. Это означает, что вы выполнили задачу.

Сравнение двух методов

Оба метода могут решить вашу проблему и сохранить листы Excel как отдельные PDF файлы. Но при необходимости нужно выбирать один способ. В таблице ниже мы перечислили преимущества и недостатки двух методов.

2. Установка закладок может дать вам больше гибкости при разделении документов. Например, вы также можете ввести два листа в один PDF файлы, установив закладки в другом месте.

1. Вам не нужно использовать другое программное обеспечение, Excel справится с этой задачей.

2. Вы можете быстро выполнить эту задачу за короткое время, всего лишь нажав кнопку «F5» на клавиатуре.

2. По сравнению с использованием кодов VBA на этом этапе больше шагов. Иногда в файле Excel много листов, использование этого метода и добавление закладок может занять много времени.

1. Если вы не знакомы с Excel VBA, вы можете столкнуться с ошибками при запуске процедуры.

2. Если вам нужно сохранить файл Excel как один PDF файлов или введите два или более рабочих листа в один PDF файл, вам необходимо изменить коды VBA.

Всем нужен мощный инструмент восстановления

Поскольку все больше и больше людей используют файлы Excel, инструмент восстановления Excel теперь необходим.ost пользователей. Существует множество причин, которые могут повредить файл Excel, включая человеческие ошибки, вирусы, вредоносные программы, злоумышленники и другие внутренние и внешние факторы. Иногда авария приносит нам большие убытки. Таким образом, инструмент восстановления Excel очень важен. Наш мощный инструмент способен исправить ошибку XLS и другое необычное поведение в Excel. Имея под рукой этот инструмент, вы никогда не будете беспокоиться о важных файлах.

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

Помощь в написании контрольных, курсовых и дипломных работ здесь.

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

Сохранение листа книги в отдельный файл в альбомном виде
Добрый день! Есть данный макрос, он сохраняет лист из книги в отдельный файл, но не совсем так как.

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

Сохранение текущего листа Excel в отдельный файл
Доброго всем времени суток! Помогите справиться с небольшой проблемкой. Есть файл Excel с.

Klim_ul, давай для начала с разделом определимся — это VB6 или VBA(Excel)?

Где такая кнопка есть — на форме, на листе, в тулбаре?

Отдельно от самой книги. например открыта Книга.xls состоящая из 3-х листов, далее на каждом из листов ввели какую либо информацию. Мне нужно сохранить только лишь Лист3 из этой книги, как отдельный файл.xls название которого будет текущая дата.

Добавлено через 2 минуты
Это VBA(Excel)! А кнопку создаем сами CommandButton и привязываем Макрос!

Добавлено через 40 секунд
Кнопка на листе!

Добавлено через 43 секунды
Апострофф, Буду оч. благодарен за помощь!

Решение

Вложения

SaveAS.xls (28.5 Кб, 734 просмотров)

Огромное Всем спасибо.

Добавлено через 15 минут
И еще один вопрос. Где указать путь куда будет сохраняться файл. В данных примерах у меня сохраняет в текущую директорию, а мне нужно указать другой путь!

Решение

Плохо, когда ноги с головой не дружат:D

Решение

Спасибо! Это мой первый опыт в VBA. Не судите строго!
Не подскажите, сложно ли сделать так, чтобы все выражения в скопированных листах были сохранены как значения?

Читайте также  Как открыть файл DOC?

Добавлено через 49 минут
В коде ниже сохранять как значение, если использовать массивы не получается:

Вложения

Копии листов в значения.xls (61.0 Кб, 184 просмотров)

Вот это почти похоже на правду. То что удаляет все за областью печати — это не страшно. При сохранении можно указать путь и имя, и что сохраняет значения, а не формулы — это все то что надо. Только как бы немного доработать, чтобы сохранялся не выделенный лист, а к примеру так: на первом листе будут какие-то расчеты и кнопка сохранить, а таблицы с результатами на втором и третьем листе. И вот при нажатии на кнопку сохранить, сохранялись бы второй и третий листы в отдельной книге.

Добавлено через 2 часа 30 минут
DanAttess, А можно увидеть файл с результатом сохранений?

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Сохранение листа книги в файле — проблема с защитой листа и привязкой макросов
С толкнулся с такой проблемой при сохранении листа в файле вот код который сохраняет лист в.

Сохранение нужных строк в отдельный xls
Есть макрос, высасывающий данные из источника с периодичностью раз в минуту. Данные обрабатываются.

Вывести в отдельный файл, кто и когда вносил изменения в файл xls
уважаемые, кто подскажет или направит в нужном направлении Суть задачи. Вести в отдельный файлик.

Сохранение листа в новой книги
Доброго времени суток форумчане. Срочно нужна консультация специалистов по данному вопросу.

Макрос сохранения листа Excel в файл

Данный макрос позволяет упростить процедуру сохранения активного листа в книге Excel в отдельный файл.

Для использования этого макроса на любом листе в книге Excel создайте кнопку, и назначьте ей макрос СохранитьЛистВФайл.

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

Сохранение производится в формате XLS (формат Excel 2003)
Если пользователь отказался от ввода имени файла (нажал клавишу ESC или кнопку «Отмена» в диалоговом окне),
то сохранения листа в файл не происходит.

PS: Кто-то может сказать, что для сохранения листа в файл в объектной модели Excel есть метод SaveAs, применимый к объекту Worksheet.

Но, как ни странно, выполнение кода ActiveSheet.SaveAs » « приводит к сохранению книги целиком, что равносильно использованию кода ActiveWorkbook.SaveAs » «

Почему этот метод сохранения работает так нелогично — лично мне не понятно (видимо, Microsoft что-то там перемудрил)

  • 167473 просмотра

Комментарии

Здравствуйте, макрос отлично работает, но подскажите как подправить чтобы в в файл «отчет» сохранялось два листа? Например: Лист1 и Лист9. Я сам в макросах пока еще плохо разбираюсь. Спасибо.

Спасибо. Разобрался. Нашёл ошибки в библиотеках.)

Спасибо. Всё запустил, но не работает. Пишет не найден проект или библиотека. Простите, не уточнил, поменял ещё саму систему (был XP стал Win7 x64).
Вот мой код:
Private Sub CommandButton2_Click()
On Error Resume Next
Const REPORTS_FOLDER = «C:Users. . . »
MkDir ThisWorkbook.Path & «» & REPORTS_FOLDER
ChDrive Left(ThisWorkbook.Path, 1): ChDir ThisWorkbook.Path & «» & REPORTS_FOLDER
FileName = [b8] & «_» & [b6] & «_» & [b4] & «_» & Format([b2], «DDMMMMYY») & «_» & [c2] & «.xlsx»
Err.Clear: Worksheets(Array(. «, «. «)).Copy: DoEvents
If Err Then Exit Sub
If ActiveWorkbook.Worksheets.Count = 2 And ActiveWorkbook.Path = «» Then
ActiveWorkbook.SaveAs FileName, xlWorkbookNormal
ActiveWorkbook.Close False
End If
End Sub

Убедитесь, что макросы вообще включены в настройках Excel.
Перед запуском файла с макросами, необходимо выполнить следующее:

> найти файл с макросами в папке
> щелкнуть правой кнопкой мыши на файле — Свойства — Разблокировать — ОК
> и только после этого запускать

Перешёл с 2007 на Office 2016, перестали работать макросы. И этот. (((

Добрый день, подскажите, пожалуйста, что надо изменить в макросе, чтобы:
1. Он копировал не весь лист целеком, а только диапазон ВИДИМЫХ ячеек (A1:L50), т.к. этот диапазон только часть отфильтрованного списка.
2. Он копировал только значения, без формул ячеек.

Здравствуйте, Алексей
Да, можно такое сделать, — могу написать макрос под заказ.

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

Можете написать макрос под заказ? Мне надо до понедельника

Напишите ваши контакты, есть несколько задач.

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

Дело в том, что в книге порядка 20-30 листов и каждый лист необходимо сохранить в отдельные папки, соответствующие имени листа.

Дмитрий, а куда уж проще-то. вы нажимаете одну кнопку «Печать», и получаете готовый файл JPG
Зачем ещё-то упрощать.
Можно, конечно, и макрос под заказ написать
Если в формат BMP (или EMF) картинку сохранять — то макрос несложный, если в формат JPG — то макрос сложнее будет (и дороже)
Но я бы на вашем месте не стал изобретать велосипед, а оставил бы все как есть.

Сохраняю листы в JPEG формате, при помощи виртуального принтера «universal document converter» возможно ли упростить процедуру сохранения активного листа?

Здравствуйте, Игорь. Будьте любезны, взгляните на код. Основная часть была взята с другого сайта, часть с Вашего. Суть такая: на первом листе исходные данные и кнопка, на третьем — расчеты с формулами. Необходимо чтобы при нажатии кнопки создавалась папка «Двери» в текущей папке, где лежит этот файл (а если она есть, то сохранялось в нее), а имя файла бралось с листа 1 из ячеек a17 & b17. Сохраняться должен третий лист (он скрыт), формулы на нем заменить на значения. После сохранения новая книга закрывается и выводится сообщение об удачном сохранении файла с именем из ячеек a17 & b17. Сам я методом тыка пытался воплотить это, но лист не хочет сохраняться с указанным именем (используется имя по умолчанию «Книга 2. Книга 3. ). Также непонятно мне как сделать чтобы выскакивало сообщение о результате сохранения. Подскажите пожалуйста.

On Error Resume Next
Const REPORTS_FOLDER = «Двери»
‘ название подпапки, в которую по-умолчанию будет предложено сохранить файл

MkDir ThisWorkbook.Path & «» & REPORTS_FOLDER
‘ создаём папку для файла, если её ещё нет

ChDrive Left(ThisWorkbook.Path, 1): ChDir ThisWorkbook.Path & «» & REPORTS_FOLDER
‘ выбираем стартовую папку

Filename = Range(«a17») & («b17») & «.xls»
‘ вывод диалогового окна для запроса имени сохраняемого файла

If VarType(Filename) = vbBoolean Then Exit Sub
‘ если пользователь отказался от выбора имени файла — отменяем сохранение листа в файл

Dim Ar(), ArAll&(), Sh As Excel.Worksheet, n

Select Case Sheets(1).[Условие]
Case 1
Ar = Array(3)
Case Else
End Select

ReDim Preserve ArAll(0 To ThisWorkbook.Worksheets.Count — 1)
For Each Sh In ThisWorkbook.Worksheets
ArAll(n) = Sh.Index
n = n + 1
Next
ThisWorkbook.Worksheets(ArAll).Copy
Application.Volatile
Application.Calculate
Application.ScreenUpdating = False
For Each n In Ar
With ActiveWorkbook.Worksheets(n).UsedRange.Cells
.Value = .Value
End With
Next
Erase ArAll: n = 0
ReDim Preserve ArAll(0 To ThisWorkbook.Worksheets.Count — 1 — (UBound(Ar) + 1))
For Each Sh In ActiveWorkbook.Worksheets
If IsError(Application.Match(Sh.Index, Ar, 0)) Then
ArAll(n) = Sh.Index
n = n + 1
Else: If Sh.Visible = False Then Sh.Visible = True
End If
Next
ActiveWorkbook.Sheets(Ar(0)).Activate
Application.DisplayAlerts = False
ActiveWorkbook.Worksheets(ArAll).Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Dialogs(xlDialogSaveAs).Show

ActiveWorkbook.Close False
End Sub

Dim WB As Workbook
Dim ind As Integer
ind = ActiveSheet.Index
Application.DisplayAlerts = False
Set WB = Workbooks.Add
Dim li As Long
Application.DisplayAlerts = False
ind = 3
For n = ind To 2 Step -1
ThisWorkbook.Sheets(n).Copy Before:=WB.Sheets(1)
Next

Читайте также  Что делать с файлами MDF и MDS?

pdfFilename = Application.DefaultFilePath & Application.PathSeparator & «имя файла» & Range(«D9»).Value & «.pdf»
WB.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=pdfFilename, OpenAfterPublish:=False

При этом файл создается с названием «имя файла.pdf» начисто игнорируя содержимое ячейки указанной.

Вот макрос, который сохраняет без ограничения 255-ти символов в ячейке:

Как сохранить каждый лист книги как отдельный PDF-файл в Excel?

В Excel вы можете сохранить активный лист как файл PDF, но пробовали ли вы когда-нибудь сохранять каждый лист книги как отдельный файл PDF? Теперь я расскажу о приемах, с помощью которых можно быстро сохранить каждый лист книги в виде отдельного файла PDF за раз.

Сохраните один лист как файл PDF за один раз с помощью команды Сохранить как

Сохраните каждый лист книги как отдельный файл PDF с помощью Kutools for Excel

Экспортировать выделение как файл PDF с помощью Kutools for Excel

Преобразование нескольких книг в файл PDF с помощью Kutools for Excel

  1. Сохранить один лист как PDF файл за раз с помощью функции «Сохранить как»
  2. Сохраните каждый лист книги как отдельный файл PDF с помощью Kutools for Excel
  3. Разделить книгу на отдельные PDF/Excel/ TET/файлы
  4. Экспортировать выделение как файл PDF с помощью Kutools for Excel
  5. Преобразование нескольких книг в файл PDF с помощью Kutools for Excel

Сохранить один лист как PDF файл за раз с помощью функции «Сохранить как»

В Excel вы можете сохранить текущий лист как файл PDF за один раз с помощью функции «Сохранить как».

1. Включите лист и нажмите Файл или кнопку Office > Сохранить как . См. Снимок экрана:

2. В диалоговом окне Сохранить как выберите папку для сохранения PDF-файла, укажите имя в текстовом поле Имя файла для PDF-файла и выберите PDF из раскрывающегося списка Тип файла . См. Снимок экрана:

3. Нажмите Сохранить , и текущий лист будет сохранен как файл PDF.

С помощью метода Сохранить как вы можете только сохранить один лист как файл PDF за раз, это слишком утомительно, если требуется много листов для сохранения в виде отдельных файлов PDF. Однако вы можете использовать утилиту Split Workbook в Kutools for Excel , чтобы быстро разделить книгу и затем сохранить каждый лист как отдельный файл PDF.

Сохраните каждый лист книги как отдельный файл PDF с помощью Kutools for Excel

Kutools for Excel Split Workbook может разделить каждый лист книги на отдельные и независимые файлы и сохраните их как текст, PDF, XLS, XLSX или CSV.

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

1. Включите книгу, каждый лист которой вы хотите сохранить как отдельный файл PDF, и нажмите Kutools Plus > Workbook > Разделить книгу . См. Снимок экрана:

2. В диалоговом окне Разделить книгу вы можете выбрать листы, которые хотите сохранить как PDF, из Имя рабочего листа , по умолчанию выбраны все листы и установите флажок Указать формат сохранения , затем в раскрывающемся списке ниже выберите PDF (*. pdf) . См. Снимок экрана:

Совет: Если установлены флажки Пропустить скрытые рабочие листы и Пропустить пустые рабочие листы , скрытые и пустые листы не будут разделены.

3. Затем нажмите Разделить и в появившемся диалоговом окне выберите папку для размещения файлов PDF. См. Снимок экрана:

4. Нажмите OK . Теперь все листы книги сохраняются в виде отдельных файлов PDF.

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

Нажмите здесь, чтобы бесплатно загрузить Kutools for Excel m>

Разделить книгу на отдельные PDF/Excel/ TET/файлы

Экспортировать выделение как файл PDF с помощью Kutools for Excel

Если вы хотите сохранить выделенный лист в виде файла PDF, вы также можете установить Kutools for Excel и используйте его Экспорт диапазона в файл для выполнения этого задания.

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

1. Выберите диапазон, который вы хотите сохранить в формате PDF, и нажмите Kutools Plus > Импорт и экспорт > Экспортировать диапазон в файл . См. Снимок экрана:

2. В диалоговом окне Экспортировать диапазон в файл установите флажок PDF в разделе Формат файла и выберите нужные параметры. необходимо в разделе «Параметры книги», затем выберите место для сохранения. См. Снимок экрана:

Совет. Если установите флажок Открыть файл после экспорта , PDF будет открыт после экспорта.

3. Нажмите ОК . Затем укажите имя для экспортируемого файла PDF в диалоговом окне poppin g Export Range to File и нажмите кнопку Ok .

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

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

Нажмите здесь, чтобы бесплатно загрузить Kutools for Excel

Преобразование нескольких книг в файл PDF с помощью Kutools for Excel

Если вы хотите преобразовать несколько книг в файлы PDF, вы также можете использовать Kutools for Excel Конвертер форматов файлов .

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

1. Включите книгу и нажмите Kutools Plus > Workbook > Конвертер формата . См. снимок экрана:

2. В диалоговом окне Конвертер формата файла выполните следующие операции:

A: выберите книгу Excel в PDF . параметр в раскрывающемся списке Тип ;

B: выберите книги из файла или папки , нажав кнопку Плюс ;

C: выберите папку для вывода преобразованных файлов PDF.

3. Нажмите ОК . Затем несколько книг преобразуются в файлы PDF. В то же время создается новая книга с некоторой информацией об этом преобразовании.

С Kutools for Excel Конвертер форматов файлов , вы также можете использовать его для преобразования нескольких файлов между xls и xlsx.

Щелкните здесь, чтобы узнать больше об этом конвертере.

Создание, копирование и перемещение листов в книгах Excel

Лист Excel – это рабочая область под полосой инструментов. Лист состоит из множества ячеек упорядоченных между собой относительно строк и колонок.

Его внешний вид напоминает большую таблицу. В каждой новой книге Excel по умолчанию 3 листа.

Для пользователя лист представляет собой файл с документом который вложен в скоросшиватель (рабочая книга Excel). Листами можно и нужно управлять. Их можно перемещать в другие рабочие книги. Данная операция экономит много времени чем просто копировать и переносить содержимое самого листа.

Листы Excel как среда для работы с данными

В стандартной книге каждый лист представляет собой большие таблицы, которые заполняются данными и формулами. Как добавить лист в Excel? По мере необходимости можно вставлять дополнительные листы (SHIFT+F11) или удалять неиспользуемые. Сделать новый лист в Excel, можно кликнув по последней закладке листов, как показано на рисунке:

Книга может содержать от 1-го до 255 листов.

Как скопировать лист в Excel? Для быстрой реализации данной задачи необходимо:

  1. Навести курсор мышки на закладку листа (ярлычок), который необходимо скопировать.
  2. Сделать щелчок, левой кнопкой мишки, удерживая кнопку + клавишу CTRL переместить курсор в то место закладок листов, куда следует вставить копию.

Если листов очень много или необходимо скопировать / переместить лист в новую книгу тогда выполняем следующие действия:

  1. Правой кнопкой мышки кликаем по закладке листа (ярлычку) для вызова контекстного меню, где выбираем опцию «Переместить или скопировать…».
  2. В появившимся окне настраиваем параметры копирования листа. Сверху выбираем, в какую из открытых книг следует скопировать лист. Снизу указываем, между какими листами следует вставить копию.
  3. Если мы копируем лист, а не переносим его, следует отметить галочкой опцию «Создать копию».



Упражнения с элементами листов

Задание 1 : Щелкните по каждому элементу, указанному на рисунке выше и постарайтесь запомнить их расположение, название.

Задание 2 : Щелкните по расположенных в низу закладках (Лист2, Лист3 и Лист1) поочередно. После щелчка ярлычок каждого листа становится активным, а его закладка подсвечивается.

Примечание: каждая книга может содержать в себе множество листов (до 255шт.), подобно как скоросшиватель содержит в себе файлы.

Читайте также  Как открыть CSV файл в Python?

Различные операции с листами рассмотрим на следующих уроках.

Работа с ячейками листов

Самым главным элементом листа является ячейка. Каждая ячейка имеет свой порядковый номер относительно строк и латинскую букву относительно колонок. Таким образом, каждой ячейке присвоен свой адрес (подобно клеткам в шахматной доске). То есть, первая ячейка (в верхнем левом углу) имеет адрес A1, а под ней ячейка с адресом A2. С правой стороны в ячейке адрес B1 и т.д.

Количество строк в каждом листе Excel 2010 чуть более одного миллиона, а точнее 1 048 578 шт. Количество колонок значительно меньше – 16 384шт.

Примечание: Обратите внимание! После 26 латинских букв название колонок состоит уже не из одной, а из 2 и более букв в логическом, алфавитном порядке. Таким образом, адрес последней ячейке в самом нижнем правом углу листа является XFD1048578.

В каждую ячейку можно записать:

  • текст;
  • число;
  • дату и время;
  • формулы;
  • логические выражения.

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

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

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

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

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

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

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

Чтобы разделить эти листы в отдельный файл Excel, вы можете использовать приведенный ниже код VBA:

Перед использованием приведенного выше кода VBA необходимо убедиться в нескольких вещах:

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

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

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

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

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

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

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

  • Щелкните вкладку Разработчик.
  • В группе «Код» выберите параметр «Visual Basic». Это откроет редактор VB. [Вы также можете использовать сочетание клавиш — ALT + F11 ]
  • В редакторе VB щелкните правой кнопкой мыши любой объект книги, над которой вы работаете.
  • Наведите курсор на опцию Вставить
  • Щелкните по модулю. Это вставит новый модуль
  • Дважды щелкните объект Module. это откроет окно кода для модуля
  • Скопируйте приведенный выше код VBA и вставьте его в окно кода модуля.
  • Выберите любую строку в коде и нажмите зеленую кнопку воспроизведения на панели инструментов, чтобы запустить код макроса VBA.

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

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

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

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

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

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

Если вы хотите разделить листы и сохранить их как файлы PDF вместо файлов Excel, вы можете использовать следующий код:

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

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

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

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

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

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

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

Это можно сделать с помощью следующего макроса VBA:

В приведенном выше коде я использовал переменную TexttoFind, которой изначально было присвоено значение «2020».

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

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

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

Понравилась статья? Поделиться с друзьями:
Добавить комментарий

;-) :| :x :twisted: :smile: :shock: :sad: :roll: :razz: :oops: :o :mrgreen: :lol: :idea: :grin: :evil: :cry: :cool: :arrow: :???: :?: :!: