2 effektive metoder for å batchkonvertere flere Excel-arbeidsbøker til PDF Filer

Noen ganger vil du kanskje konvertere flere Excel-arbeidsbøker til PDF filer. Her, i denne artikkelen, vil vi introdusere 2 metoder for å få det i grupper.

I noen tilfeller må du kanskje konvertere en Excel-arbeidsbok til en PDF fil i at a PDF fil kan ikke enkelt endres av andre. Som vi alle vet, er det betydelig enkelt å konvertere en Excel-arbeidsbok til PDF, som kan oppnås med den opprinnelige "Lagre som"-funksjonen, som følgende metode 1. Likevel, hvis det er mange arbeidsbøker som skal konverteres til PDF, bør du bruke metode 2 introdusert etterpå, som er mye mer effektiv. Les videre for å få dem i detalj.

Metode 1: Konverter én etter én

1. Først åpner du en Excel-arbeidsbok som du vil konvertere til PDF filen.
2. Deretter går du til "Fil"-menyen og klikker på "Lagre som".
3. Deretter, i "Lagre som"-vinduet, velg "PDF" fra rullegardinlisten for "Lagre som type".
4. Deretter klikker du på "Alternativer" -knappen i "Lagre som"-vinduet.
5. Deretter, i den påfølgende "Alternativer"-dialogboksen, velg "Hele arbeidsboken".
6. Til slutt, klikk "OK" og "Lagre" for å fullføre konverteringen.
7. På denne måten kan du konvertere de andre Excel-arbeidsbøkene til PDF filer én etter én manuelt.

Metode 2: Batch-konvertering via VBA

1. Helt i begynnelsen, samle alle Excel-arbeidsbøkene som skal konverteres til PDF i samme Windows-mappe.
2. Start deretter Excel-applikasjonen.
3. Deretter får du tilgang til Excel VBA-editor ved å referere til "Hvordan kjøre VBA-kode i Excel".
4. Deretter legger du følgende kode inn i en modul eller et prosjekt.

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. Klikk deretter på den første subrutinen og trykk "F5"-tasten.
6. I popup-dialogen velger du den spesifikke Windows-mappen der Excel-filene er samlet.
7. Klikk deretter "OK".
8. Når makroen er ferdig, åpnes Windows-mappen, der du kan se PDF filer, som følgende skjermbilde.

Sammenligning

I tilfelle Excel-filkorrupsjon

Flere Excel-brukere har noen gang opplevd Excel-filkorrupsjon. Noen ganger kan Excels opprinnelige gjenopprettingsfunksjon gjenopprette korrupte Excel fil. Men noen ganger kan det ikke. Derfor anbefales det sterkt å utarbeide et kraftig Excel-fiksverktøy, som f.eks DataNumen Excel Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert gjenopprette sql og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med