Hallo zusammen,
ich arbeite mit Excel 2010 und kopiere Daten per Makro in eine neue Datei.
Sheets("Eingaben").Range("A4:AG500").Copy
Workbooks.Add
ActiveSheet.Paste
nun möcht ich die Datei mit diesen Code abspeichern.
ort = ActiveWorkbook.Path
If (ort = "") Then ort = "P:\Produktionsuebersicht\Sammeldaten"
ort = ort & "\" & "Produktionsübersicht.xlsx"
s = Format(Now, "dd-mm-yyyy_hh-mm-ss")
mappe = "P:\Produktionsuebersicht\Produktionsübersicht_Dateien\Sicherungskopie\Produktionsübersicht" & "_" & s & "_" & Application.UserName & ".xlsx"
ActiveWorkbook.SaveAs Filename:=mappe, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close
Wenn ich die Dateiendung .xls angebe, kann ich die Datei öffnen. Ich möchte aber .xlsx Dateien erzeugen. Gespeichtert wird die Datei auch so. Beim öffnen erhalte ich die Fehlermeldung die Datei kann von Excel nicht geöffnet werden, da das Dateiformat oder die Dateierweiterung ungültig ist.
Gruß Werner