Office VBA教程:FileDialogFilter对象

   
FileDialogFilters
FileDialogFilter

返回通过 FileDialog对象显示的文件对话框中的一个文件筛选。每个文件筛选确定文件对话框中显示的文件。

使用 FileDialogFilter对象

使用 FileDialogFilters集合的 Item方法返回一个 FileDialogFilter对象。使用 Add方法向 FileDialogFilters集合中添加一个 FileDialogFilter对象。可以使用 Extensions属性返回 FileDialogFilter对象用于筛选文件的扩展名,使用 Description属性可以返回筛选的说明,但是这两个属性均为只读。如果要设置扩展名和说明,必须使用 Add方法。

本示例在“另存为”对话框的默认筛选中迭代,并显示每个包括 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教程:FileDialog对象 下页:Office VBA教程:FileDialogFilters集合

Office VBA教程:FileDialogFilter对象

Office VBA教程:FileDialogFilters集合 Office VBA教程:FileDialogSelectedItems集合
Office VBA教程:FileSearch对象 Office VBA教程:FileTypes集合
Office VBA教程:FoundFiles对象 Office VBA教程:HTMLProject对象
Office VBA教程:HTMLProjectItem对象 Office VBA教程:HTMLProjectItems集合对象
Office VBA教程:LanguageSettings对象 Office VBA教程:MsoEnvelope对象
Office VBA教程:NewFile对象 Office VBA教程:ODSOColumn对象
Office VBA教程:ODSOColumns对象 Office VBA教程:ODSOFilter对象
Office VBA教程:ODSOFilters对象 Office VBA教程:OfficeDataSourceObject对象
Office VBA教程:PropertyTest对象 Office VBA教程:PropertyTests集合对象
Office VBA教程:ScopeFolder对象 Office VBA教程:ScopeFolders集合
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号