急求一个VBA代码，我要一次性把工作表的所有名称按日期命名。

6月份的报表，就用简写601、602、603……630，谢谢了。

请拷屏，或者说清楚日期从哪里获得？

1、复制当前工作簿中的“a”表<br>2、新建一个工作簿，并且将“a”表的内容粘贴到新建的工作簿中<br>   set origwb = thisworkbook<br>    set destwb = workbooks.add<br>    set ws = origwb.sheets("a")<br>    ws.copy after:=destwb.sheets(1)<br><br>3、将新建的工作簿命名为当天的日期（如2010-10-10）<br>4、将新建的工作簿保存到d盘 “历史记录”文件夹<br>    application.displayalerts = false<br>    destwb.saveas "d:\documents" & "\" & "test _ " & format(vba.date, "yyyy-mmm-dd")<br>    application.displayalerts = true<br><br>5、自动关闭新建工作簿<br>destwb.close<br>完整的代码:<br>sub macro2()<br>    set origwb = thisworkbook<br>    set destwb = workbooks.add<br>    set ws = origwb.sheets("bypart")<br><br>    ws.copy after:=destwb.sheets(1)<br>    application.displayalerts = false<br>    destwb.saveas "d:\documents" & "\" & "test _ " & format(vba.date, "yyyy-mmm-dd")<br>    application.displayalerts = true<br><br>    destwb.close<br>end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息