求高人指点：vba编程复制工作表并另存为以当天日期命名的工作簿

求高人指点：vba编程复制工作表并另存为以当天日期命名的工作簿

1、复制当前工作簿中的“A”表
2、新建一个工作簿，并且将“A”表的内容粘贴到新建的工作簿中
Set OrigWB = ThisWorkbook
Set DestWB = Workbooks.Add
Set ws = OrigWB.Sheets("A")
ws.Copy after:=DestWB.Sheets(1)

3、将新建的工作簿命名为当天的日期（如2010-10-10）
4、将新建的工作簿保存到D盘 “历史记录”文件夹
Application.DisplayAlerts = False
DestWB.SaveAs "D:\Documents" & "\" & "Test _ " & Format(VBA.Date, "yyyy-mmm-dd")
Application.DisplayAlerts = True

5、自动关闭新建工作簿
DestWB.Close
完整的代码:
Sub Macro2()
Set OrigWB = ThisWorkbook
Set DestWB = Workbooks.Add
Set ws = OrigWB.Sheets("ByPart")

ws.Copy after:=DestWB.Sheets(1)
Application.DisplayAlerts = False
DestWB.SaveAs "D:\Documents" & "\" & "Test _ " & Format(VBA.Date, "yyyy-mmm-dd")
Application.DisplayAlerts = True

DestWB.Close
End Sub

用最简单的方法：
Sub mm()
ActiveWorkbook.SaveAs Filename:="d:\历史记录\" & Format(VBA.Date, "yyyy-mmm-dd")
& ".xls"
ActiveWorkbook.Close
End Sub