Beste Helpers,
Ik heb een simpele vraag eigenlijk. Op het forum kwam ik enkel het afzonderlijk opslaan van een werkblad in PDF formaat tegen.
Mijn afzonderlijk werkblad moet opgeslagen worden in Excel formaat, maar daarvan kan ik de code niet vinden.
Onderstaande code werkt wel naar een PDF bestand, maar verder kom ik niet.
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Sheets("Declaratie").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Jan\Documents\Declaratietest"
End Sub
Na nog wat verder speurwerk heb ik zelf met een omweg een aanvaardbare oplossing gevonden
Vriendelijke groet,
Jan
Ik heb een simpele vraag eigenlijk. Op het forum kwam ik enkel het afzonderlijk opslaan van een werkblad in PDF formaat tegen.
Mijn afzonderlijk werkblad moet opgeslagen worden in Excel formaat, maar daarvan kan ik de code niet vinden.
Onderstaande code werkt wel naar een PDF bestand, maar verder kom ik niet.
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Sheets("Declaratie").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Jan\Documents\Declaratietest"
End Sub
Na nog wat verder speurwerk heb ik zelf met een omweg een aanvaardbare oplossing gevonden
Vriendelijke groet,
Jan
Laatst bewerkt: