Hoe converteer ik meerdere werkmappen of werkbladen tegelijk naar PDF-bestanden in Excel?
Soms moet u uw Excel-bestanden converteren naar PDF-bestanden, zodat ze niet door anderen kunnen worden gewijzigd. In Excel kunnen we een Excel-bestand als pdf-bestand opslaan met de functie Opslaan als. Maar hoe converteert u meerdere werkmappen tegelijkertijd naar PDF-bestanden in Excel?
- Converteer meerdere werkmappen een voor een naar PDF-bestanden met de functie Opslaan als
- Converteer meerdere werkmappen tegelijk naar PDF-bestanden met VBA-code
- Converteer meerdere werkmappen naar PDF-bestanden met een krachtige functie
- Converteer meerdere werkbladen uit een werkmap om PDF-bestanden te scheiden met VBA-code
- Converteer meerdere werkbladen uit een werkmap naar afzonderlijke PDF-bestanden met een handige functie
Converteer meerdere werkmappen een voor een naar PDF-bestanden met de functie Opslaan als
Normaal gesproken kan de functie Opslaan als in Excel u helpen om de hele werkmap in een PDF-bestand op te slaan, doe dit als volgt:
1. Start uw werkmap die u naar PDF-indeling wilt converteren.
2. Klikken Dien in > Opslaan als, en in de Opslaan als dialoogvenster, geef een map op voor het opslaan van het nieuwe bestand en selecteer PDF van het Opslaan als type vervolgkeuzelijst en klik vervolgens op Opties knop, zie screenshot:
3. Toen kwam het eruit Opties dialoogvenster, vink aan Hele werkboek, zie screenshot:
4. En klik vervolgens op OK > Bespaaris deze hele werkmap opgeslagen als pdf-bestandsindeling.
Converteer meerdere werkmappen tegelijk naar PDF-bestanden met VBA-code
Als er honderden Excel-bestanden moeten worden geconverteerd, zal de bovenstaande methode lastig zijn, hier zal ik het hebben over een VBA-code voor het tegelijkertijd converteren van meerdere werkmappen naar PDF-bestanden, doe dit met de volgende stappen:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: converteer meerdere werkmappen tegelijk naar PDF-bestanden
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. Druk vervolgens op F5 sleutel om deze code uit te voeren, en er wordt een venster weergegeven.Selecteer een map met de werkmappen die u wilt converteren, zie screenshot:
4. Dan klikken OK, er verschijnt een ander venster, selecteer een mappad waarnaar u de nieuwe PDF-bestanden wilt uitvoeren, zie screenshot:
5. En dan, klik OK, na het voltooien van de conversie, kunt u naar de opgegeven map gaan om een voorbeeld van het geconverteerde resultaat te bekijken, zie screenshots:
 |
 |
 |
