VBA-选择文件对话框

'打开选择路径对话框'@strTitle对话框标题名'@strTypesDec选择文件类型名(多文件名时用"|"连接)     "Images|All files"'@strExten    选择文件类型(一个文件名有多个读取类型时用";"连接,多个文件名用|连接)      "*.gif; *.jpg; *.jpeg|*.*"'@boolAllowMultiSelect   是否可以多选  true:多选  false:单选'return 返回选择文件的路径  多选的场合用"|"分割    点取消时返回空Function DialogsOpenSelectFile( _                            Optional strTitle As String = "Please choose the required documents", _                            Optional strTypesDec As String = "All", _                            Optional strExten As String = "*.*", _                            Optional boolAllowMultiSelect As Boolean = False _                            ) As String    Dim dlgOpen   As FileDialog    Dim arrTypesDec As Variant    Dim arrExten As Variant    Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)        dlgOpen.Title = strTitle    dlgOpen.Filters.Clear        arrTypesDec = Split(strTypesDec, "|")    arrExten = Split(strExten, "|")    For arr_i = 0 To UBound(arrTypesDec)        dlgOpen.Filters.Add arrTypesDec(arr_i), arrExten(arr_i)    Next arr_i    dlgOpen.AllowMultiSelect = boolAllowMultiSelect        If dlgOpen.Show = -1 Then        If dlgOpen.AllowMultiSelect = True Then            Dim strTemp As String            For i = 1 To dlgOpen.SelectedItems.Count                strTemp = strTemp & dlgOpen.SelectedItems(i)                If i <> dlgOpen.SelectedItems.Count Then                    strTemp = strTemp & "|"                End If            Next i            DialogsOpenSelectFile = strTemp        Else            DialogsOpenSelectFile = dlgOpen.SelectedItems(1)        End If    Else        DialogsOpenSelectFile = ""    End If        Set dlgOpen = NothingEnd Function