Как одновременно преобразовать несколько книг или листов в файлы PDF в Excel?
Преобразование файлов Excel в PDF — распространённая задача, когда нужно передать данные, запретив их редактирование. Хотя функция «Сохранить как» в Excel позволяет конвертировать одну книгу в PDF, этот процесс становится утомительным при работе с множеством файлов. В данном руководстве рассматриваются различные методы — включая код VBA и Kutools для Excel — для быстрого одновременного преобразования нескольких книг или листов в PDF-файлы.
- Преобразование нескольких книг в Файлы PDF с помощью функции «Сохранить как» поочередно
- Преобразование нескольких книг в Файлы PDF с помощью кода VBA одновременно
- Преобразование нескольких книг в Файлы PDF с помощью мощной функции
- Преобразование нескольких листов из одной книги в отдельные Файлы PDF с помощью кода VBA
- Преобразование нескольких листов из одной книги в отдельные Файлы PDF с помощью удобной функции
Преобразование нескольких книг в Файлы PDF с помощью функции «Сохранить как» поочередно
Обычно функция «Сохранить как» в Excel позволяет сохранить всю книгу в формате PDF. Выполните следующие действия:
1. Откройте книгу, которую нужно преобразовать в формат PDF.
2. Нажмите Файл > Сохранить как, и в диалоговом окне Сохранить как укажите папку для сохранения созданного файла. Затем выберите PDF в раскрывающемся списке Указать формат сохранения и нажмите кнопку Параметры (см. снимок экрана):
3. В появившемся диалоговом окне Параметры установите флажок Вся книга, см. снимок экрана:
4. Затем нажмите ОК → Сохранить, и вся книга будет сохранена как PDF-файл.
Преобразование нескольких книг в Файлы PDF с помощью кода VBA одновременно
Если вам нужно преобразовать сотни файлов Excel, описанный выше метод окажется неудобным. В таком случае рекомендуем использовать код VBA для одновременного преобразования нескольких книг в PDF. Выполните следующие шаги:
1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка > Модуль и вставьте приведённый ниже код в окно Модуль.
Код VBA: одновременное преобразование нескольких книг в Файлы PDF
Sub ExcelSaveAsPDF()
'Updateby Extendoffice
Dim strPath As String
Dim xStrFile1, xStrFile2 As String
Dim xWbk As Workbook
Dim xSFD, xRFD As FileDialog
Dim xSPath As String
Dim xRPath, xWBName As String
Dim xBol As Boolean
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.Title = "Please select the folder contains the Excel files you want to convert:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
With xRFD
.Title = "Please select a destination folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xRFD.Show <> -1 Then Exit Sub
xRPath = xRFD.SelectedItems.Item(1) & "\"
strPath = xSPath & "\"
xStrFile1 = Dir(strPath & "*.*")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While xStrFile1 <> ""
xBol = False
If Right(xStrFile1, 3) = "xls" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xls", "_pdf")
xBol = True
ElseIf Right(xStrFile1, 4) = "xlsx" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xlsx", "_pdf")
xBol = True
ElseIf Right(xStrFile1, 4) = "xlsm" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xlsm", "_pdf")
xBol = True
End If
If xBol Then
xWbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xRPath & xbwname & ".pdf"
xWbk.Close SaveChanges:=False
End If
xStrFile1 = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Нажмите клавишу F5, чтобы запустить код. Появится окно — укажите папку: выберите ту, в которой находятся книги для преобразования (см. снимок экрана):
4. Нажмите ОК, после чего появится ещё одно окно. Укажите путь: «Пожалуйста, выберите папку для сохранения новых файлов (файлы PDF)». См. снимок экрана:
5. Нажмите ОК. После завершения преобразования перейдите в указанную папку, чтобы просмотреть результаты (см. снимки экрана):
 |  |  |
