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