从指定的带有路径和文件名的字符串里提取文件名:
Dim sFile as string
Dim sFileName as string
Dim sPath as string
sFile="D:\xxx\xxx\xxx\aa.xlsx"
sFileName=Split(sFile,"\")(Ubound(Split(sFile,"\")))
sPath=mid(sFile,1,len(sFile)-len(Split(sFile,"\")(Ubound(Split(sFile,"\"))))-1)