Sub Suchen()
Dim sPfad As String
Dim objFileSearch As FileSearch
Dim strVerzeichnis As String, strDatei As String
strVerzeichnis = "d:\Projekt"
strDatei = "*.afd"
Set objFileSearch = Application.FileSearch
With objFileSearch
.LookIn = strVerzeichnis
.SearchSubFolders = True
.Filename = strDatei
.LastModified = msoLastModifiedToday
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
sPfad = .FoundFiles(1)
Workbooks.OpenText Filename:=.FoundFiles.Count
Else
MsgBox "Datei wurde nicht gefunden!"
End If
End With
End Sub
Leider wird die gefundene Datei nicht geöffnet, es erscheint nur eine Meldung "Visual Basic 400".
Außerdem noch die Frage, wo muss ich dann die ganzen Formatierungsanweisungen unterbringen, wie z.B. das automatische erstellen eines Diagramms????
Kann mir jemand helfen??