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

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 по мере необходимости.

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

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

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

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