str file="$documents$\Book1.xls" ExcelSheet e.Init("Sheet1" 8 file) str s=e.Cell("D13") e.Close ;out s str path.getpath(file) name.getfilename(file) ext.GetFilenameExt(file) s.ReplaceInvalidFilenameCharacters("_") str name2.from(name "_" s "." ext) ;out name2 ren* file name2