Objeto FileDialogFilter (Office)

Representa um filtro de arquivo em uma caixa de diálogo de arquivo exibida por meio do objeto FileDialog . Cada filtro de arquivo determina que arquivos devem ser exibidos na caixa de diálogo.

Comentários

Use o método Item com a coleção FileDialogFilters para retornar um objeto FileDialogFilter .

Use o método Add para adicionar um objeto FileDialogFilter à coleção FileDialogFilters .

Você pode retornar as extensões que um objeto FileDialogFilter usa para filtrar arquivos com a propriedade Extensões e retornar a descrição do filtro com a propriedade Description ; no entanto, ambas as propriedades são somente leitura. Se quiser definir a extensão ou a descrição, use o método Add .

Exemplo

O exemplo a seguir se repete através dos filtros padrão da caixa de diálogo Salvar como e exibe a descrição de cada filtro que inclui um arquivo do 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

Confira também

• Membros do objeto FileDialogFilter
• Referência do modelo de objeto

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.