'GetOpenFilename相当于Excel打开窗口，通过该窗口选择要打开的文件，并可以返回选择的文件完整路径和文件名。
'Application.GetOpenFilename(“文件类型筛选规则(就是说明)”,“优先显示第几个类型的文件”,“标题”,“是否允许选择多个文件名”)

打开类型只限excel文件

'“文件类型说明文字,*.文件类型后辍”

Sub t1()

Dim f

f = Application.GetOpenFilename("Excel文件,*.xls")

MsgBox f

End Sub