GetOpenFile/Filter > Datei auswählen?
13.07.2002 22:41:18
Juergen
Ist es möglich mit GetOpenFile + Filter nicht nur eine Filter-Gruppe zur Auswahl anzuzeigen; sondern direkt auf eine bestimmte Datei zuzugreifen?
Hier der momemtan von mir genutzte, funktionierende Code zum Öffnungsdialog mit dem File-Filter ".html":
Sub GetOpenFileHtml()
Dim xPathAndFile As Variant
xPathAndFile = Application.GetOpenFilename( _
FileFilter:="All Html Files (*.html), *.html", _
Title:="Search for My Files")
If xPathAndFile = False Then
MsgBox "Cancel !"
Else
HtmlNachTabelle1 xPathAndFile
End If
End Sub
Wenn es möglich ist möchte ich gerne mit dieser Methode z.B. die Auswahl auf Dateien wie Heute1.html, bzw. Heute2.html, usw. beschränken.
Wenn es möglich ist, wäre ich für jeden Tip, bzw. Code dankbar!
Gruß,
Juergen
Anzeige