Office: (Office 2007) VBA: xlsm als xlsx speichern

Hallo Forum,

ich möchte von einer XLSM zur Laufzeit eine Sicherungskopie als XLSX speichern. Wenn ich sie im gleichen Format abspeichere, geht das ohne Probleme.

ThisWorkbook.SaveCopyAs Pfad & Dateiname & ".xlsm"

Einfach nur die Endung in xlsx ändern, ist nicht der Bringer, dann läßt sich die Datei nicht mehr öffnen.

Kann mir mal jemand auf die Sprünge helfen! *Smilie

:)

 

Moin Backowe,

klaro, dass das nicht funktioniert, denn Excel 2007 unterscheidet strikt zwischen Dateien ohne Makros (*.XLSX) und Dateien mit VB-Anteil (*.XLSM oder *.XLAM).
Wenn Du die Datei einfach nur "umbenennst" (nichts anderes ist das Vorgaukeln einer anderen Dateiendung) dann lässt sie sich natürlich nicht mehr öffnen, da der Inhalt der Datei (also inkl. VB-Anteil) nicht dem erwarteten XLSX-Format entspricht !
Du könntest die Mappe allenfalls im alten Excel 2003 - Format speichern :

ThisWorkbook.SaveAs Filename:= Pfad & Dateiname & ".xls", FileFormat:=xlExcel8

 

Hallo!

Man kann auch im neuen Format speichern.

Gruß, René

 

Hallo,

erstmal Danke an Euch Beide!

Während des Makrolaufes, in dem ich einen größeren Zeitraum auswerte, möchte ich an verschiedenen Stellen zur Laufzeit eine Momentaufnahme von ThisWorkbook speichern. Ich wollte einfach nur schreibfaul sein, habe dann, was ja auch funktioniert SaveCopyAs benutzt, dann einfach die Endung geändert und bin auf die Schnauze gefallen!

@NoNet: Das war mir gestern Abend zu fortgeschrittener Stunde und nach vielen Stunden Makrocode schreiben auch nicht mehr so ganz klar, ich hatte auch keine Lust mehr, deswegen auch noch eine Suchmaschine zu quälen. Mea culpa!

@René: Ich habe den Befehl so übernommen, da ich im xlOpenXML Format speichern muß!

Die Lösung: Ich lege eine neue Mappe an, kopiere die relevanten Tabellen in die neue Mappe und speichere mit SaveAs ab. Fertig! *Smilie

 

Hallo Forum,

der Form halber hier noch der Code:

Code: