Sub 日报表格式生成()
Dim sh As Worksheet
Dim i As Integer
i = 1
Do
Sheets("日报表模板").Visible = True
Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
Set sh = ActiveSheet
sh.Name = i & "日报表"
i = i + 1
Loop Until i = 32
Sheets("日报表模板").Visible = False
End Sub
Sub 另存报表()
Application.ScreenUpdating = False
Dim wb As Workbook
Dim x As Integer
Dim z As String
Application.DisplayAlerts = False
x = 1
Do
z = x & "日报表"
Worksheets(z).Copy
Set wb = ActiveWorkbook
wb.SaveAs ThisWorkbook.Path & "/" & z & ".xls"
wb.Close True
x = x + 1
Loop Until x = 32
Application.DisplayAlerts = True
End Sub
Sub 删除报表()
Dim x As Integer
Dim z As String
Application.DisplayAlerts = False
x = 1
Do
z = x & "日报表"
Worksheets(z).Select
Worksheets(z).Delete
x = x + 1
Loop Until x = 32
Application.DisplayAlerts = True
End Sub