Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Löschen von Excel-Dateien mit bestimmtem Namen

Forumthread: VBA-Löschen von Excel-Dateien mit bestimmtem Namen

VBA-Löschen von Excel-Dateien mit bestimmtem Namen
04.09.2019 08:29:09
Excel-Dateien
Guten Morgen,
mal die Frage in die Runde, ob jemand hierfür fix eine Lösung hätte. Wäre wirklich super. :-)
Ich möchte im Verzeichnis: "C:\Excel\Test" alle Dateien löschen, welche im Namen mit "JJMMTT" beginnen.
Dies sind alles .xlsx-Dateien, jedoch sind diese nach der Bezeichnung "JJMMTT" unterschiedlich benannt.
Wie kann ich auf unkomplizierte Weise mit VBA alle o.g. Dateien ohne Nachfrage "eliminieren" ? Ich weiß, dass dafür wohl der Kill-Befehl ausschlaggebend ist, jedoch bekomm ich nur einzelne Dateien damit gelöscht. ;-)
Viele Grüße und schonmal Danke für die Hilfe !
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW:
04.09.2019 08:48:03
Fennek
Hallo,
wenn "JJMMTT" nicht als Platzhalter für ein Datum zu verstehen ist, sollte im CMD gehen

c:\Excel\Test>del JJMMTT*.xlsx
Bei Bedarf kann das auch aus VBA gestartet werden.
mfg
AW: VBA-Löschen von Excel-Dateien mit bestimmtem Namen
04.09.2019 09:24:57
Excel-Dateien
Hallo BR
wenn JJMMTT für eine Ziffernfolge steht, die ein Dateim ist, dann geht es etwa wie folgt per Makro.
LG
Franz 
Sub Kill_Dateien_mit_JJMMDD()
Dim varPfad, strDatei As String, strDatum As String, str6 As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Bitte Verzeichnis mit den zu löschenden Dateien auswählen"
If .Show = -1 Then
varPfad = .SelectedItems(1)
Else
Exit Sub
End If
If MsgBox("Alle Dateien mit JJMMTT im gewählten Verzeichnis" & vbLf & vbLf _
& varPfad & vbLf & vbLf _
& "löschen?", _
vbQuestion + vbOKCancel, "Dateien löschen") = vbCancel Then Exit Sub
strDatei = Dir(varPfad & "\*.xlsx", vbNormal)
Do Until strDatei = ""
str6 = Left(strDatei, 6)
'Prüfen, ob alle 6 Zeichen Ziffern sind
If str6 Like "######" Then
'Ziffernfolge in Datums-Text umwandeln
strDatum = Right(str6, 2) & "." & Mid(str6, 3, 2) & "." & Left(str6, 2)
'oder besser wenn alle Datumswerte nach 31.12.1999 liegen
'            strDatum = "20" & Left(str6, 2) & "-" & Mid(str6, 3, 2) & "-" & Right(str6, 2)
If IsDate(strDatum) Then
VBA.Kill (varPfad & "\" & strDatei)
End If
End If
strDatei = Dir
Loop
End With
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Mit VBA Code löschen und Datei speichern
Uppe

Hallo Experten,
ich möchte das Blatt 2 meiner Datei ohne Code und Userforms etc speichern.
Mein Bisheriger Code sieht so aus:
Sub Speichern() vntPathAndFile = Application.GetSaveAsFilename( _ InitialFileName:=strPath & "\" & strDateiname & ".xls", Title:="Speichern als"...
20.04.2010 14:50:15
Thread-ID: 1152866
4 Beiträge
Doppelte Datei löschen mit VBS / VBA
Matthias

Hi zusammen
Ich habe in einem Windows Ordner zehntausende Dateien. Deren Namen sind wie folgt aufgebaut:
1234567 Matthias Muster.xlsx
1245751 Susanne Muster.xlsx
7544251 Martin Muster.xlsx
etc.
Nun habe ich letztens ein Batchscript laufen lassen, das nicht ganz das gemac...
17.02.2016 12:41:37
Thread-ID: 1476043
3 Beiträge
Per VBA Werte aus XML-Datei löschen
Lukas

Hallo zusammen,
und zwar stehe ich vor dem Problem, dass ich aus einem Excel-Dokument eine xml-Datei möchte, was auch funktioniert, aber öfters die Zahl 0 mit aufgenommen wird, was nicht sein soll. In Excel kann ich unter Optionen einstellen, dass eine 0 nicht angezeigt, aber sie bleibt fak...
30.11.2016 12:32:10
Thread-ID: 1528011
3 Beiträge
In VBA textfile aus ActiveSheet erstellen &...
Herbert

Hallo Zusammen,
ich versuchee seit 3 Stunden etwas auszubasteln und komme nicht wirklich weiter.
Mein Vorhaben ist folgendes:
Ich habe verschiedene Tabellen in Excel, wo Daten startend ab A7 & B7 abwärts ca. 50 Zellen eingegeben werden. Nach der kompletteingabe dieser Daten, wil...
03.02.2006 10:37:34
Thread-ID: 727650
3 Beiträge
Anzeige
Sheet.deleite ohne nachfrage
piecha

Hallo,
ich versuche mich gerade mal wieder in VBA und versuche ein Sheet zu löschen. Leiden kommt immer die nervige Frage, ob ich wirklich will:
Sub LetztesBlatt(BlattName$) Dim ws As Worksheet ' Prüfen ob Blatt vorhanden For Each ws In Worksheets If InStr(ws.Name, BlattName) > 0 T...
09.11.2007 21:53:00
Thread-ID: 924596
4 Beiträge
Mit VBA Code löschen und Datei speichern
Uppe

Hallo Experten,
ich möchte das Blatt 2 meiner Datei ohne Code und Userforms etc speichern.
Mein Bisheriger Code sieht so aus:
Sub Speichern() vntPathAndFile = Application.GetSaveAsFilename( _ InitialFileName:=strPath & "\" & strDateiname & ".xls", Title:="Speichern als"...
20.04.2010 14:50:15
Thread-ID: 1152866
4 Beiträge
Anzeige
VBA - Nur Unterordner einer best. Größe löschen
Gerd

Hallo werte Excelfreunde!
Mein Problem:
Ich möchte nur sämtliche Unterordner eines Ordners (z.B "C:\Test") löschen, die kleiner als 1MB sind. Vorher möchte ich noch deren Anzahl ermitteln.
In dem Hauptordner sind u.a. wohl um die 200 solcher Unterordner enthalten, sodaß ich die L...
17.02.2013 02:29:09
Thread-ID: 1299624
3 Beiträge
Alle Dateien eiens ordners löschen
Hannes

Halli Hallo zusammen,
ich möchte gerne zu Beinn meines Makros alle Dateien in einen bestimmten Ordner löschen, der Ordner an sich jedoch soll erhalten bleiben (also nur geleert werden). tante Google hat mir eldier nicht geholfen, vielleicht habt ihr eine Idee? :)
DANKE im Vorraus, ihr s...
08.09.2015 12:43:59
Thread-ID: 1446505
7 Beiträge
Doppelte Datei löschen mit VBS / VBA
Matthias

Hi zusammen
Ich habe in einem Windows Ordner zehntausende Dateien. Deren Namen sind wie folgt aufgebaut:
1234567 Matthias Muster.xlsx
1245751 Susanne Muster.xlsx
7544251 Martin Muster.xlsx
etc.
Nun habe ich letztens ein Batchscript laufen lassen, das nicht ganz das gemac...
17.02.2016 12:41:37
Thread-ID: 1476043
3 Beiträge
Anzeige
Per VBA Werte aus XML-Datei löschen
Lukas

Hallo zusammen,
und zwar stehe ich vor dem Problem, dass ich aus einem Excel-Dokument eine xml-Datei möchte, was auch funktioniert, aber öfters die Zahl 0 mit aufgenommen wird, was nicht sein soll. In Excel kann ich unter Optionen einstellen, dass eine 0 nicht angezeigt, aber sie bleibt fak...
30.11.2016 12:32:10
Thread-ID: 1528011
3 Beiträge
Mit VBA Code löschen und Datei speichern
Uppe

Hallo Experten,
ich möchte das Blatt 2 meiner Datei ohne Code und Userforms etc speichern.
Mein Bisheriger Code sieht so aus:
Sub Speichern() vntPathAndFile = Application.GetSaveAsFilename( _ InitialFileName:=strPath & "\" & strDateiname & ".xls", Title:="Speichern als"...
20.04.2010 14:50:15
Thread-ID: 1152866
4 Beiträge
Anzeige
Doppelte Datei löschen mit VBS / VBA
Matthias

Hi zusammen
Ich habe in einem Windows Ordner zehntausende Dateien. Deren Namen sind wie folgt aufgebaut:
1234567 Matthias Muster.xlsx
1245751 Susanne Muster.xlsx
7544251 Martin Muster.xlsx
etc.
Nun habe ich letztens ein Batchscript laufen lassen, das nicht ganz das gemac...
17.02.2016 12:41:37
Thread-ID: 1476043
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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