Application.GetOpenFilename (Excel)

Zeigt das standardmäßige Dialogfeld Öffnen an und ruft einen Dateinamen vom Benutzer ab, ohne Dateien versehentlich zu öffnen.

Diese im Argument FileFilter weitergegebene Zeichenfolge besteht aus Dateifilter-Zeichenfolgenpaaren, gefolgt von der MS-DOS-Platzhalter-Dateifilterspezifikation, wobei jeder Teil und jedes Paar durch Kommas voneinander getrennt sind. "Text Files (*.txt),*.txt,Add-In Files (*.xla),*.xla" Trennen Sie zum Verwenden mehrerer MS-DOS-Platzhalterausdrücke für einen einzelnen Dateifiltertyp die Platzhalterausdrücke mit Semikolons, beispielsweise "Visual Basic Files (*.bas; *.txt),*.bas;*.txt". Wenn FileFilter ausgelassen wird, wird dieses Argument auf die Standardeinstellung "All Files (*.*),*.*" zurückgesetzt. Diese Methode gibt den ausgewählten Dateinamen oder den durch den Benutzer eingegebenen Namen zurück. Diese Methode ändert möglicherweise das aktuelle Laufwerk bzw. den aktuellen Ordner.

GetOpenFilename (FileFilter, FilterIndex, Title, ButtonText, MultiSelect)

fileToOpen = Application _ 
 .GetOpenFilename("Text Files (*.txt), *.txt") 
If fileToOpen <> False Then 
 MsgBox "Open " & fileToOpen 
End If

Arguments

Optional arguments

Die folgenden Argumente sind optional

FileFilter (String) - Eine Zeichenfolge, die Dateifilterkriterien angibt.

FilterIndex (Long) - Gibt die Indexanzahl der standardmäßigen Dateifilterkriterien an, und zwar von 1 zur Anzahl der in FileFilter angegebenen Filter.

Title - String

ButtonText (String) - Nur Macintosh.

MultiSelect (Boolean) - True, damit mehrere Dateinamen ausgewählt werden können.