Re: EXCEL - Sicherungskopie via VBA

EXCEL - Sicherungskopie via VBA (6 Beiträge, 126 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Hallo!

Ich würde gerne eine Excel-Mappe per Makro dazu bewegen lassen, dass diese Mappe zusätzlich zum Stammverzeichnis auch noch in ein anderes Verzeichnis gespeichert wird. Also eine Sicherungskopie

Bis dato habe ich diese jedoch noch nicht geschafft....vielleicht kann mir jemand helfen?

lG und thx

SunnyHill

Re: EXCEL - Sicherungskopie via VBA (SunnyHill am 05.01.2006, 09:18:27)

hier der Code, im Personal Workbook speichern und dann einen Knopf hinzufügen (so hab ichs gemacht):

Public Sub Speichern()
Dim strPath As String, strFile As String
Dim arrfiles As Variant
Dim intCounter As Integer, intMax As Integer, intCount As Integer, intTmp As Integer
Dim datMax As Date

strFile = Mid(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) - 4)
strPath = ActiveWorkbook.path & "\" & strFile & "_temp"
If Dir(strPath, vbDirectory) = "" Then
    MkDir (strPath)
End If
strPath = strPath & "\"

With Application.FileSearch
    .NewSearch
    .LookIn = strPath
    .FileName = "*" & strFile & "*.xls"
    .Execute msoSortByLastModified, msoSortOrderAscending
    If .FoundFiles.Count = 3 Then
        intTmp = Mid(.FoundFiles.Item(1), Len(.FoundFiles.Item(1)) - 5, 1)
        Kill (.FoundFiles.Item(1))
        Application.StatusBar = "Datei wird als " & strPath & strFile & intTmp & ".xls gespeichert"
        ActiveWorkbook.SaveCopyAs (strPath & strFile & intTmp & ".xls")
        Application.StatusBar = ""
    ElseIf .FoundFiles.Count = 0 Then
        Application.StatusBar = "Datei wird als " & strPath & strFile & 1 & ".xls gespeichert..."
        ActiveWorkbook.SaveCopyAs (strPath & strFile & 1 & ".xls")
        Application.StatusBar = ""
    Else
        intTmp = (Mid(.FoundFiles.Item(.FoundFiles.Count), Len(.FoundFiles.Item(.FoundFiles.Count)) - 4, 1)) + 1
        Application.StatusBar = "Datei wird als " & strPath & strFile & intTmp & ".xls gespeichert..."
        ActiveWorkbook.SaveCopyAs (strPath & strFile & intTmp & ".xls")
        Application.StatusBar = ""
    End If

End With
ActiveWorkbook.Save
End Sub

Ich habs noch so gemacht dass immer nur max. 3 Sicherungskopien aufgehoben werden.

mfg

Penguin

Re(2): EXCEL - Sicherungskopie via VBA (SunnyHill am 05.01.2006, 11:49:34)

Re(3): EXCEL - Sicherungskopie via VBA (Penguin am 05.01.2006, 12:11:47)

Re(3): EXCEL - Sicherungskopie via VBA (Penguin am 05.01.2006, 15:02:40)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung