Перейти к основному содержанию

Как конвертировать сразу несколько книг или листов в файлы PDF в Excel?

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


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

Обычно функция «Сохранить как» в Excel может помочь вам сохранить всю книгу в PDF-файл, пожалуйста, сделайте следующее:

1. Запустите книгу, которую вы хотите преобразовать в формат PDF.

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

3. Затем в выскочившем Опции диалоговое окно, отметьте Вся книга, см. снимок экрана:

4, Затем нажмите OK > Сохранить, вся эта книга была сохранена в формате PDF.

Советы: Если у вас есть несколько книг, которые необходимо преобразовать, примените описанные выше шаги, чтобы сохранять книги в файлы 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. Затем щелкните OK, появится другое окно, выберите путь к папке, в которую вы хотите вывести новые файлы PDF, см. снимок экрана:

5. А затем нажмите OK, после завершения конвертации вы можете перейти в указанную папку для предварительного просмотра конвертированного результата, см. скриншоты:


Преобразование нескольких книг в файлы PDF с помощью мощной функции

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

Советы:Чтобы применить это Конвертер формата функция, во-первых, вы должны скачать Kutools for Excel, а затем быстро и легко примените эту функцию.

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

1. Нажмите Кутулс Плюс > Workbook > Конвертер формата, см. снимок экрана:

2. Появится окно подсказки, напоминающее, что вы должны закрыть книги, которые вы хотите преобразовать.

3. Нажмите OK, то в Конвертер файловых форматов диалоговом окне укажите следующие параметры:

  • Под Тип преобразования раскрывающийся список, выберите Книга Excel в PDF;
  • Затем нажмите Добавить кнопку, чтобы добавить файлы Excel, которые вы хотите преобразовать, вы можете добавить книги со своего компьютерного диска или OneDrive по мере необходимости; 

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

Заметки: В диалоговом окне выше:
  • Если книги во вложенных папках также необходимо преобразовать, проверьте Включать подпапки при добавлении папок флажок;
  • Если вы хотите удалить исходные файлы после преобразования, проверьте Удалить исходные файлы после конвертации коробка;
  • Если вы хотите сохранить дату изменения исходных файлов, проверьте Сохранить дату изменения исходных файлов коробка;
  • Структуру каталогов файла можно сохранить, установив флажок Структура каталогов файла сохраняется при преобразовании коробка;

5. Затем нажмите OK чтобы начать преобразование, когда все указанные файлы Excel были преобразованы в файлы PDF, вы можете перейти в указанную папку для предварительного просмотра преобразованного результата, см. снимки экрана:


Преобразование нескольких листов из книги в отдельные файлы 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, Затем нажмите OK Кнопка, все листы в текущей книге были отдельно преобразованы в файлы PDF, см. снимок экрана:


Преобразование нескольких листов из книги в отдельные файлы PDF с помощью удобной функции

Kutools for Excel также поддерживает полезную функцию - Разделить книгу, с помощью этой функции вы можете сохранить несколько листов в книге для разделения файла Excel, файла Txt, файла CSV и файла PDF по мере необходимости.

Советы:Чтобы применить это Разделить книгу функция, во-первых, вы должны скачать Kutools for Excel, а затем быстро и легко примените эту функцию.

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

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

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

3. А затем все выбранные листы в текущей книге были сохранены в файлы PDF по отдельности, см. Снимок экрана:


Больше относительных статей:

  • Преобразование нескольких файлов Xls в файлы Xlsx в Excel
  • Чтобы преобразовать старый файл xls Excel в новый файл xlsx, вы можете применить функцию «Сохранить как» в Excel, но, если необходимо преобразовать несколько файлов xls, как можно быстро и легко справиться с этой задачей?
  • Сохранить все рабочие листы только как значения
  • Если у вас есть книга, содержащая несколько формул, теперь вам нужно распространить этот файл среди других пользователей, вы не хотите, чтобы формулы отображались, а отображались только значения. Обычно мы можем быстро сохранить рабочий лист как значения, скопировав и вставив данные только как значения. Но как вы могли сохранить все листы только как значения, не копируя и не вставляя их по одному?
  • Кнопка управления для сохранения активного рабочего листа в виде файла PDF
  • При работе в Microsoft Excel вы можете столкнуться с проблемой сохранения активного рабочего листа в виде файла PDF. В этой статье вы можете узнать, как сохранить активный рабочий лист в виде файла PDF с кодом VBA с помощью командной кнопки. И если вы также хотите сохранить диапазон или каждый рабочий лист в активной книге как отдельный файл PDF, эта статья также может вам помочь.
  • Разделить большой стол на несколько маленьких
  • Если у вас есть большой рабочий лист, содержащий несколько столбцов и сотни или тысячи данных строк, теперь вы хотите разделить эту большую таблицу на несколько небольших таблиц на основе значения столбца или количества строк, чтобы получить следующие результаты. Как бы вы могли справиться с этой задачей в Excel?
  • Разделить книгу на отдельные файлы Excel
  • Возможно, вам придется разделить большую книгу на отдельные файлы Excel, сохранив каждый рабочий лист книги как отдельный файл Excel. Например, вы можете разделить книгу на несколько отдельных файлов Excel, а затем передать каждый файл другому человеку для обработки. Поступая таким образом, вы можете заставить определенных людей обрабатывать определенные данные и сохранить ваши данные в безопасности. В этой статье будут представлены способы разделения большой книги на отдельные файлы Excel на основе каждого рабочего листа.

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello this might be to much, but is there a way to make a VBA that would separate multiples workbooks worksheets into to their own pdf file and for each header to be a text in a certain cell in worksheet for each one?
This comment was minimized by the moderator on the site
Thank you so much for this code.
This comment was minimized by the moderator on the site
the vba is really good and serves my purpose well. but can this code not be changed to create pdf from a particular sheet for multiple excel files (say 3rd worksheet of all 100 excel workbooks i have).
This comment was minimized by the moderator on the site
This is perfect for what I was looking for. Thanks for the sharing. I used to convert excel file to PDF file with Acethinker PDF Creator, one by one, not so quick, share it here as an alternative solution.
This comment was minimized by the moderator on the site
i am editing and updating my data in pdf explorer and i have already my data in excel sheet so now i want to export to my excel log to pdf explorer how
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations