文件选择器，我如何指定filetype？ [英] File selector, How do i specify filetype?

问题描述

  Sub SelectFiles（ByRef test As String）
 
 Dim iFileSelect As FileDialog 
设置iFileSelect = Application.FileDialog（msoFileDialogFilePicker）
 
 Dim vrtSelectedItem As Variant 
 
如果iFileSelect .Show = -1然后
 
对于每个vrtSelectedItem在iFileSelect.SelectedItems 
 test = vrtSelectedItem 
下一个vrtSelectedItem 
 
如果
 
设置iFileSelect = Nothing 
 
 End Sub 
  

我希望只能显示某种类型的文件（在本例中为XML），用户可以选择任何文件类型。

我已经通过一些创意的Google搜索，似乎找不到一个解决方案，我有一种感觉应该很简单。

解决方案

 <$ c $ ç>取值ub Main（）
 Dim test As String 
 SelectFiles测试
 Debug.Print测试
 End Sub 
 
 Sub SelectFiles（ByRef test As String）
 
 Dim iFileSelect As FileDialog 
设置iFileSelect = Application.FileDialog（msoFileDialogOpen）
使用iFileSelect 
 .AllowMultiSelect = True 
 .Title =选择XML文件
 .Filters.Clear 
 .Filters.Add可扩展标记语言文件，* .xml
 .InitialView = msoFileDialogViewDetails 
如果.Show = -1然后
 Dim vrtSelectedItem 
对于每个vrtSelectedItem在iFileSelect.SelectedItems 
 test = vrtSelectedItem 
下一个vrtSelectedItem 
如果
结束
设置iFileSelect = Nothing 
 End Sub 
  

I have the following code that opens a file selector and lets the user pick a file.

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

I would like it to only display files of a certain type (in this case XML) as it is now, the user can select any file type.

I have been through some creative Google searches but cant seem to find a solution and I have a feeling that it should be quite simple.

解决方案

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

这篇关于文件选择器，我如何指定filetype？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！