2 ефективни метода за групово конвертиране на множество работни книги в Excel PDF Файлове

Понякога може да искате да конвертирате множество работни книги на Excel в PDF файлове. Тук, в тази статия, ще представим 2 метода, за да го получим на партиди.

В някои случаи може да се наложи да конвертирате работна книга на Excel в PDF файл в този a PDF файлът не може да бъде модифициран от други лесно. Както всички знаем, е много лесно да конвертирате работна книга на Excel в PDF, което може да бъде постигнато чрез родната функция „Запазване като“, като следния метод 1. И все пак, ако има много работни книги, които трябва да бъдат преобразувани в PDF, по-добре използвайте метода 2, въведен по-долу, който е много по-ефективен. Сега прочетете, за да ги получите подробно.

Метод 1: Конвертиране един по един

1. Първо отворете работна книга на Excel, в която искате да конвертирате PDF файл.
2. След това отидете в менюто „Файл“ и щракнете върху опцията „Запазване като“.
3. След това в прозореца „Запазване като“ изберете „PDF“От падащия списък на„ Запазване като тип “.
4. След това щракнете върху бутона „Опции“ в прозореца „Запазване като“.
5. След това в следващия диалогов прозорец „Опции“ изберете „Цялата работна книга“.
6. Накрая щракнете върху „OK“ и „Save“, за да завършите конвертирането.
7. По този начин можете да конвертирате останалите работни книги на Excel PDF файлове един по един ръчно.

Метод 2: Пакетно конвертиране чрез VBA

1. В самото начало съберете всички работни книги на Excel, за да бъдат преобразувани PDF в същата папка на Windows.
2. След това стартирайте приложението Excel.
3. След това отворете редактора на Excel VBA, като се обърнете към „Как да стартирате VBA код във вашия Excel".
4. След това поставете следния код в модул или проект.

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

5. След това кликнете върху първата подпрограма и натиснете клавиша “F5”.
6. В изскачащия диалогов прозорец изберете конкретната папка на Windows, където се събират файловете на Excel.
7. След това щракнете върху „OK“.
8. Когато макросът завърши, ще се отвори папката на Windows, в която можете да видите PDF файлове, като следната екранна снимка.

сравнение

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

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

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително възстанови sql и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com