'复制“日报表模板”工作表(已隐藏)至本工作簿最后一个位置,复制后的工作表名称为最后的日期天数+1&“报表”的格式。
'如:当前情况下,没有任何一天的日报表,则心腹之的工作表名称是“1日报表”,如果再添加时就是1+1=2日报表。如果目前已存在5天的日报表,则复制后的工作表名称应为“6日报表”
'注:“日报表模板“工作表复制后要隐藏起来。
Sub cop()
Dim sh As Worksheet
Dim x, y As Integer
y = 1
For x = 1 To Sheets.Count
If InStr(2, Sheets(x).Name, "日报表") > 0 Then
y = y + 1
End If
Next x
Sheets("日报表模板").Visible = True
Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
Set sh = ActiveSheet
sh.Name = y & "日报表"
Sheets("日报表模板").Visible = False
End Sub
'拷贝所有日报表到当前目录
Sub savto()
Dim sPath As String
Dim str As String
Dim x As Integer
sPath = ThisWorkbook.Path & "\"
For x = 1 To Sheets.Count
If InStr(2, Sheets(x).Name, "日报表") > 0 Then
str = Sheets(x).Name
Sheets(x).Copy
ActiveWorkbook.SaveAs sPath & str & ".xlsx"
ActiveWorkbook.Close True
End If
Next x
End Sub