vba 如何将excel表中的某些sheet生成新的文件，并且文件名字自动添加日期。

vba如何将excel表中的某些sheet生成新的文件，并且文件名字自动添加日期。比如一个表中有A,B,C,D,E,F等多个sheet，运行代码后，将其中的A,B,C,D... vba 如何将excel表中的某些sheet生成新的文件，并且文件名字自动添加日期。
比如一个表中有A,B,C,D,E,F等多个sheet，运行代码后，将其中的A,B,C,D4sheet个各生成一个excel文件，并且文件名中自动添加今日日期，如“A-20170421.xls”。谢谢了。展开

 我来答

1个回答

#合辑# 机票是越早买越便宜吗？

鱼木混猪哟

高粉答主

2017-04-21 · 专注Office，尤其Excel和VBA

鱼木混猪哟

采纳数：6078 获赞数：33683

向TA提问私信TA

关注

展开全部

下面的代码可以把所有的Sheet都生成一个新文件，把不要的删除就好了：
Sub M()
For Each sh In Sheets
sh.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & sh.Name & "-" & Format(Now, "YYYYMMDD")
ActiveWorkbook.Close
Next
End Sub