Speichern unter !!

Bild

Betrifft: Speichern unter !!
von: Holger Meinert
Geschrieben am: 25.09.2003 13:29:17

Hallo Experten,
ich habe eine Arbeitsmappe woraus ich mit einem Makro Daten in eine Mappe
(Original.msc) kopiere.
Jetzt möchte ich per VBA die Mappe unter einem neuen Namen(Import.msc)
abspeichen.
Das Problem liegt darin, wenn ich den Dialog "Speicher unter" über ein Makro
aufrufe und die das Speichern bestätige werden die Daten nicht abgespeichert.
Es erscheint auch kein Dialog "Datei ersetzen", die Datei ist aber schon vorhanden.
Rufe ich "Speicher unter" über Datei > Speichern unter auf funktioniert es einwandfrei.
Es liegt wohl an der Dateiendung (*.msc)glaube ich !
Weiß jemand eine Lösung, sodaß das "Speichern unter" mit VBA korrekt ausgeführt
wird.
Vielen Dank !

mfg
Holger

Bild


Betrifft: AW: Speichern unter !!
von: junny
Geschrieben am: 25.09.2003 13:57:34

Hai Holger,
*.msc kenn ich nicht und geht bei mir nicht (habe aber eine ältere Excel Version, soll also nichts heißen)

was bei mir geht ist bspw. eine csv abspeichern. Vielleicht kannst Du den Code für dich ummodeln.


Sub speichern()
'SpeichernUnter
Dim DName, Dateiname, Pfad
Pfad = "C:\Test\Test"
DName = Import
Dateiname = Pfad & "\" & DName & ".csv"
ThisWorkbook.SaveAs Filename:=Dateiname, FileFormat:= _
        csv
End Sub



gruss junny


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Speichern unter !!"