在线等，excel vba如何获取打开的表格的文件名称的问题

Question

我利用Application.GetOpenFilename选择了要打开的电子表格后，如何将该表格的名称（不含路径，如test.xls）赋值进一个变量中？

Answer 1

其实用 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

Answer 2

Sub test()

Dim FileName, xlsName As String
FileName = Application.GetOpenFilename("Excel文件(*.xls),*.xls")
xlsName = Mid(FileName, InStrRev(FileName, "\") + 1, 100)
MsgBox xlsName

End Sub本回答被网友采纳