FileDialogFilter 对象 (Office)

代表通过 FileDialog 对象显示的文件对话框中的文件筛选器。 每个文件筛选确定文件对话框中显示的文件。

备注

使用 FileDialogFilters 集合的 Item 方法可返回 一个 FileDialogFilter 对象。

使用 Add 方法可以将 FileDialogFilter 对象添加到 FileDialogFilters 集合中。

可以使用 Extensions 属性返回 FileDialogFilter 对象用于筛选文件的扩展名,并且可以使用 Description 属性返回 筛选器 的说明;但是,这两个属性都是只读的。 如果要设置扩展名或说明,必须使用 Add 方法。

示例

下面的示例循环访问 “SaveAs” 对话框的默认筛选器,并显示每个包括 Microsoft Excel 文件的筛选器的说明。

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

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。