Speichern unter schlägt fehl

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Speichern unter schlägt fehl
von: Conelius
Geschrieben am: 18.08.2015 10:36:18

Hallo zusammen,
mittels Makro kopiere ich einen Excel-Sheet (.xlsm) in eine neue Arbeitsmappe. Die möchte ich speichern unter einem angegeben Pfad und bestimmten Namen. Leider schlägt hier meine SaveAs Funktion fehl und ich erhalte von Windows folgende Fehlermeldung:
Userbild
Weiß jemand worin die Ursache des Fehlers liegt?
Vielen Dank im Voraus!
Mein Makro:


Sub Speichern()
ActiveWorkbook.Worksheets("Test").Copy
ActiveSheet.Shapes.Range(Array("Button 2")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Delete
If Dir("c:\test", vbDirectory) = "" Then
MkDir "c:\test"
End If
ActiveWorkbook.SaveAs "c:\test" & "\Datenauswertung.xlsx"
MsgBox "Die Datei wurde gespeichert.", vbInformation
End Sub

Bild

Betrifft: AW: Speichern unter schlägt fehl
von: Rudi Maintaire
Geschrieben am: 18.08.2015 11:01:43
Hallo,
versuch mal:
ActiveWorkbook.SaveAs filename:="c:\test\Datenauswertung", fileformat:=xlopenxmlworkbook
Gruß
Rudi

Bild

Betrifft: AW: Speichern unter schlägt fehl
von: Daniel
Geschrieben am: 18.08.2015 11:11:44
Hi
zur Erläuterung:
seit Excel 2007 gibt es nicht mehr nur ein Standard-Excel-Datenformat (xls) sondern vier verschiedene (xlsx, xlsm, xlsb, xls).
daher kann Excel beim SaveAs nicht mehr automatisch das FileFormat einfügen, wenn man es nicht angegeben hat, sondern man muss es immer mit angeben (oder anders formuliert: der Paramter "FileFormat" ist nicht mehr optional sondern muss angegeben werden)
Dafür kann man die Dateierweiterung (das ".xlsx") im Dateinamen weglassen und man sollte dies auch tun!
denn diese Dateierweiterung wird vom System beim SaveAs automatisch und passend zum gewählten FileFormat ergänzt.
Gruß Daniel

Bild

Betrifft: AW: Speichern unter schlägt fehl
von: Conelius
Geschrieben am: 18.08.2015 13:57:23
Super vielen Dank so funktioniert es!
Beste Grüße
Cornelius

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Speichern unter schlägt fehl"