Hvordan konverteres flere projektmapper eller regneark til PDF-filer på én gang i Excel?
Engang skal du konvertere dine Excel-filer til PDF-filer, så de ikke kan ændres af andre. I Excel kan vi gemme en Excel-fil som PDF-fil ved hjælp af funktionen Gem som. Men hvordan konverterer du flere projektmapper til PDF-filer på samme tid i Excel?
- Konverter flere projektmapper til PDF-filer med Gem som-funktionen en efter en
- Konverter flere projektmapper til PDF-filer med VBA-kode på én gang
- Konverter flere projektmapper til PDF-filer med en kraftfuld funktion
- Konverter flere regneark fra en projektmappe for at adskille PDF-filer med VBA-kode
- Konverter flere regneark fra en projektmappe til separate PDF-filer med en praktisk funktion
Konverter flere projektmapper til PDF-filer med Gem som-funktionen en efter en
Normalt kan funktionen Gem som i Excel hjælpe dig med at gemme hele projektmappen i en PDF-fil, gør du som dette:
1. Start din projektmappe, som du vil konvertere til PDF-format.
2. Klik File (Felt) > Gem som, og i Gem som dialogboks, skal du angive en mappe til lagring af den nye fil, og derefter vælge PDF fra Filtype rulleliste, og klik derefter på Indstillinger knap, se skærmbillede:
3. Derefter kom den ud Indstillinger dialogboks, tjek Hele projektmappen, se skærmbillede:
4. Og klik derefter på OK > Gem, hele denne projektmappe er gemt som PDF-filformat.
Konverter flere projektmapper til PDF-filer med VBA-kode på én gang
Hvis der er hundredvis af Excel-filer, der skal konverteres, vil ovenstående metode være besværlig, her vil jeg tale om en VBA-kode til konvertering af flere projektmapper til PDF-filer på én gang, gør venligst med følgende trin:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Konverter flere projektmapper til PDF-filer på én gang
Sub ExcelSaveAsPDF()
'Updateby Extendoffice
Dim strPath As String
Dim xStrFile1, xStrFile2 As String
Dim xWbk As Workbook
Dim xSFD, xRFD As FileDialog
Dim xSPath As String
Dim xRPath, xWBName As String
Dim xBol As Boolean
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.Title = "Please select the folder contains the Excel files you want to convert:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
With xRFD
.Title = "Please select a destination folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xRFD.Show <> -1 Then Exit Sub
xRPath = xRFD.SelectedItems.Item(1) & "\"
strPath = xSPath & "\"
xStrFile1 = Dir(strPath & "*.*")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While xStrFile1 <> ""
xBol = False
If Right(xStrFile1, 3) = "xls" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xls", "_pdf")
xBol = True
ElseIf Right(xStrFile1, 4) = "xlsx" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xlsx", "_pdf")
xBol = True
ElseIf Right(xStrFile1, 4) = "xlsm" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xlsm", "_pdf")
xBol = True
End If
If xBol Then
xWbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xRPath & xbwname & ".pdf"
xWbk.Close SaveChanges:=False
End If
xStrFile1 = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Tryk derefter på F5 nøgle til at køre denne kode, og et vindue vises, skal du vælge en mappe, der indeholder de projektmapper, du vil konvertere, se skærmbillede:
4. Klik derefter på OK, vises et andet vindue, vælg en mappesti, hvor du vil output de nye PDF-filer, se skærmbillede:
5. Og så, klik OK, efter at konverteringen er afsluttet, kan du gå til den angivne mappe for at få vist det konverterede resultat, se skærmbilleder:
 |
 |
 |
