excel怎么复制工作簿并命名

1.怎样打Excel时自动复制前一个工作表并自动命名为系统日期

将以下这段代码复制到该工作簿的vb编辑器里的this book的代码窗口里即可

Private Sub Workbook_Open()

Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)

Sheets(Sheets.Count).Name = Year(Now()) & "-" & Month(Now()) & "-" & Day(Now())

End Sub

祝你成功！

2.在EXCEL表中,如何把多个部门转换成按部门命名的单独EXCEL?

因为你要用单独的表，首先在原来的EXCEL中新增工作簿，并以各部门来命名 然后在原来的工作簿的第一行标题选中后点数据中的筛选，在部门名称的下拉箭头一个个按部门选，如先选A部门，再全选出来的数据，复制再粘贴到新增的那些以部门命名的工作簿中，以此类推。

如果你在同一表格中，那么点选筛选再用升序，这样就会按部门名称进行集中分类排列。如果要分开工作簿，也可以点选下面工作簿的名称右键，点移移动或复制这样再在复制后的工作簿上筛选要去掉的部门，再删除掉不要的部门，这样重复几次。

所要的按部门都分离出来了。 你要单独分开，好像不行吧，不过上面的移动的话，要记得勾选保留原工作簿。

3.求高人指点：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 = True5、自动关闭新建工作簿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.CloseEnd Sub。