ich bitte nochmals um Hilfe: mit dem Code unten öffne ich eine Datei xlsx (Excel 2007), erzeuge neue Dateien mit vereinzelten Daten und möchte diese anschließend im Format Excel 2003 speichern (nicht alle Mitarbeiter haben aktuelle Excel-Versionen). Im Moment werden die Dateien jedoch als .xlsx abgelegt.
Wie kann ich das ändern?
Danke bereits im Voraus.
Freundliche Grüße,
Heidi
sPfad = ThisWorkbook.Path & Application.PathSeparator
Set wbKundenanalyse = Workbooks.Open(Filename:=sPfad & "Kundenanalyse.xlsx", ReadOnly:=False)
Set wksKundenanalyse = wbKundenanalyse.Worksheets(1) 'Tabelle mit den Rohdaten
'Verzeichnis der Dateien
sPfad = wbKundenanalyse.Path & Application.PathSeparator
...
Jetzt wird eine monatlich unterschiedliche Anzahl von Dateien erzeugt (für jeden Kundenberater einzeln)
Die neu erzeugten Dateien sollen im Format Excel 2003 abgespeichert werden.
...
'Datei speichern - schon vorhande Datei gleichen Namens wird ohne Rückfrage überschrieben
Application.DisplayAlerts = False
wbVKGAneu.SaveAs Filename:=sPfad & sDateiAnalyse, FileFormat:=wbVKGAneu.FileFormat
Application.DisplayAlerts = True
'Erzeugte Datei schliessen
wbVKGAneu.Close