Habe ein Makro übernommen, das eine Arbeitsmappe resp. bestimmte Laschen daraus ohne Formeln und dergl. (--> d.h. nur die blossen Zahlen) in einem vorgegebenen Ordern abspeichert als xls abspeichert. Ich möchte nun, dass das Format von xls auf xlsx speichert.
hier das Makro:
Sub SaveAsEmailVersion()
' SaveAsEmailVersion Macro
Application.Run "RefireBLP"
ActiveWorkbook.SaveAs FileName:="S:\Kunden\xy\125648\PF E.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Sheets("Watch List").Select
Application.Run "BLPLinkReset"
Application.Run "RefireBLP"
Sheets(Array("Watch List", "Security List", "Struki", "Portfolio DB", "AssCurrAlloc", " _
Charts", "RUST", "Y und C", "Codes")).Select
Sheets("Watch List").Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Sheets("Security List").Select
Application.Run "BLPLinkReset"
ActiveWorkbook.Save
Application.Run "RefireBLP"
End Sub
Wenn ich den ActiveWorkbook.SaveAs FileName:="S:\Kunden\xy\125648\PF E.xls", _ auf xlsx am Schluss abändere kommt dann beim öffnen dieser Datei die Fehlermeldung, dass die Datei nicht geöffnet werden kann, da das Dateiformat oder die Dateierweiterung ungültig ist. Kann mir da jemand weiterhelfen?
Beste Grüsse
Kaspar