Durch die Filters-Collection eines FilePicker-Dialogs, den man sich mit
Set fd = Application.FileDialog(msoFileDialogFilePicker)
erzeugt hat, kann man leider nur die Dateierweiterungen festlegen, nach denen gesucht werden soll. Weitere Einschränkungen sind aber mit InitialFileName möglich. Will man z.B. nur die Excel-Dateien anzeigen, die im Pfad c:\test stehen und mit ABC anfangen, sieht der Code folgendermaßen aus:

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.InitialFileName = "C:\test\ABC*.xls"
.Filters.Clear
.Filters.Add "Objekte", "*.xls", 1
.Show
End With

VBA: Nur bestimmte Dateien im File-Open-Dialog anzeigen

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.

Wir verwenden Cookies, um Funktionen für soziale Medien anbieten zu können und die Zugriffe auf unsere Website zu analysieren. Außerdem geben wir Informationen zu Ihrer Nutzung unserer Website an soziale Medien und für Analysen weiter. Durch die Benutzung unserer Webseite stimmen Sie dem zu. Weitere Informationen

Wir verwenden Plugins, mit denen Sie unsere Inhalte in sozialen Medien wie Facebook, Twitter und Google+ teilen können. Bereits durch den Aufruf von Seiten werden Informationen an diese sozialen Medien weitergegeben. Außerdem verwenden wir Google Analytics, um die Nutzung unserer Seite analysieren zu können.

Schließen