Hoe kunt u meerdere werkboeken of werkbladen tegelijkertijd naar PDF-bestanden converteren in Excel?

Het converteren van Excel-bestanden naar PDF is een veelvoorkomende taak wanneer u gegevens wilt delen terwijl u wijzigingen voorkomt. Hoewel de functie Opslaan als in Excel u in staat stelt om een enkel werkboek naar PDF te converteren, kan dit tijdrovend zijn voor meerdere bestanden. Deze handleiding onderzoekt verschillende methoden, inclusief VBA-code en Kutools voor Excel, om snel meerdere werkboeken of werkbladen tegelijkertijd naar PDF-bestanden te converteren.

• Converteer meerdere werkboeken naar PDF-bestanden met de functie Opslaan als, één voor één
• Converteer meerdere werkboeken naar PDF-bestanden met VBA-code in één keer
• Converteer meerdere werkboeken naar PDF-bestanden met een krachtige functie
• Converteer meerdere werkbladen uit een werkboek naar afzonderlijke PDF-bestanden met VBA-code
• Converteer meerdere werkbladen uit een werkboek naar afzonderlijke PDF-bestanden met een handige functie

Converteer meerdere werkboeken naar PDF-bestanden met de functie Opslaan als, één voor één

Normaal gesproken kan de functie Opslaan als in Excel u helpen om het hele werkboek op te slaan als een PDF-bestand, doe dit als volgt:

1. Open het werkboek dat u wilt converteren naar PDF-formaat.

2. Klik op Bestand > Opslaan als, en in het dialoogvenster Opslaan als, specificeer een map om het nieuwe bestand op te slaan, selecteer vervolgens PDF in de vervolgkeuzelijst Opslaan als type, en klik daarna op de knop Opties, zie screenshot:

3. Vervolgens, in het pop-upvenster Opties, vink het vakje Hele werkboek aan, zie screenshot:

4. Klik vervolgens op OK > Opslaan, dit hele werkboek is nu opgeslagen in PDF-bestandsformaat.

Converteer meerdere werkboeken naar PDF-bestanden met VBA-code in één keer

Als er honderden Excel-bestanden moeten worden geconverteerd, zal de bovenstaande methode omslachtig zijn. Hier bespreek ik een VBA-code om meerdere werkboeken tegelijkertijd naar PDF-bestanden te converteren; volg deze stappen:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module, en plak de volgende code in het modulevenster.

VBA-code: Converteer meerdere werkboeken naar PDF-bestanden in één keer

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 op de toets F5 om deze code uit te voeren, en er verschijnt een venster waarin u een map moet selecteren die de werkboeken bevat die u wilt converteren, zie screenshot:

4. Klik op OK, er verschijnt een ander venster waarin u een mappad moet selecteren waar u de nieuwe PDF-bestanden wilt opslaan, zie screenshot:

5. Klik op OK, nadat de conversie is voltooid, kunt u naar de opgegeven map gaan om het conversieresultaat te bekijken, zie screenshots:

Converteer meerdere werkboeken naar PDF-bestanden met een krachtige functie

Als u Kutools voor Excel heeft, kunt u met de functie Batch Converteer snel meerdere werkboeken tegelijkertijd naar PDF-bestanden converteren.

1. Klik op Kutools Plus > Werkboek > Batch Converteer, zie screenshot:

2. Er verschijnt een pop-upvenster dat u eraan herinnert de werkboeken die u wilt converteren te sluiten.

3. Klik op OK, vervolgens, in het dialoogvenster Bestandsformaat Converteren , specificeer de volgende opties:

• Selecteer onder de vervolgkeuzelijst Conversietype de optie Excel-werkboek naar PDF;
• Klik op de knop Toevoegen om de Excel-bestanden te selecteren die u wilt converteren. U kunt werkboeken van uw computer of OneDrive kiezen indien nodig.

4. Nadat u de werkboeken die u wilt converteren hebt ingevoegd, nog steeds in de Bestandsformaat Converter dialoogvenster, klik op de knop om een mappad te kiezen om de geconverteerde bestanden op te slaan, en specificeer vervolgens enkele bewerkingen die u nodig hebt onderaan in het dialoogvenster, zie screenshot:

5. Klik vervolgens op OK om de conversie te starten. Zodra alle gespecificeerde Excel-bestanden zijn geconverteerd naar PDF's, gaat u naar de aangewezen map om de resultaten te bekijken. Zie onderstaande screenshots:

Converteer meerdere werkbladen uit een werkboek naar afzonderlijke PDF-bestanden met VBA-code

In sommige gevallen wilt u mogelijk elk werkblad in het werkboek converteren naar afzonderlijke PDF-bestanden. Als uw werkboek veel tabbladen bevat, kan de onderstaande VBA-code helpen om elk werkblad tegelijkertijd op te slaan als een afzonderlijk PDF-bestand.

1. Open een werkboek dat u wilt converteren, en houd vervolgens de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module, en plak de volgende code in het modulevenster.

VBA-code: Converteer meerdere werkbladen uit een werkboek 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 op de toets F5 om deze code uit te voeren, en er verschijnt een venster; kies een mappad om de geconverteerde PDF-bestanden op te slaan. Zie screenshot:

4. Klik op de knop OK, en alle werkbladen in het huidige werkboek worden geconverteerd naar afzonderlijke PDF-bestanden:

Converteer meerdere werkbladen uit een werkboek naar afzonderlijke PDF-bestanden met een handige functie

Kutools voor Excel ondersteunt ook een nuttige functie - Werkboek splitsen, waarmee u meerdere werkbladen binnen het werkboek kunt opslaan als afzonderlijke Excel-bestanden, Txt-bestanden, CSV-bestanden en PDF-bestanden, zoals u nodig hebt.

1. Open het werkboek waarin u elk blad wilt opslaan als een afzonderlijk PDF-bestand, en klik vervolgens op Kutool Plus > Werkboek > Werkboek splitsen, zie screenshot:

2. In het dialoogvenster Werkboek splitsen, vink de bladen aan die u wilt opslaan, en kies vervolgens PDF (*.pdf) in de vervolgkeuzelijst Opslaan als type, en klik vervolgens op de knop Splitsen. In het venster Map selecteren, specificeer een map om de geconverteerde bestanden in op te slaan, zie screenshot:

3. En vervolgens zijn alle geselecteerde werkbladen in het huidige werkboek afzonderlijk opgeslagen als PDF-bestanden, zie screenshot:

Meer gerelateerde artikelen: