Suchfunktion
28.04.2009 14:28:03
Dan
Ich nutze unter Excel2003 folgendes Modul:
Sub finfo()
Dim FNR As String
Set fs = Application.FileSearch
FNR = Worksheets("Fonds").Range("D9")
With fs
.LookIn = "X:\Blatt"
.SearchSubFolders = True
.Filename = "" & FNR & "*.xls"
If .Execute > 0 Then
MsgBox "Es wurde " & .FoundFiles.Count & _
"Datei(n) gefunden."
For i = 1 To .FoundFiles.Count
'MsgBox .FoundFiles(i)
Workbooks.Open "" & .FoundFiles(i) & ""
ActiveWorkbook.RunAutoMacros xlAutoOpen
Next i
Else
MsgBox "Es wurden keine Dateien gefunden"
End If
End With
End Sub
Leider muss ich nun Excel2007 nutzen und dort gibt es die Funktion "Filesearch" nicht.
Wie muss ich die Zeile
Set fs = Application.FileSearch
abändern das es unter Excel2007 funktioniert? Danke für Eure Hilfe.
Gruss