Table of contents

FileDialog.FilterIndex 属性 (办公室)FileDialog.FilterIndex Property (Office)

office 365 dev account|上次更新日期: 2018/3/13
2 参与人员

获取或设置一个Long ,该值指示文件对话框的默认文件筛选器。默认筛选器决定首次打开文件对话框时显示的文件类型。读/写。Gets or sets a Long indicating the default file filter of a file dialog box. The default filter determines which types of files are displayed when the file dialog box is first opened. Read/write.


表达式FilterIndexexpression. FilterIndex

表达式_一个表示FileDialog对象的变量。_expression A variable that represents a FileDialog object.


如果试图将该属性设置为大于筛选数量的数字,将选定最后一个可用筛选。If you try to set this property to a number greater than the number of filters, the last available filter will be selected.


下面的示例显示使用FileDialog对象一个文件选取器对话框并在消息框中显示每个选定的文件。此示例还演示如何添加新的文件筛选器并使其成为默认筛选器。The following example displays a File Picker dialog box using the FileDialog object and displays each selected file in a message box. This example also demonstrates how to add a new file filter and how to make it the default filter.

Sub Main() 

 'Declare a variable as a FileDialog object. 
 Dim fd As FileDialog 

 'Create a FileDialog object as a File Picker dialog box. 
 Set fd = Application.FileDialog(msoFileDialogFilePicker) 

 'Declare a variable to contain the path 
 'of each selected item. Even though the path is aString, 
 'the variable must be a Variant because For Each...Next 
 'routines only work with Variants and Objects. 
 Dim vrtSelectedItem As Variant 

 'Use a With...End With block to reference the FileDialog object. 
 With fd 

 'Add a filter that includes GIF and JPEG images and make it the second item in the list. 
 .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 2 

 'Sets the initial file filter to number 2. 
 .FilterIndex = 2 

 'Use the Show method to display the File Picker dialog box and return the user's action. 
 'If the user presses the button... 
 If .Show = -1 Then 

 'Step through each string in the FileDialogSelectedItems collection. 
 For Each vrtSelectedItem In .SelectedItems 

 'vrtSelectedItem is aString that contains the path of each selected item. 
 'You can use any file I/O functions that you want to work with this path. 
 'This example displays the path in a message box. 
 MsgBox "Selected item's path: " & vrtSelectedItem 

 Next vrtSelectedItem 
 'If the user presses Cancel... 
 End If 
 End With 

 'Set the object variable to Nothing. 
 Set fd = Nothing 

End Sub

另请参阅See also


FileDialog ObjectFileDialog Object

其他资源Other resources

FileDialog 对象成员FileDialog Object Members

© 2018 Microsoft