in Ordner auch Unterordner berücksichtigen
07.09.2007 10:55:39
Alexander
da ich in der letzten Zeit tolle Unterstützung erfahren habe, wäre ich super-dankbar, wenn sich noch einmal jemand einem neuen Problem von mir annehmen würde ;-)
Das u.g. Skript öffnet, bearbeitet und schließt in einem bestimmten Ordner alle Excel-Dateien und verändert einen gewünschten String; ich hätte jedoch gerne, dass neben dem Ordner auch ALLE Unterordner nach Excel-Dateien durchsucht werden; das würde meine Sache sehr erleichtern.
Würde mich freuen, wenn es Vorschläge gäbe...
Herzlichen Dank,
Grüße,
Alexander
Sub GRAN_TOURISMO()
Dim f$, p$, i&
p = "C:\Ordner\"
f = Dir(p & "*.xls")
i = 1
Do While f ""
Workbooks.Open Filename:=p & f
For Each w In Workbooks
If w.Name ThisWorkbook.Name Then
For Each ws In Worksheets
ws.Columns().Replace _
What:="Flughafen", Replacement:="airport", _
SearchOrder:=xlByColumns, MatchCase:=False
Next ws
w.Close savechanges:=True
End If
Next w
i = i + 1: f = Dir
Loop
End Sub
Anzeige