Преобразование нескольких книг в Файлы PDF с помощью мощной функции
Если у вас установлен Kutools для Excel, с помощью его утилиты Пакетное преобразование вы можете быстро преобразовать несколько книг в файлы PDF одновременно.
1. Нажмите KUTOOLS PLUS > Книга > Пакетное преобразование, см. снимок экрана:
2. Появится окно с напоминанием закрыть книги, которые требуется преобразовать.
3. Нажмите ОК, затем в диалоговом окне Преобразователь форматов файлов укажите следующие параметры:
- В раскрывающемся списке Тип преобразованиявыберите Преобразовать Excel в PDF;
- Нажмите кнопку Добавить, чтобы выбрать файлы Excel для преобразования. При необходимости вы можете загрузить книги с компьютера или из OneDrive.
4. После добавления книг, которые необходимо преобразовать, в том же диалоговом окне Пакетное преобразование нажмите кнопку 
, чтобы выбрать папку для сохранения преобразованных файлов, а также задайте необходимые операции в нижней части окна (см. снимок экрана):
- Чтобы включить книги из подпапок, установите флажок Включить подпапки при добавлении папок;
- Если вы хотите удалить исходные файлы после преобразования, установите флажок Удалить исходные файлы после конвертации;
- Если вы хотите Сохранить дату изменения исходных файлов, установите флажок Сохранять Время изменения исходных файлов;
- Структура каталогов файла может быть сохранена при установке флажка Сохранить структуру каталога файлов во время преобразования;
5. Затем нажмите ОК, чтобы начать преобразование. После того как все указанные файлы Excel будут преобразованы в PDF, перейдите в назначенную папку, чтобы просмотреть результаты. См. снимки экрана ниже:
| | |
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Преобразование нескольких листов из одной книги в отдельные файлы Файлы PDF с помощью кода VBA
В некоторых случаях может понадобиться преобразовать каждый лист книги в отдельные файлы PDF. Если ваша книга содержит множество листов, приведённый ниже код VBA позволит сохранить каждый из них как отдельный PDF-файл одновременно.
1. Откройте книгу, которую нужно преобразовать, и нажмите клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Нажмите Вставьте > Модуль и вставьте следующий код в окно Модуль.
Код VBA: преобразование нескольких листов из книги в отдельные файлы Файлы PDF
Sub SplitEachWorksheet()
'Updateby Extendoffice
Dim xSPath As String
Dim xSFD As FileDialog
Dim xWSs As Sheets
Dim xWb As Workbook
Dim xWbs As Workbooks
Dim xNWb As Workbook
Dim xInt, xI As Integer
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.title = "Please select a folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWb = Application.ActiveWorkbook
Set xWbs = Application.Workbooks
Set xWSs = xWb.Sheets
Set xNWb = xWbs.Add
xInt = xWSs.Count
For xI = 1 To xInt
On Error GoTo EBreak
Set xWs = xWSs.Item(xI)
If xWs.Visible Then
xWSs(xWs.Name).Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xSPath & "\" & xWs.Name & ".pdf"
Application.ActiveWorkbook.Close False
End If
EBreak:
Next
xWb.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Нажмите клавишу F5, чтобы запустить этот код. Появится окно — выберите папку «Путь к файлу» для сохранения преобразованных PDF-файлов. См. снимок экрана:
4. Нажмите кнопку ОК, и все листы в книге «Текущая книга» будут преобразованы в отдельные файлы PDF:
Преобразование нескольких листов из книги в отдельные файлы Файлы PDF с помощью удобной функции
Kutools для Excel также предлагает удобную функцию — Разделить книгу. С её помощью вы можете сохранять несколько листов из одной книги в отдельные файлы Excel, TXT, CSV и PDF — в зависимости от ваших задач.
1. Откройте книгу, в которой нужно сохранить каждый лист как отдельный файл PDF, затем нажмите Kutools Plus > Книга > Разделить книгу. См. снимок экрана:
2. В диалоговом окне Разделить книгу установите флажки напротив нужных листов, выберите формат PDF (*.pdf) в раскрывающемся списке Указать формат сохранения и нажмите кнопку Разделить. В окне Выбор папки укажите папку для сохранения преобразованных файлов. См. снимок экрана:
 | |  |
3. После этого все выбранные листы из текущей книги будут сохранены по отдельности в папке «Файлы PDF». См. снимок экрана:
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Другие связанные статьи:
- Преобразование нескольких файлов XLS в файлы XLSX в Excel
- Как быстро и легко преобразовать сразу несколько старых файлов Excel с расширением XLS в новый формат XLSX, если стандартная функция «Сохранить как» подходит только для поштучной обработки?
- Сохранение всех листов только как значений
- Если у вас есть книга, содержащая множество формул, и вы хотите передать её другим пользователям, но при этом не показывать формулы, а отображать только значения, обычно можно быстро сохранить один лист как значения с помощью копирования и вставки данных как значений. Однако как сохранить все листы только как значения без поочередного копирования и вставки каждого из них?
- Кнопка команды для сохранения активного листа как Файлы PDF
- При работе в Microsoft Excel вам может понадобиться сохранить активный лист в формате PDF. В этой статье вы узнаете, как сохранить активный лист как файл PDF с помощью кода VBA через кнопку команды. Кроме того, если вы захотите сохранить определённый диапазон или каждый лист текущей книги в отдельные файлы PDF, эта статья также придёт вам на помощь.
- Разделение большой таблицы на несколько небольших таблиц
- Если у вас есть большой лист с множеством столбцов и сотнями или тысячами строк данных, и вы хотите разделить эту таблицу на несколько небольших — по значениям определённого столбца или заданному количеству строк, — как выполнить такую задачу в Excel?
- Разделение книги на отдельные Файлы Excel
- Возможно, вам потребуется разделить большую книгу на отдельные Файлы Excel, сохранив каждый лист книги как отдельный файл Excel. Например, вы можете разделить книгу на несколько отдельных Файлы Excel, а затем передать каждый файл разным людям для обработки. Это позволит назначить определённым лицам работу с конкретными данными и обеспечит безопасность ваших данных. В данной статье описаны способы разделения большой книги на отдельные Файлы Excel по каждому листу.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек