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