2 Efektivní metody dávkového převodu více sešitů aplikace Excel na PDF soubory

Někdy můžete chtít převést více sešitů aplikace Excel na PDF soubory. Zde v tomto článku představíme 2 metody, jak ji získat v dávkách.

V některých případech možná budete muset převést sešit aplikace Excel na PDF soubor v tom a PDF Soubor nemohou být snadno upravovány jinými uživateli. Jak všichni víme, je poměrně snadné převést sešit aplikace Excel do formátu PDF, čehož lze dosáhnout pomocí nativní funkce „Uložit jako“, jako je uvedeno v následující metodě 1. Pokud je však třeba převést do formátu PDF mnoho sešitů, je lepší použít metodu 2 uvedenou níže, která je mnohem efektivnější. Nyní si je přečtěte podrobněji.

Metoda 1: Převod jeden po druhém

1. Nejprve otevřete sešit aplikace Excel, do kterého chcete převést PDF soubor.
2. Poté přejděte do nabídky „Soubor“ a klikněte na možnost „Uložit jako“.
3. Dále v okně „Uložit jako“ vyberte z rozbalovacího seznamu „Uložit jako typ“ možnost „PDF“.
4. Poté klikněte na tlačítko „Možnosti“ v okně „Uložit jako“.
5. Poté v následujícím dialogovém okně „Možnosti“ vyberte „Celý sešit“.
6. Nakonec dokončete převod kliknutím na „OK“ a „Uložit“.
7. Tímto způsobem můžete převést ostatní sešity aplikace Excel na PDF soubory jeden po druhém ručně.

Metoda 2: Dávkový převod pomocí VBA

1. Hned na začátku shromážděte všechny sešity aplikace Excel, do kterých se mají převést PDF ve stejné složce Windows.
2. Poté spusťte aplikaci Excel.
3. Dále přejděte do editoru Excel VBA odkazem na „Jak spustit kód VBA v aplikaci Excel".
4. Poté vložte následující kód do modulu nebo projektu.

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. Poté klikněte na první podprogram a stiskněte klávesu „F5“.
6. V rozbalovacím dialogovém okně vyberte konkrétní složku Windows, kde se shromažďují soubory aplikace Excel.
7. Poté klikněte na „OK“.
8. Po dokončení makra se otevře složka Windows, ve které můžete vidět PDF soubory, například následující snímek obrazovky.

Porovnání

V případě poškození souboru aplikace Excel

Několik uživatelů aplikace Excel někdy zažilo poškození souborů aplikace Excel. Nativní funkce obnovení aplikace Excel může někdy obnovit poškozený Excel soubor. Někdy to ale nejde. Proto se důrazně doporučuje připravit výkonný nástroj pro opravu aplikace Excel, například DataNumen Excel Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně obnovit sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com