Option Explicit
Sub 日报表()
Dim x As Integer
Dim sh As Worksheet
Sheets("日报表模板").Visible = True
x = Sheets.Count
Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
Set sh = ActiveSheet
sh.Name = x - 1 & "日报表"
sh.Select
Sheets("日报表模板").Visible = False
End Sub
Sub 另存报表()
Dim y As Integer
Dim wb As Worksheet
For y =1 To Sheets.Count - 1
Sheets(y &"日报表").Copy
Set wb = ActiveSheet
wb.SaveAs ThisWorkbook.Path & "\" & wb.Name & ".xls"
ActiveWorkbook.Close True
Next y
End Sub