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

Veröffentlicht von Cornelia Gaebert am 12. Dezember 2007

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

Schreibe einen Kommentar

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