[已解决]工作簿保存自动命名问题

hwfdl

哪位高人能帮忙指点一下么？
附件表格，我要将表2和表3一起复制并新建一个工作簿，工作簿的名称要以表1 L2单元格的日期命名保存，L2日期每次都不一样。
表1每次填完后表2表3自动生成，我本来想录制宏，来完成 红色字体的工作，但是工作簿自动命名的这一步不能实现，希望能尽快得到帮助，谢谢！急

最佳答案

月排行榜 / 总排行榜

sliang28

2013-7-21 21:29

hwfdl 发表于 2013-7-21 21:27
真心的感谢，实在是太崇拜你！

以按照你的要求将复制工作表时把公式去除,只保留数值.

跳转到最佳答案楼层

sliang28

这个怎么没有人抢{:3912:}

1. Private Sub CommandButton1_Click()
   
2.     Dim wb As Workbook, wb1 As Workbook, nm
   
3.         Set wb = ThisWorkbook
   
4.         nm = Format(Sheets("Total 缺失物料").[L2], "yyyy-mm-dd")
   
5.             Sheets("1缺失物料").Copy
   
6.             Set wb1 = ActiveWorkbook
   
7.             wb.Activate
   
8.             Sheets("2缺失物料").Copy After:=wb1.Sheets(1)
   
9.     ActiveWorkbook.SaveAs wb.Path & "" & nm & ".xlsx"
   
10. End Sub

复制代码

hwfdl

真心的感谢，实在是太崇拜你！

sliang28

hwfdl 发表于 2013-7-21 21:27
真心的感谢，实在是太崇拜你！

以按照你的要求将复制工作表时把公式去除,只保留数值.