Nach genauer Datei suchen
06.05.2009 11:14:51
Markus
von Franz habe ich untenstehendes Makro zum suchen einer Datei erhalten. Dies funktioniert auch einwandfrei, wenn es nur diese eine Datei (Eingabe des Dateinamens per Inputbox) gibt. Der Dateiname besteht normalerweise aus einer 10stelligen Nummer. Nun kann es aber sein, dass es noch zusätzlich zwei weitere Nummern gibt. Beispiel: 1234567890.xls = normal 1234567890 22.xls = optional. Ich suche nun nach einer Möglichkeit entweder:
1. exakt nach der eingegebenen Nummer zu suchen oder
2. evtl. per Listbox Eintrag eine Datei auszuwählen und diese dann per anklicken zu öffnen.
Schonmal Danke für Eure Hilfe!
Markus
Private Sub CommandButton3_Click()
'erstellt unter Excel 2003
Dim Dateiname As Variant, objFS As FileSearch
Const Pfad As String = "C:\Dokumente und Einstellungen\zie\eigene Dateien\Test 2"
'Const Pfad As String = "C:\Lokale Daten\Test"
Dateiname = Application.InputBox("Bitte die Anfragenummer eingeben!", "Anfragensuche")
If Dateiname = False Then Exit Sub
Set objFS = Application.FileSearch
With objFS
.NewSearch
.Filename = Dateiname & ".xls"
.LookIn = Pfad
.SearchSubFolders = True
If .Execute > 0 Then
MsgBox .FoundFiles(1), vbInformation + vbOKOnly, "Gefundenen Datei" 'Testzeile
Workbooks.Open .FoundFiles(1), AddToMru:=True
Else
MsgBox "Exceldatei zu dieser Anfragenummer nicht gefunden!"
End If
End With
End Sub