Hallo
Wie kann ich aus einem Ordner ( ca. 2500 Exceldateien *.xlsm) alle Exceldateien deren Arbeitsblatt ("RT ") löschen ?
ohne alle manuell zu löschen ? Also per vba
Hi,
hab ein paar Frage dazu:
.) gehen von aktuellen Windows Betriebssystemen aus:
a) gibt es eine geprüfte Datensicherung von den ~2500Files ?
b) sind die NTFS-Berechtigungen ausreichen vorhanden?
b) alle Files lokal oder im Netzwerk?
c) alle Files in einem Ordner oder verschiedenen Ordner/Unterordner?
d) privat oder gewerblich?
d.1) wenn gewerblich (wovon ich ausgehe); ist die IT-Abteilung informiert und das Vorhaben erwünscht und genehmigt?
gruß
Marco
Hallo,
teste mal mit einer Kopie:
Code:
sub Blaetter_loeschen()
dim WB as Workbook
dim WS as Worksheet
Pfad = "c:\temp\" '<<< anpassesn "\" am Ende
f = dir(Pfad & "*.xlsm")
do while f <> ""
set wb = workbooks.open(Pfad & f)
for each WS in WB.Sheets
if left(WS.Name, 2) = "RT" then WS.delete
next i
wb.close 1
f = dir
loop
end sub
(ungeprüft)
mfg
Danke
bei Next muss das "i" gelöscht werden