文件select器，我如何指定文件types？

我有以下代码打开文件select器，并让用户select一个文件。

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 

我希望它现在只显示某种types的文件（在这种情况下是XML），用户可以select任何文件types。

我经历了一些有创意的谷歌search，但似乎找不到解决scheme，我觉得它应该是非常简单的。

Answer 1

 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