FileSearch mit Environ u. Dat. öffnen
14.04.2005 17:08:33
Ingo
ich sitze ein wenig auf dem Schlauch...
In einem Ordner sind div. Dateien in der Form
UserName_XYZ.xls
FileSearch liefert mir die Datei zurück, die
dem angemeldeten User entspricht.
Aber wie kann ich diese Datei öffnen lassen ?
Irgendwie gehen mir die Platzhalter aus :-)
Anbei mein TestSub.
Vielen Dank für einen Tip.
Gruß, Ingo
Sub testen1()
With Application.FileSearch
.NewSearch
.LookIn = "D:\Verwaltung\Zeitwirtschaft\Konten"
.SearchSubFolders = False
.Filename = "" & Left(Environ("username"), 13)
.MatchTextExactly = True
.FileType = msoFileTypeExcelWorkbooks
If .Execute() = 0 Then
MsgBox "Kein Konto gefunden."
ElseIf .Execute() > 1 Then
MsgBox "Mehr als ein Konto gefunden."
Else
MsgBox "Konto gefunden"
ChDir "D:\Verwaltung\Zeitwirtschaft\Konten"
Workbooks.Open Filename:= _
"D:\Verwaltung\Zeitwirtschaft\Konten\" & ?
End If
End With
End Sub