Konverter flere projektmapper til PDF-filer med en kraftfuld funktion
Hvis du har Kutools til Excel, Med Format Converter værktøj, kan du hurtigt konvertere flere projektmapper til PDF-filer på én gang.
Efter installation Kutools til Excelskal du gøre som dette:
1. Klik Kutools Plus > Workbook > Format Converter, se skærmbillede:
2. Og der vises en hurtigboks for at minde dig om, at du skal lukke de projektmapper, du vil konvertere.
3. Klik OK, derefter i FileFormat konverter dialog, skal du angive følgende indstillinger:
- Under Konverter type rulleliste, vælg Excel-projektmappe til PDF;
- Klik derefter på Tilføj knap for at tilføje de Excel-filer, som du vil konvertere, kan du tilføje projektmapper fra din computerdisk eller OneDrive, som du har brug for;
4. Efter indsættelse af de projektmapper, du vil konvertere, stadig i Filformatkonverter Klik på dialogboksen 
knap for at vælge en mappesti til output af de konverterede filer og derefter angive nogle handlinger, du har brug for nederst i dialogboksen, se skærmbillede:
- Hvis arbejdsbøgerne i undermapperne også skulle konverteres, skal du kontrollere Inkluder undermapper, når du tilføjer mapper afkrydsningsfelt
- Hvis du vil fjerne de originale filer efter konvertering, skal du kontrollere Slet kildefiler efter konvertering boks;
- Hvis du vil beholde den ændrede dato for originale filer, skal du kontrollere Behold ændret dato for originale filer boks;
- Filens bibliotekstruktur kan bevares ved at markere Filens katalogstruktur bevares, når den konverteres boks;
5. Klik derefter på OK for at starte konvertering, når alle de angivne Excel-filer er konverteret til PDF-filerne, kan du gå til den angivne mappe for at få vist det konverterede resultat, se skærmbilleder:
|
|
|
Konverter flere regneark fra en projektmappe for at adskille PDF-filer med VBA-kode
I nogle tilfælde vil du muligvis konvertere hvert regneark i projektmappen til separate PDF-filer. Hvis der er mange ark i din projektmappe, kan nedenstående VBA-kode hjælpe dig med at gemme hvert regneark som en PDF-fil på én gang.
1. Åbn en projektmappe, som du vil konvertere, og hold derefter nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Konverter flere regneark fra en projektmappe til separate PDF-filer
Sub SplitEachWorksheet()
'Updateby Extendoffice
Dim xSPath As String
Dim xSFD As FileDialog
Dim xWSs As Sheets
Dim xWb As Workbook
Dim xWbs As Workbooks
Dim xNWb As Workbook
Dim xInt, xI As Integer
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.title = "Please select a folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWb = Application.ActiveWorkbook
Set xWbs = Application.Workbooks
Set xWSs = xWb.Sheets
Set xNWb = xWbs.Add
xInt = xWSs.Count
For xI = 1 To xInt
On Error GoTo EBreak
Set xWs = xWSs.Item(xI)
If xWs.Visible Then
xWSs(xWs.Name).Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xSPath & "\" & xWs.Name & ".pdf"
Application.ActiveWorkbook.Close False
End If
EBreak:
Next
xWb.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Tryk derefter på F5 nøgle til at køre denne kode, og et vindue vises, skal du vælge en mappesti til lokalisering af de konverterede PDF-filer, se skærmbillede:
4. Klik derefter på OK knap, alle regneark i den aktuelle projektmappe er konverteret PDF-filer separat, se skærmbillede:
Konverter flere regneark fra en projektmappe til separate PDF-filer med en praktisk funktion
Kutools til Excel understøtter også en nyttig funktion - Opdelt arbejdsbog, med denne funktion kan du gemme flere regneark i projektmappen for at adskille Excel-filen, Txt-filen, CSV-filen og PDF-filen efter behov.
Efter installation Kutools til Excelskal du gøre som dette:
1. Åbn den projektmappe, som du vil gemme hvert ark som PDF-fil, og klik derefter på Kutool Plus > Workbook > Opdelt arbejdsbog, se skærmbillede:
2. I Opdelt arbejdsbog i dialogboksen, skal du kontrollere det ark, du vil gemme, og derefter vælge PDF (* .pdf) fra Filtype rulleliste, og klik derefter på Dele knappen, i Vælg mappe vindue, angiv en mappe til at sætte de konverterede filer, se skærmbillede:
 |
|
 |
3. Og så er alle valgte regneark i den aktuelle projektmappe gemt i PDF-filer individuelt, se skærmbillede:
Flere relative artikler:
- Konverter flere Xls-filer til Xlsx-filer i Excel
- For at konvertere en gammel xls Excel-fil til en ny xlsx-fil kan du anvende funktionen Gem som i Excel, men hvis der er flere xls-filer, der skal konverteres, hvordan kan man håndtere denne opgave hurtigt og nemt?
- Gem alle regneark kun som værdier
- Hvis du har en projektmappe, der indeholder flere formler, skal du nu distribuere denne fil til andre brugere, du vil ikke vise formlerne, men kun værdier vises. Normalt kan vi hurtigt gemme et regneark som værdier ved kun at kopiere og indsætte dataene som værdier. Men hvordan kunne du kun gemme alle regneark som værdier uden at kopiere og indsætte en efter en?
- Kommandoknap for at gemme aktivt regneark som PDF-fil
- Mens du arbejder i Microsoft Excel, står du muligvis over for problemet med at gemme aktivt regneark som PDF-fil. I denne artikel kan du lære at gemme aktivt regneark som PDF-fil med VBA-kode via en kommandoknap. Og hvis du også vil gemme et område eller hvert regneark i aktiv projektmappe som individuel PDF-fil, kan denne artikel også hjælpe dig.
- Opdel et stort bord i flere små borde
- Hvis du har et stort regneark, der indeholder flere kolonner og hundreder eller tusinder af rækkedata, vil du nu opdele denne store tabel i flere små tabeller baseret på kolonneværdien eller antallet af rækker for at få følgende resultater. Hvordan kunne du håndtere denne opgave i Excel?
- Opdel en projektmappe for at adskille Excel-filer
- Det kan være nødvendigt at dele en stor projektmappe for at adskille Excel-filer ved at gemme hvert regneark i projektmappen som en individuel Excel-fil. For eksempel kan du opdele en projektmappe i flere individuelle Excel-filer og derefter levere hver fil til forskellige personer for at håndtere den. Ved at gøre det kan du få bestemte personer til at håndtere specifikke data og holde dine data sikre. Denne artikel introducerer måder at opdele en stor projektmappe på for at adskille Excel-filer baseret på hvert regneark.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
