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 &