FileDialogFilter.Extensions-Eigenschaft (Office)

  • Artikel

Ruft einen Wert mit den Erweiterungen, die bestimmen, welche Dateien in einem Dateidialogfeld für jedes Filter -Objekt angezeigt werden. Schreibgeschützt.

Syntax

Ausdruck. Erweiterungen

Ausdruck Ein Ausdruck, der ein FileDialogFilter-Objekt zurückgibt.

Rückgabewert

Zeichenfolge

Beispiel

Im folgenden Beispiel werden Erweiterungen und Beschreibungen für Microsoft Excel-Dateien angezeigt, indem der Filter im Dialogfeld Speichern unter durchlaufen wird.

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

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.