Wie kann ich das unten aufgeführte Makro anpassen, das es eine bestimmte Datei sucht, automatisch öffnet. Im weiteren müsste das Makro bei mehreren Dateien mit dem gleichen Namen die Auswahl anzeigen, damit die richtige Datei ausgewählt werden kann.
' Dieses Makro zeigt bei einer gefundenen Datei nur den Pfad an.
' Das Makro sucht in Verzeichnissen mit berücksichtigung von Unterverzeichnissen.
Sub Suchen()
Dim objFileSearch As FileSearch
Dim strVerzeichnis As String, strDatei As String
strVerzeichnis = InputBox("Verzeichnis:", , "t:\s01\dok\")
If strVerzeichnis = "" Then Exit Sub
strDatei = InputBox("Dateiname:", , "test.xls")
If strDatei = "" Then Exit Sub
Set objFileSearch = Application.FileSearch
With objFileSearch
.LookIn = strVerzeichnis
.SearchSubFolders = True
.FileName = strDatei
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox .FoundFiles(1)
Else
MsgBox "Datei wurde nicht gefunden!"
End If
End With
End Sub
Besten Dank im voraus für jede Antwort.
Mit freundlichen Grüssen.
Pat Beach