FileDialogFilters.Clear method (Office)
Removes all filters currently applied in a file dialog box.
Syntax
expression.Clear
expression A variable that represents a FileDialogFilters object.
Example
The following example iterates through the default filters of the SaveAs dialog box and displays the description of each filter that includes a Microsoft Excel file.
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
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Feedback
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Submit and view feedback for