Tabbladen opslaan als PDF

[AjaciedNick]

Je kan in Excel een tabblad opslaan als PDF. Het is zelfs als macro te maken dat je een tabblad opslaat als PDF in een vooraf aangewezen map.

Nu heb ik echter 20+ tabbladen en wil deze eigenlijk allemaal opslaan als aparte PDF. Nu kan ik dit per tabblad gaan doen maar kan dit ook met een macro? Dat je op tabblad 1 een knop hebt en hij dan alle tabbladen apart opslaat, de bestandsnaam moet de tabblad naam zijn (of een cel in dat tabblad als dat makkelijker is)

 

[edmoor]

Zoiets:

for i = 1 to 20
    Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFnaam
Next i

Voor een exacter antwoord kan je beter een voorbeeld document plaatsen.

 

[AjaciedNick]

Als voorbeeld heb ik dit bestand.

Bekijk bijlage test.xlsm

tabblad 001, 002, 003 (komen meer tabbladen) moeten opgeslagen worden met de naam in A1 of met de tabblad naam (is nu hetzelfde)
op tabblad 001 heb ik de macro om op te slaan als pdf met deze code:

Sub PDF()
Dim FacName As String
FacName = ActiveSheet.Range("A1").Value
If Dir("C:\Users\Nick\Desktop\" & FacName & ".pdf") <> "" Then
MsgBox "Het bestand: " & FacName & ".pdf bestaat reeds"
Exit Sub
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Nick\Desktop\" & FacName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True
End If
End Sub

 

[edmoor]

Vrij sumier voorbeeld, maar dit dan:

Sub PDF()
    Pad = "C:\Users\Nick\Desktop\"
    For Each sh In ThisWorkbook.Sheets
        If sh.Name <> "Voorblad" Then
            If Dir(Pad & sh.Name & ".pdf") <> "" Then
                MsgBox "Het bestand: " & sh.Name & ".pdf bestaat reeds"
            Else
                sh.ExportAsFixedFormat 0, Pad & sh.Name, , , , , , 1
            End If
        End If
    Next sh
End Sub

 

[AjaciedNick]

Het werkt, dankje!

 

[edmoor]

Let vanwege leesbaarheid ook op de inspringpunten.