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
- Først åpner du en Excel-arbeidsbok som du vil konvertere til PDF filen.
- Deretter går du til "Fil"-menyen og klikker på "Lagre som".
- Deretter, i "Lagre som"-vinduet, velg "PDF" fra rullegardinlisten for "Lagre som type".
- Deretter klikker du på "Alternativer" -knappen i "Lagre som"-vinduet.
- Deretter, i den påfølgende "Alternativer"-dialogboksen, velg "Hele arbeidsboken".
- Til slutt, klikk "OK" og "Lagre" for å fullføre konverteringen.
- 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
- Helt i begynnelsen, samle alle Excel-arbeidsbøkene som skal konverteres til PDF i samme Windows-mappe.
- Start deretter Excel-applikasjonen.
- Deretter får du tilgang til Excel VBA-editor ved å referere til "Hvordan kjøre VBA-kode i Excel".
- 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
- Klikk deretter på den første subrutinen og trykk "F5"-tasten.
- I popup-dialogen velger du den spesifikke Windows-mappen der Excel-filene er samlet.
- Klikk deretter "OK".
- Når makroen er ferdig, åpnes Windows-mappen, der du kan se PDF filer, som følgende skjermbilde.
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
Bonjour, un de mes collègue a fait un code de ce type aussi mais on ya ajouter un format de papier mais cette ligne semble causé des problème et je ne comprend pas pourquoi.
voici la partie du code
'Sørg for at arbeidsboken er åpnet før du går videre til neste kodelinje
Med wsA.PageSetup
.PaperSize = xlPaperLetter
'.CenterHorizontally = Sant
' .CenterVertically = Sant
' .Orientering = xlLandskap
' .Zoom = False
' .FitToPagesWide = 1
' .FitToPagesTall = 1
' BottomMargin = 0
' .Toppmargin = 0
' .Høyremargin = 0
'. Venstremargin = 0
Slutt med
DoEvents
wsA.ExportAsFixedFormat _
Type:=xlTypePDF, _
filnavn:=myPath & myFile2 & “.pdf", _
Kvalitet: = xlQualityStandard, _
IncludeDocProperties: = True, _
IgnorerPrintAreas:=False, _
OpenAfterPublish:=False
'Lagre og lukk arbeidsbok
wb.Close SaveChanges:=False
På forhånd takk for hjelpen
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.
1
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.
hva om vi vil ha et enkelt regneark i arbeidsboken?
Dette er så fantastisk, kan ikke takke deg nok!!! For en tidsbesparende