Onderwerp

Zeker! Hieronder ziet u een Excel VBA-macro waarmee elk blad in de werkmap wordt uitgepakt als een PDF-bestand met de naam van het blad:

1. Open uw Excel-werkmap.
2. Druk op Alt + F11 om de VBA-editor te openen.
3. Voeg een nieuwe module in door op Insert > Module te klikken.
4. Kopieer en plak de volgende code in de module:

Sub ExportSheetsAsPDF()
    Dim ws As Worksheet
    Dim filePath As String
    Dim fileName As String
    Dim fullPath As String

    ' Set the path to save the PDFs (modify as needed)
    filePath = ThisWorkbook.Path & "\"

    For Each ws In ThisWorkbook.Worksheets
        ' Create the full path and file name
        fileName = ws.Name & ".pdf"
        fullPath = filePath & fileName

        ' Export the sheet as a PDF
        ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fullPath, Quality:=xlQualityStandard, _
                               IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next ws

    ' Notify user that sheets have been exported
    MsgBox "All sheets have been exported as PDFs to " & filePath, vbInformation
End Sub

5. Sluit de VBA-editor.
6. Voer de macro uit door op Alt + F8 te drukken, ExportSheetsAsPDF te selecteren en op Run te klikken.

Met deze macro wordt elk blad in uw Excel-werkmap geëxporteerd als een afzonderlijk PDF-bestand met de naam van het werkblad, opgeslagen in dezelfde map als de werkmap. Wijzig de variabele filePath als u de PDF's in een andere map wilt opslaan.