Excel从左往右及从右往左提取操作？

sub fencun()application.screenupdating = falseb = sheets.countfor i = 1 to b sheets(i).copy a = thisworkbook.worksheets(i).name with activeworkbook .saveas filename:=thisworkbook.path & "" & a & ".xls" .close end withnext iapplication.screenupdating = trueend sub