Freigeben über

FileDialogFilters.Clear-Methode (Office)

  • Artikel

Entfernt alle zurzeit in einem Dateidialogfeld angewendeten Filter.

Syntax

Ausdruck. Klar

Ausdruck Eine Variable, die ein FileDialogFilters-Objekt darstellt.

Beispiel

Im folgenden Beispiel werden die Standardfilter des Dialogfelds Speichern unter durchlaufen, und die Beschreibung jedes Filters, der eine Microsoft Excel-Datei einschließt, wird angezeigt.

Sub Main() 
 
 'Declare a variable as a FileDialogFilters collection. 
 Dim fdfs As FileDialogFilters 
 
 'Declare a variable as a FileDialogFilter object. 
 Dim fdf As FileDialogFilter 
 
 'Set the FileDialogFilters collection variable to 
 'the FileDialogFilters collection of the SaveAs dialog box. 
 Set fdfs = Application.FileDialog(msoFileDialogSaveAs).Filters 
 
 'Iterate through the description and extensions of each 
 'default filter in the SaveAs dialog box. 
 For Each fdf In fdfs 
 
 'Display the description of filters that include 
 'Microsoft Excel files 
 If InStr(1, fdf.Extensions, "xls", vbTextCompare) > 0 Then 
 MsgBox "Description of filter: " & fdf.Description 
 End If 
 Next fdf 
 
End Sub

Siehe auch

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.