Office: (Office 2007) vba excel kopie speichern ohne das original gespeichert wird

hi

ich möchte gerne die kopie einer exceldatei speichern ohne, dass das von mir geöffnete und veränderte dokument gespeichert wird. also wie wenn ich eine datei öffne und anschließend auf datei speichern unter klicke, dann wird die veränderte datei als kopie gespeichert und die ursprünglich geöffnete datei bleibt unverändert.

gibt es da in vba eine lösung?


danke im voraus, lg chris

:)

 

Moin, chris,

SaveCopyAs dürfte der Befehl sein, den Du suchst: Originaldatei bleibt auf, andere Datei wird angelegt.

 

danke für die schnelle antwort, aber den befehl kenn ich schon, löst mein problem leider nicht. denn mit savecopyas wird die originaldatei auch gespeichert und das brauch ich leider nicht.

 

Moin, Chris,

das wäre mir neu (oder MS hat nach Excel2000 den Befehl verändert):

 

Hallo Chris,
versuch´s mal hiermit:

Sub Datei_speichern_unter()
'

Dim NeuerName As String

NeuerName = "Deine_Datei " & Range("A1")

'speichern mit Dateiendung ".xlsm"
ActiveWorkbook.SaveAs NeuerName & ".xlsm"

End Sub

Wenn Du in Zelle A1 das aktuelle DAtum anzeigst "=Datum()" hast Du auch immer das Speicherdatum im Dateinamen stehen :-)

Viele Grüße
Jacques

 

Hallo Chris,

ich habe für eine Anwendung folgende Lösung erarbeitet:


Sub Datei_speichern()

ActiveWorkbook.SaveCopyAs FileName:="D:\Monatsbericht\Auswertung\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_Fertig_" & (Date) & ".xls"

ActiveWorkbook.Close SaveChanges:=False


End Sub



Das sichert eine Datei mit dem aktuellen Dateinamen, erweitert um _Fertig_ und angehängt dem aktuellen Datum ( -> (Date) )



Gruß

Peter