Unterverzeichnisse einschliessen
06.06.2004 20:42:20
SteffenS
ich brauche wieder mal Eure Hilfe.
Mein Code:
Dim wkb As Workbook
For Each wkb In Workbooks
If wkb.FullName ThisWorkbook.FullName Then
Select Case Left(wkb.FullName, InStrRev(wkb.FullName, "\"))
Case Is = ThisWorkbook.Path & "\"
wkb.Close savechanges:=False
Case Is = ThisWorkbook.Path & "\BLV\"
wkb.Close savechanges:=False
End Select
End If
Next wkb
Bei dem Code werden alle Dateien die im Verzeichnis BLV und im Workbook Verzeichnis liegen gespeichert und geschlossen.
Wie bekomme ich es hin das Excel bei der Zeile:
Case Is = ThisWorkbook.Path & "\BLV\"
nicht nur das Verzeichnis "BLV" prüft, sondern alle darunter liegenden?
Ich habe es mit:
Case Is = ThisWorkbook.Path & "\BLV\*"
Probiert aber leider geht dies nicht.
Danke Euch schonmal.
Steffen Schmerler