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".Lagre som
  3. Deretter, i "Lagre som"-vinduet, velg "PDF" fra rullegardinlisten for "Lagre som type".Plukke ut "PDF"Skriv
  4. Deretter klikker du på "Alternativer" -knappen i "Lagre som"-vinduet.
  5. Deretter, i den påfølgende "Alternativer"-dialogboksen, velg "Hele arbeidsboken".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 'Velg den spesifikke Windows-mappen Set objShell = CreateObject("Shell.Application") Set objWindowsFolder = objShell.BrowseForFolder(0, "Velg en Windows-mappe:", 0, "") If Not objWindowsFolder Is Nothing Then strWindowsFolder = objWindowsFolder.self.Path & "\" Call ProcessFolders(strWindowsFolder) 'Åpne Windows-mappen Shell "Explorer.exe" & " " & strWindowsFolder, vbNormalFocus End If End Sub Sub 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 objFoldSystemer(GFoldSystemer(G) strPath) For hver objFile I objFolder.Files strFileExtension = objFileSystem.GetExtensionName(objFile) Hvis LCase(strFileExtension) = "xls" Eller LCase(strFileExtension) = "xlsx" Deretter setter objExcelFile = objFile Set applikasjonsbok.Workob. .Path) strWorkbookName = Left(objWorkbook.Name, (Len(objWorkbook.Name) - Len(strFileExtension)) -1) objWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filnavn:=strPath & strWorkbookName & ".pdf" objWorkbook.Close False End If Next 'Behandle alle mapper og undermapper If objFolder.SubFolders.Count > 0 Then For Every objSubFolder In objFolder.SubFolders If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder And .4Attributes And. ) = 0) Deretter ProcessFolders (objSubFolder.Path) End If Next End If End Sub

VBA-kode - Batch-konvertere flere Excel-arbeidsbøker til PDF Filer

  1. Klikk deretter på den første subrutinen og trykk "F5"-tasten.
  2. I popup-dialogen velger du den spesifikke Windows-mappen der Excel-filene er samlet.Velg Windows-mappe
  3. Klikk deretter "OK".
  4. Når makroen er ferdig, åpnes Windows-mappen, der du kan se PDF filer, som følgende skjermbilde.Ny PDF Filer

Sammenligning

Fordeler Ulemper
Metode 1 Ganske enkel å betjene For plagsomt ved konvertering av flere Excel-arbeidsbøker
Metode 2 Mye mer praktisk og raskere enn metode 1 når du behandler mange arbeidsbøker Brukere må være forsiktige med eksterne ondsinnede makroer.

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

5 svar på “2 effektive metoder for batchkonvertering av flere Excel-arbeidsbøker til PDF Filer ”

  1. Leuk-konsept Batchconversie via VBA:
    Dessverre fungerer koden i teksten Sett objFolder ("Scripting.FileSystemObject = strPath) ikke mer.
    Hvis du er vakker på skjermen, er det større trykk da du ikke kommer til å stå.
    Pop up vindu kommer vel op.

  2. Takk for dette. Jeg har arbeidsbøker som har to ark i hver, er det en måte for dette å fungere slik at det skaper PDF med de to hele sidene som den for øyeblikket skaper PDFs over 5 sider.

Legg igjen en kommentar

Din e-postadresse vil ikke bli publisert. Obligatoriske felt er merket *