2 эффективных метода пакетного преобразования нескольких книг Excel в PDF Файлы

Решения Excel 3 октября 2025

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

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

Способ 1: конвертировать по одному

Прежде всего, откройте книгу Excel, которую вы хотите преобразовать в PDF .
Затем перейдите в меню «Файл» и нажмите «Сохранить как».
Далее в окне «Сохранить как» выберите «PDF» из выпадающего списка «Сохранить как тип».
После этого нажмите кнопку «Параметры» в окне «Сохранить как».
Затем в следующем диалоговом окне «Параметры» выберите «Вся книга».
Наконец, нажмите «ОК» и «Сохранить», чтобы завершить преобразование.
Таким образом, вы можете преобразовать другие книги Excel в PDF файлы один за другим вручную.

Способ 2: пакетное преобразование через VBA

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

Sub BatchOpenMultiplePSTFiles()
    Dim objShell As Object
    Dim objWindowsFolder As Object
    Dim strWindowsFolder As String

    'Select the specific Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows folder:", 0, "")

    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"

       Call ProcessFolders(strWindowsFolder)

       'Open the windows folder
       Shell "Explorer.exe" & " " & strWindowsFolder, vbNormalFocus
   End If
End Sub

Sub ProcessFolders(strPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objExcelFile As Object
    Dim objWorkbook As Excel.Workbook
    Dim strWorkbookName As String

    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strPath)

    For Each objFile In objFolder.Files
        strFileExtension = objFileSystem.GetExtensionName(objFile)
        If LCase(strFileExtension) = "xls" Or LCase(strFileExtension) = "xlsx" Then
           Set objExcelFile = objFile
           Set objWorkbook = Application.Workbooks.Open(objExcelFile.Path)

           strWorkbookName = Left(objWorkbook.Name, (Len(objWorkbook.Name) - Len(strFileExtension)) -1)
           objWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & strWorkbookName & ".pdf"

           objWorkbook.Close False
        End If
    Next

    'Process all folders and subfolders
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubFolder In objFolder.SubFolders
           If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4) = 0) Then
              ProcessFolders (objSubFolder.Path)
           End If
       Next
    End If
End Sub

После этого щелкните первую подпрограмму и нажмите клавишу «F5».
Во всплывающем диалоговом окне выберите конкретную папку Windows, в которой собраны файлы Excel.
Затем нажмите «ОК».
Когда макрос завершится, откроется папка Windows, в которой вы можете увидеть PDF файлы, как показано на следующем снимке экрана.

сравнение

	Преимущества	Недостатки
Метод 1	Довольно прост в эксплуатации	Слишком хлопотно при преобразовании нескольких книг Excel
Метод 2	Гораздо удобнее и быстрее, чем метод 1, при обработке большого количества книг.	Пользователи должны быть осторожны с внешними вредоносными макросами.

В случае повреждения файла Excel

Многие пользователи Excel когда-либо сталкивались с повреждением файла Excel. Иногда встроенная функция восстановления Excel может восстановить поврежденный Excel файл. Тем не менее, иногда это не может. Поэтому настоятельно рекомендуется подготовить мощное средство исправления Excel, такое как DataNumen Excel Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com