Dateiauswahlfilter mit FileDialog
Tobsen
In unten stehndem Code wird ja ein Fenster zum Öffnen von Dateien aufgerufen. Ich wollte jetzt nur die XML-Dateien anzeigen lassen. Das funktioniert bei mir leider nicht und ich weiß nicht so recht wo der Fehler im Filter ist? Hat jemand einen Tip? Danke im Vorraus
Public Function XMLDateiEinlesen()
Dim oFileDialog As FileDialog
Set oFileDialog = Application.FileDialog(msoFileDialogOpen) '.Filters.Add("XML-Dateien", ("* _
_
_
.xml"))
With oFileDialog
.Title = "Import XML"
.Filters.Add "XML-Dateien (*.xml)", "*.xml"
.ButtonName = "Import"
.Show
For Each vrtSelectedItem In .SelectedItems
XMLDateiEinlesen = vrtSelectedItem
Next
End With
End Function