Datei-Selektor, Wie kann ich festlegen, Dateityp?

Ich habe den folgenden code, öffnet sich ein file-Browser und ermöglicht dem Benutzer, wählen Sie eine Datei.

Sub SelectFiles(ByRef test As String)

    Dim iFileSelect As FileDialog
    Set iFileSelect = Application.FileDialog(msoFileDialogFilePicker)

    Dim vrtSelectedItem As Variant  

        If iFileSelect.Show = -1 Then            

            For Each vrtSelectedItem In iFileSelect.SelectedItems
                test = vrtSelectedItem
            Next vrtSelectedItem

        End If

    Set iFileSelect = Nothing

End Sub

Ich möchte, dass es nur die Anzeige der Dateien eines bestimmten Typs (in diesem Fall XML), wie es jetzt ist, kann der Benutzer wählen Sie eine beliebige Datei-Typ.

Habe ich durch einige kreative Google-Suche, aber kann nicht scheinen, um eine Lösung zu finden, und ich habe das Gefühl, es sollte Recht einfach sein.

Könnte, verwenden Sie die ` Anwendung.GetFileOpen` - Methode zum anzeigen eines Datei Öffnen-dialogs? Die Argumente/Parameter, die es erlauben, die Einschränkung der Dateiauswahl auf*.xml", so dass alle user sehen können, um von zu wählen.

InformationsquelleAutor Jon Carlstedt | 2013-11-08

  1. 12
    Sub Main()
    Dim test As String
    SelectFiles test
    Debug.Print test
End Sub

Sub SelectFiles(ByRef test As String)

    Dim iFileSelect As FileDialog
    Set iFileSelect = Application.FileDialog(msoFileDialogOpen)
    With iFileSelect
        .AllowMultiSelect = True
        .Title = "Select XML Files"
        .Filters.Clear
        .Filters.Add "Extensible Markup Language Files", "*.xml"
        .InitialView = msoFileDialogViewDetails
        If .Show = -1 Then
            Dim vrtSelectedItem
            For Each vrtSelectedItem In iFileSelect.SelectedItems
                test = vrtSelectedItem
            Next vrtSelectedItem
        End If
    End With
    Set iFileSelect = Nothing
End Sub
    Funktioniert das mit dem Ordner auswählen?

    InformationsquelleAutor

Schreibe einen Kommentar