Application.Filesearch
30.10.2007 11:32:14
volker
hatte in excel2003 ein makro mit Application.Fileserach das wird in 2007 nicht mehr unterstützt.
Kann mir jemand helfen?
Danke gruss volker
Sub Zeileneinlesen()
Dim fs As FileSearch
Dim lRow As Long
Dim iCounter As Integer
Application.DisplayAlerts = False
Set fs = Application.FileSearch
lRow = 3
With fs
.Filename = "*.xls"
.LookIn = "X:\Zuschnitt Holzma"
.Execute
For iCounter = 1 To .FoundFiles.Count