如果编写代码 弹出文件选择对话框

求大神帮忙~~~~
我想添加一个按钮 点了之后出现文件选择对话框   
求大神告诉我详细方法 本人新手
不要添加ACTIVE 控件的那种方法 --------------------编程问答-------------------- Sub openfile()
   Dim fn
       fn = Application.GetOpenFilename("Microsoft Excel(*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm")
    If FName = "False" Then
        Exit Sub
    Else
        Debug.Print fn
    End If
End Sub --------------------编程问答--------------------

引用 1 楼 w2kexp 的回复:

Sub openfile()
  Dim fn
  fn = Application.GetOpenFilename("Microsoft Excel(*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm")
  If FName = "False" Then
  Exit Sub
  Else
  Debug.Print fn
  End If
End……

下面这个才对。。。
Sub openfile()
   Dim FName
       FName = Application.GetOpenFilename("Microsoft Excel(*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm")
    If FName = "False" Then
        Exit Sub
    Else
        Debug.Print FName
    End If
End Sub

补充：VB ,  VBA