Ik heb een Excel met iets van 80 werkbladen (nee, niet mijn idee). Nu wil ik elk werkblad apart als pdf opslaan. Deze functie schijnt er niet te zijn in Excel, heb ook alle opslaan als opties wel geprobeerd.
Deze VBA vond ik op Google, maar ik krijg 'syntax error'
Sub SaveAsPDF()
Dim CurWorksheet As Worksheet
For Each CurWorksheet In ActiveWorkbook.Worksheets
CurWorksheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Application.ActiveWorkbook.Path & “\” & CurWorksheet.Name, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next CurWorksheet
End Sub
Ik kan de data niet delen i.v.m privacy. Hoe kan ik dit in een keer doen i.p.v elk werkblaadje apart handmatig te moeten opslaan?
EDIT: Het is wel gelukt met deze https://www.thespreadsheetguru.com/blog/split-tabs-to-individual-files
Deze VBA vond ik op Google, maar ik krijg 'syntax error'
Sub SaveAsPDF()
Dim CurWorksheet As Worksheet
For Each CurWorksheet In ActiveWorkbook.Worksheets
CurWorksheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Application.ActiveWorkbook.Path & “\” & CurWorksheet.Name, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next CurWorksheet
End Sub
Ik kan de data niet delen i.v.m privacy. Hoe kan ik dit in een keer doen i.p.v elk werkblaadje apart handmatig te moeten opslaan?
EDIT: Het is wel gelukt met deze https://www.thespreadsheetguru.com/blog/split-tabs-to-individual-files
Laatst bewerkt:
