sub t()dim strstr=ThisWorkbook.PathMsgBox Right(str, Len(str) - InStrRev(str, "\"))end sub
用路径整理下就是文件夹了啊~
[a1]=thisworkbook.path