Excel opslaan als xls ipv XLSX

[tepke]

Beste

in het verleden heb ik een programmatje gemaakt dat in oude versie Excel opgeslagen werd als xls bestand. Dit bestand heeft mijn printer programma nodig om stickers te maken. hij kan niet overweg met XLSX bestanden

nu ben ik over gestapt op office 365 en nu wordt het programma opgeslagen als een XLSX, graag zou ik het als XLS
weet iemand de code ?

 

[edmoor]

Dat zou dan dit moeten zijn:

ActiveWorkbook.SaveAs "Document.xls", FileFormat:=56

 

[tepke]

bedankt nu zou ik hem nog automatisch laten opslaan

bedankt voor het helpen zover, vroeg me af of er een ook een code was vo0r het onderstaande
hij vraag de macro of hij het mag overschrijven en ik moet akkoord gaan met opslaan in oude versie is daar ook een code voor?

ActiveWorkbook.SaveAs "Document.xls", FileFormat:=56

 

[edmoor]

Dat kan zo:

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "Document.xls", FileFormat:=56
Application.DisplayAlerts = True