Hallo zusammen, mit folgen Makro wird eine Sicherungsdatei angelegt und Excel beendet.
Nun möchte ich gern das keine Abfrage kommt , das diese Datei schon existiert und überschrieben werden soll.
Danke schon mal für die Antworten
Sub Kopie2()
'
' Sicherungsdatei
ActiveWorkbook.SaveAs Filename:= _
"C:\Sicherung\Daten.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.Quit
End Sub
Moin!
Am Anfang des Makros:
Application.DisplayAlerts = False
Es sollte am Schluss wieder auf True gesetzt werden.
Ist dabei zwar nicht notwendig, entspricht aber eher einem sauberen Programmierstil.
Gruß Ralf
Hallo,
ich würde in den SaveAs-String eine Zeitangabe mit einbauen.
Dann gibt es diese Meldung erst gar nicht.
(26.11.2017, 11:57)RPP63 schrieb: [ -> ]Moin!
Am Anfang des Makros:
Application.DisplayAlerts = False
Es sollte am Schluss wieder auf True gesetzt werden.
Ist dabei zwar nicht notwendig, entspricht aber eher einem sauberen Programmierstil.
Gruß Ralf
Danke habe es eingefügt , klappt
(26.11.2017, 12:29)Käpt\n Blaubär schrieb: [ -> ]Hallo,
ich würde in den SaveAs-String eine Zeitangabe mit einbauen.
Dann gibt es diese Meldung erst gar nicht.
Hallo Käpt'n Blaubär , habe Datum mit eingefügt. Danke
Hallo,
Zitat:Hallo Käpt'n Blaubär , habe Datum mit eingefügt. Danke
... war aber nicht mein Vorschlag. Wenn Du das Datum nutzt und mehr als einmal am Tag speicherst,
dann hast Du die ungewollte Meldung weiterhin.
Darum schrieb ich
Zeitangabe und nicht
Datumangabe.
Im Beispielcode mal beides
Zitat:Sub DateiInAnderenOrdner()
Dim strPfad As String, strDatei As String
strPfad = "C:\Users\Admin\Desktop\xlSicherungsdateien"
strDatei = "Meine_Sicherungskopie"
ActiveWorkbook.Save
ActiveWorkbook.SaveCopyAs Filename:=strPfad & "\TEST\" & "_" & Format(Now, "YY.MM.DD _ HH.MM.SS") & "_" & strDatei & ".xls"
End Sub
(26.11.2017, 13:27)Käpt\n Blaubär schrieb: [ -> ]Hallo,
... war aber nicht mein Vorschlag. Wenn Du das Datum nutzt und mehr als einmal am Tag speicherst,
dann hast Du die ungewollte Meldung weiterhin.
Darum schrieb ich Zeitangabe und nicht Datumangabe.
Im Beispielcode mal beides
Hallo , das werden dann zu viel Dateien am Tag.
Ich habe die Antwort von RPP63 davor gesetzt und er frag nichts mehr. (
Application.DisplayAlerts = False)
Danke für den Hinweis
Hallo,
Zitat:Hallo , das werden dann zu viel Dateien am Tag.
tja, ich hätte nicht gedacht, daß der Code die Löschen-Funktion außer Kraft setzt.
Auch das könnte man übrigens bereits in dem Makro miterledigen lassen, so daß
am Ende des Tages auch nur die jüngste Datei erhalten bleibt.
Hallo Peter,
(26.11.2017, 13:56)Käpt\n Blaubär schrieb: [ -> ]tja, ich hätte nicht gedacht, daß der Code die Löschen-Funktion außer Kraft setzt.
soll er ja auch nicht. Siehe Frage in #1: "
Hallo zusammen, mit folgen Makro wird eine Sicherungsdatei angelegt und Excel beendet.
Nun möchte ich gern das keine Abfrage kommt , das diese Datei schon existiert und überschrieben werden soll."
Gruß Uwe
Hallo Uwe,
HIV ... Hab Ich Vergessen
Aber auch in meiner Lösung gibt es keine Überschreiben-Meldung.
Da der TE eine für sich stimmige Lösung hat, ist meine Meinung ja
sowieso nicht mehr relevant.
Ich wollte eigentlich auch nur eine andere Lösung vorstellen.