到zzllrr豆瓣小站，快速查相应VBA代码 http://site.douban.com/127068/room/956006/你使用第四个话题的代码：【VBA】每张Sheet另存xls文件到当前文件夹代码稍微改一下即可。
自己写了个代码，试试这个行不？
搞不定的话可以找我解决
