VBA80集第10集练习上交专贴（正确答案奖励20金币）

khacqw

谢谢

hongdouliu

想学习一下，为什么是sheet4呢，正确答案是sh.Name = Sheets.Count - 2 & "日报表"，为什么是减2呢，小白的我

tanyongjing

谢谢

学习，学习

学习

wlzadrhyt

真的码不出来，还是要继续看看

Anlie0705

学习学习

Anlie0705

Sub 日报表格式生成()
Dim sht As Worksheet
Sheets("日报表模板").Visible = True
Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
Set sht = ActiveSheet
sht.Name = Sheets.Count - 1 & "日报表"

Sheets("日报表模板").Visible = False
End Sub
Sub 另存报表()
Application.ScreenUpdating = False

Dim sht As Worksheet
Dim wb As Workbook
For Each sht In Sheets
If sht.Name Like "*日报表" Then
sht.Copy
Set wb = ActiveWorkbook
wb.SaveAs ThisWorkbook.Path & "/" & sht.Name & ".xlsx"
wb.Close
End If

Next
Application.ScreenUpdating = True
End Sub

余生一个奚

我想看正确答案

czh1133

咐情况