Converteer meerdere werkmappen naar PDF-bestanden met een krachtige functie
Als je Kutools for Excel, Met Format Converter hulpprogramma kunt u snel meerdere werkmappen tegelijk naar PDF-bestanden converteren.
Na het installeren van Kutools for Excel, doe dit als volgt:
1. Klikken Koetools Plus > werkboek > Format Converter, zie screenshot:
2. En er verschijnt een promptvenster om u eraan te herinneren dat u de werkmappen die u wilt converteren, moet sluiten.
3. Klikken OKen vervolgens in de FileFormat-omzetter dialoogvenster, specificeer de volgende opties:
- Onder de Type omzetten vervolgkeuzelijst, selecteer Excel-werkmap naar PDF;
- Dan klikken Toevoegen knop om de Excel-bestanden toe te voegen die u wilt converteren, u kunt de werkmappen van uw computerschijf of OneDrive naar behoefte toevoegen;
4. Na het invoegen van de werkmappen die u wilt converteren, nog steeds in het Bestandsformaat Converter dialoogvenster, klik dan 
knop om een mappad te kiezen om de geconverteerde bestanden uit te voeren, en specificeer vervolgens enkele bewerkingen die u nodig hebt onderaan het dialoogvenster, zie screenshot:
- Als de werkmappen in de submappen ook moesten worden geconverteerd, controleer dan het Neem submappen op bij het toevoegen van mappen selectievakje;
- Als u de originele bestanden na het converteren wilt verwijderen, vinkt u het Verwijder bronbestanden na conversie doos;
- Als u de gewijzigde datum van originele bestanden wilt behouden, controleer dan het Bewaar de gewijzigde datum van originele bestanden doos;
- De directorystructuur van het bestand kan worden behouden door de De directorystructuur van het bestand blijft behouden tijdens de conversie doos;
5. Dan klikken OK om te beginnen met converteren, als alle gespecificeerde Excel-bestanden geconverteerd zijn naar de PDF-bestanden, kan je naar de gespecificeerde map gaan om een voorbeeld van het geconverteerde resultaat te zien, zie screenshots:
|
|
|
Converteer meerdere werkbladen uit een werkmap om PDF-bestanden te scheiden met VBA-code
In sommige gevallen wilt u misschien elk werkblad in de werkmap converteren naar afzonderlijke PDF-bestanden.Als er veel bladen in uw werkmap staan, kan de onderstaande VBA-code u helpen om elk werkblad in één keer als een PDF-bestand op te slaan.
1. Open een werkmap die u wilt converteren en houd vervolgens de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: converteer meerdere werkbladen van een werkmap naar afzonderlijke PDF-bestanden
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. Druk vervolgens op F5 sleutel om deze code uit te voeren, en er verschijnt een venster, kies een mappad voor het lokaliseren van de geconverteerde PDF-bestanden, zie screenshot:
4. Dan klikken OK knop, zijn alle werkbladen in de huidige werkmap afzonderlijk geconverteerd naar PDF-bestanden, zie screenshot:
Converteer meerdere werkbladen uit een werkmap naar afzonderlijke PDF-bestanden met een handige functie
Kutools for Excel ondersteunt ook een handige functie - Werkmap splitsen, met deze functie kunt u meerdere werkbladen in de werkmap opslaan om het Excel-bestand, Txt-bestand, CSV-bestand en PDF-bestand naar behoefte te scheiden.
Na het installeren van Kutools for Excel, doe dit als volgt:
1. Open de werkmap waarin u elk blad als pdf-bestand wilt opslaan en klik op Koetool Plus > werkboek > Werkmap splitsen, zie screenshot:
2. In de Werkmap splitsen dialoogvenster, vink het blad aan dat u wilt opslaan en kies vervolgens Pdf (* .pdf) van het Opslaan als type vervolgkeuzelijst en klik vervolgens op Split knop, in de map selecteren venster, specificeer een map voor het plaatsen van de geconverteerde bestanden, zie screenshot:
 |
|
 |
3. En dan zijn alle geselecteerde werkbladen in de huidige werkmap afzonderlijk opgeslagen in PDF-bestanden, zie screenshot:
Meer relatieve artikelen:
- Converteer meerdere xls-bestanden naar xlsx-bestanden in Excel
- Om een oud xls Excel-bestand naar een nieuw xlsx-bestand te converteren, kunt u de functie Opslaan als in Excel toepassen, maar als er meerdere xls-bestanden moeten worden geconverteerd, hoe kan deze taak dan snel en gemakkelijk worden uitgevoerd?
- Bewaar alle werkbladen alleen als waarden
- Als u een werkmap heeft die meerdere formules bevat, moet u dit bestand nu naar andere gebruikers distribueren, u wilt de formules niet weergeven, maar alleen waarden worden weergegeven. Normaal gesproken kunnen we een werkblad snel opslaan als waarden door de gegevens alleen als waarden te kopiëren en te plakken. Maar hoe kunt u alle werkbladen alleen als waarden opslaan zonder ze een voor een te kopiëren en te plakken?
- Commandoknop om actief werkblad op te slaan als pdf-bestand
- Wanneer u in Microsoft Excel werkt, kunt u het probleem tegenkomen om een actief werkblad op te slaan als pdf-bestand. In dit artikel leert u hoe u een actief werkblad kunt opslaan als PDF-bestand met VBA-code via een opdrachtknop. En als u ook een bereik of elk werkblad in een actieve werkmap als afzonderlijk PDF-bestand wilt opslaan, kan dit artikel u ook helpen.
- Splits een grote tafel in meerdere kleine tafels
- Als u een groot werkblad heeft dat meerdere kolommen en honderden of duizenden rijen gegevens bevat, wilt u deze grote tabel nu opsplitsen in meerdere kleine tabellen op basis van de kolomwaarde of het aantal rijen om de volgende resultaten te krijgen. Hoe zou u deze taak in Excel kunnen aanpakken?
- Splits een werkmap om Excel-bestanden te scheiden
- Mogelijk moet u een grote werkmap splitsen om Excel-bestanden te scheiden door elk werkblad van de werkmap op te slaan als een afzonderlijk Excel-bestand. U kunt bijvoorbeeld een werkmap opsplitsen in meerdere afzonderlijke Excel-bestanden en vervolgens elk bestand aan een andere persoon bezorgen om het af te handelen. Door dit te doen, kunt u ervoor zorgen dat bepaalde personen specifieke gegevens verwerken en uw gegevens veilig houden. Dit artikel introduceert manieren om een grote werkmap te splitsen om Excel-bestanden te scheiden op basis van elk werkblad.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
