Re: Datei in einem unbest. Verzeich. suchen und öffnen
14.05.2002 14:56:49
Pat Beach
Hallo AndreasEs hat leider nicht funktioniert. Aber ich habe folgendes Makro gefunden, dessen Suchfunktion funkioniert aber nur den Pfad anzeigt:
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
Wie kann ich es anpassen, damit bei einer gefundenen Datei, die Datei öffnet und bei mehreren Dateien mich frägt, welche ich öffnen will?
Kennst Du ein Buch oder eine Internetadresse wo ich von Grund auf VBA lernen könnte, ohne extra eine Schule (keine Zeit -> 2 Kinder) zu besuchen.
Besten Dank für Deine Antwort.
Gruss
Pat Beach