Mit Macro Backup erzeugen

Forumthread: Mit Macro Backup erzeugen
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Mit Macro Backup erzeugen

06.08.2025 13:46:08

Luboschik

Hallo liebe VBA Cracks

ich möchte gerne aus der Arbeitsmappe heraus eine Back-Up Datei erzeugen (immer unter dem gleichen Namen überschreiben) aber ohne die Arbeitsdatei zu verlassen. Habe mit Speichern unter versucht dann muss ich aber immer zu meiner Arbeitsdatei zurück.
Herzlichsten Dank für Eure Unterstützung

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mit Macro Backup erzeugen

06.08.2025 14:08:21

Marc
AW: Mit Macro Backup erzeugen

06.08.2025 14:44:17

daniel

AW: Mit Macro Backup erzeugen

06.08.2025 14:08:21

Marc

Ich mach das so beim Start (WorkBook Open)
- pfad ist bei mir eine globale Variable
- DB_name ist bei mir eine globale Variable

- testen ist das BackUp Verzeichnis vorhanden
- Quelle definieren (wo ist die Datei die ich BackUp machen will)
- Wie soll die Datei heißen im Back Up
- Datei mit neuem Namen dahin kopieren



ThisWorkbook.Activate

Dim Quelle As String

Dim Ziel As String

Dim AusgabeName As String





Quelle = pfad & DB_name

AusgabeName = DB_name & ".bckp"



If Not CreateObject("Scripting.FileSystemObject").FolderExists(pfad & "BackUp\") Then

    MsgBox "BackUp erstellen nicht möglich, fehlendes Verzeichnis.", vbOKOnly

   'Hier kann man auch das Erzeugen des Verzeichnisses einfügen

    Exit Sub

Else

    Ziel = pfad & "BackUp\" & Format(Now, "YYYY_MM_DD_hh_mm_") & AusgabeName

    FileCopy Quelle, Ziel

End If

das ganze kann man auch beim Schließen machen (bei mir ist Quelle eine Datenbank , aber kann auch jede andere Datei sein)

AW: Mit Macro Backup erzeugen

06.08.2025 14:44:17

daniel

Hi

zum Speichern Unter, ohne dass die Datei zur gespeicherten Datei wird, gibt es in VBA den Befehl: SaveCopyAs FileName

wenn du dabei die vorhandene Datei überschreiben willst, solltest du die Rückfragen des Systems abschalten:

Application.DisplayAlerts = False

ThisWorkbook.SaveCopyAs "Lw:\Pfad\Dateiname"

Application.DisplayAlerts = True

ein Wechsel des Dateityps (bspw als CSV oder von xlsm nach xlsx um Markos zu löschen) ist dabei leider nicht möglich.

von Hand kann man diese Aktion meines Wissens nach nicht ausführen, das geht nur in VBA über diesen Befel.

Gruß Daniel

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!