Application.GetOpenFilename-Methode (Excel)
Zeigt das standardmäßige Dialogfeld Öffnen an und ruft einen Dateinamen vom Benutzer ab, ohne Dateien versehentlich zu öffnen.
Syntax
expression.GetOpenFilename (FileFilter, FilterIndex, Title, ButtonText, MultiSelect)
expression Eine Variable, die ein Application-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| FileFilter | Optional | Variant | Eine Zeichenfolge, die Dateifilterkriterien angibt. |
| FilterIndex | Optional | Variant | Gibt die Indexanzahl der standardmäßigen Dateifilterkriterien an, und zwar von 1 zur Anzahl der in FileFilter angegebenen Filter. Wenn dieses Argument nicht angegeben oder größer als die Anzahl der vorhandenen Filter ist, wird der erste Dateifilter verwendet. |
| Titel | Optional | Variant | Gibt den Titel des Dialogfelds an. Wenn dieses Argument ausgelassen wird, lautet der Titel „Open“. |
| ButtonText | Optional | Variant | Nur Macintosh. |
| MultiSelect | Optional | Variant | True, damit mehrere Dateinamen ausgewählt werden können. False, damit nur ein Dateiname ausgewählt werden kann. Der Standardwert ist False. |
Rückgabewert
Variant
Hinweise
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. Jedes einzelne Paar ist im Dropdown-ListenfeldDateityp aufgeführt. Die folgende Zeichenfolge gibt beispielsweise zwei Dateifilter an: text und addin:
"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. Der zurückgegebene Name enthält möglicherweise eine Pfadspezifikation. Wenn MultiSelectTrue ist, ist der Rückgabewert ein Array der ausgewählten Dateinamen (auch wenn nur ein Dateiname ausgewählt wurde). Gibt False zurück, wenn der Benutzer das Dialogfeld abbricht.
Diese Methode ändert möglicherweise das aktuelle Laufwerk bzw. den aktuellen Ordner.
Beispiel
In diesem Beispiel wird das Dialogfeld Öffnen mit dem auf Textdateien festgelegten Dateifilter gezeigt. Wenn der Benutzer einen Dateinamen auswählt, zeigt der Code diesen Dateinamen in einem Meldungsfeld an.
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.