Sub addas()
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Year(Now()) & "-" & Month(Now()) & "-" & Day(Now())
End Sub
Option Explicit
Sub test()
On Error Resume Next
ActiveWorkbook.Sheets.Add
ActiveSheet.Name = DateSerial(Year(Now()), Month(Now()), Day(Now()))
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024