VBA GetOpenFilename文件类型筛选规则，返回选择的文件完整路径和文件名

@VBA GetOpenFilename文件类型筛选规则，返回选择的文件完整路径和文件名

一、概述基本语法

'GetOpenFilename相当于Excel打开窗口，通过该窗口选择要打开的文件，并可以返回选择的文件完整路径和文件名。
'注:
1、此方法并不会真正打开文件? 不能显示文件夹路径（FILEDIALOG可以打开）
2、此方法不能打开文件，只能返回路径
3、不能显示文件夹路径
'Application.GetOpenFilename(“文件类型筛选规则(就是说明)”,“优先显示第几个类型的文件”,“标题”,“是否允许选择多个文件名”)

'二、示例

  '1 打开类型只限excel文件
  
   '设置打开某类文件可以用下面的规则：
      
      '"文件类型说明文字,*.文件类型后辍"
 Sub t1()
   Dim f
   f = Application.GetOpenFilename("Excel文件,*.xls")
   MsgBox f
 End Sub
     
  '2、打开多种文件类型(word和excel)
    
  '打开多种文件类型，只需要用","隔开，添加新的文件类型说明和文件类型。如下：1，3为说明文件，2，4为文件类型
  '如果没有选择文件，返回FALSE
   
 Sub t2()
   Dim f
   f = Application.GetOpenFilename("Excel2003文件,*.xls,Word文件,*.doc")
   MsgBox f
 End Sub

  '3 打开多种文件类型,默认显示word文件
  
 Sub t3()
   Dim f
   f = Application.GetOpenFilename("Excel2003文件,*.xls,Word文件,*.doc,文本文件,*.txt",2)
   MsgBox f
 End Sub
    
   '4 设置对话框名称
   
  Sub t4()
     Dim f
      f = Application.GetOpenFilename("Excel2003文件,*.xls,Word文件,*.doc,文本文件,*.txt",2, "选择要汇总的文件")
      MsgBox f
  End Sub