其实用 Dir() 即可直接取得不包含路径的文件名：Sub GetFilNam()
Dim FilNam
FilNam = Dir(Application.GetOpenFilename("Excel文件(*.xls),*.xls"))
If FilNam = False Then Exit Sub '如果单击“取消”则直接退出程序，以免返回“False”弹窗
MsgBox FilNam
End Sub 如果不考虑单击“取消”会返回“False”的问题，那么直接这样更加简洁：Sub GetFilNam()
MsgBox Dir(Application.GetOpenFilename("Excel文件(*.xls),*.xls"))
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024