Hallo,
Ich versuche eine Datei, die ich leider nur als .xls aus einem anderen Programm geliefert bekomme am Ende als Kopie .xlsx Datei abzuspeichern.
Dazu bin ich jetzt 2 Wege gegangen.
'Kopie der Datei speichern als .xlsx
Dim NeuerName As String
' Die letzten 4 Zeichen .xls abschneiden
NeuerName = Left(QName.FullName, Len(QName.FullName) - 4)
ActiveWorkbook.SaveCopyAs Filename:=NeuerName & ".xlsx"
und
ThisWorkbook.SaveCopyAs Filename:=NeuerName & ".xlsx"
In beiden Fällen bekomme ich zwar eine .xlsx Erweiterung gespeichert, kann sie aber nicht öffnen, mit der Fehlermeldung:
Excel kann die Datei nicht öffnen, da das Dateiformat ungültig ist.
Ich habe bereits versucht,
, FileFormat:=xlOpenXMLWorkbook anzuhängen, bekomme dann aber im Makro den Fehler: Benanntes Argument nicht gefunden.
ActiveWorkbook.SaveCopyAs Filename:=NeuerName & ".xlsx", FileFormat:=xlOpenXMLWorkbook
Und das in beiden Fällen.
Weiß jemand von euch Rat?
Danke
|