Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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 !

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

301 Forumthreads zu ähnlichen Themen

VBA Profis: Leerzeile in Textdatei löschen
Joe

Hallo,
habe folgendes Makro "ZeileLöschenLangsam" gefunden um leere Zeilen in einer Textdatei zu löschen.
Das ganze funktioniert, aber dauert bei großen TextDateien (>20.000 Zeilen) extrem lange.
Ich habe deshhalb das Makro "ZeileLöschenSchnell" geschrieben welches nur wenige Se...
11.02.2010 23:36:52
Thread-ID: 1137630
2 Beiträge
Anzeige
VBA // Datei speichern unter und dann löschen
HTT

Hallo,
geht das, das ich eine Exceldatei öffne, diese unter einem anderen Pfad & anderen Namen speichere und die originale Datei im Pad lösche.
Danke für Hilfe
Grüße Christian
13.02.2014 13:22:05
Thread-ID: 1349460
3 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
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
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
VBA Profis: Leerzeile in Textdatei löschen
Joe

Hallo,
habe folgendes Makro "ZeileLöschenLangsam" gefunden um leere Zeilen in einer Textdatei zu löschen.
Das ganze funktioniert, aber dauert bei großen TextDateien (>20.000 Zeilen) extrem lange.
Ich habe deshhalb das Makro "ZeileLöschenSchnell" geschrieben welches nur wenige Se...
11.02.2010 23:36:52
Thread-ID: 1137630
2 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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
2
2
2
2
3
1
3
2
2
6
2
2
2
1
3
2
2
2
2
8
1
2
1