Office: (Office 2010) per VBA bestimmte Dateien löschen

phobos · 13. Januar 2015

Hi,

per VBA speichere ich täglich excel DAteien ab.
Jeden Tag eine mit Datum und Uhrzeit im Namen.

Nun möchte ich per VBA erreichen das immer die 25 neuesten Dateien in dem Ordner gespeichert sind, und die älteren gelöscht werden.

wie könnte der Code aussehen?

:)

Hajo_Zi · 14. Januar 2015

Hallo Mario,

ja das geht. Nur wenige sehen Deinen Dateinamen , die Logik des Namens und die Anzahl der Wiederholungen.

phobos · 14. Januar 2015

Hallo Hajo,

Name sieht so aus:
"xxxx_08.22_15.01.15.xls"
"xxxx_08.23_15.01.15.xls"
...
...
...

Hajo_Zi · 14. Januar 2015

ich interpretiere es jetzt mal so du möchtest die Lösung selber an Deine Bedingungen anpassen, darum keine Informationen. Viel Erfolg. Ich bin dann raus.
Code:

Option Explicit

Sub Loeschen()
Dim StPfad As String
Dim Loi As Date
StPfad = ThisWorkbook.Path & "\"
On Error Resume Next
For Loi = Date - 25 To 1 Step -1
Kill StPfad & "xxxx_" & Format(Loi, "dd.MM.YY") & ".xls"
Next Loi
On Error GoTo 0
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

phobos · 14. Januar 2015

falsch interpretiert*wink.gif*

was willst Du denn noch wissen?

phobos · 15. Januar 2015

Da ich keine Info mehr bekommen habe und Hajo sich ziemlich schnell aus dem Thread verabschiedet hat habe ich jetzt mal selbst probiert den Code von Ihm bei mir anzupassen.

Gelöscht wird jetzt zwar. Aber ich hab ne Endlosschleife.

Code:

For Loi = Date - 25 To 1 Step -1
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

bewirkt das im Datum immer weiter zurück gegangen wird.
Auch wenn keine Datei mehr mit dem Datum existiert.

xlph · 15. Januar 2015

Hallo,

versuch es hiermit:

Code:

Sub DateienLoeschen()
Dim Pfad As String
Dim Dateiname As String
Dim Datum As String

Pfad = ThisWorkbook.Path & "\"

Dateiname = Dir(Pfad & "*_*_*.xls*")

Do Until Dateiname = ""

If Dateiname ThisWorkbook.Name Then
If Dateiname Like "*_##.##_##.##.##.xls*" Then

Datum = getDatum(Dateiname)

If IsDate(Datum) Then
If CDate(Datum) < Date - 25 Then
On Error Resume Next
Kill Pfad & Dateiname
On Error GoTo 0
End If
End If

End If
End If

Dateiname = Dir()
Loop

End Sub

Private Function getDatum(Text As String) As String
getDatum = Mid$(Text, InStrRev(Text, "_") + 1, 6)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

phobos · 15. Januar 2015

Danke xlph,

mit ein paar wenigen Anpassungen funktioniert dein Code*biggrin.gif*

Office: (Office 2010) per VBA bestimmte Dateien löschen

per VBA bestimmte Dateien löschen

per VBA bestimmte Dateien löschen

per VBA bestimmte Dateien löschen

per VBA bestimmte Dateien löschen

per VBA bestimmte Dateien löschen - Similar Threads - VBA bestimmte Dateien

Intelligent eTabelle bestimmter Zellbereich markieren VBA

Über Eingabefelder bestimmte Zellen füllen, wohl VBA

Bestimmte Zellen aus geschlossenen Dateien in eine Master Liste hineinkopieren VBA

VBA: Bestimmte Zellen von einer Excel Datei in die andere (nach Bedienungen)

Excel VBA Datei durchsuchen, Datentyp prüfen und bestimmten Inhalt auslesen

VBA Bestimmte Zellen aus einer anderen Datei in eine andere Datei kopieren

VBA: Bestimmte Daten von anderer Datei kopieren und Einfügen