Question

excel中自动插入工作表并将工作表命名为当天日期的vba怎么写？

如果当天日期格式”2001年2月1日”

Answer 1

Sub addas()

Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Year(Now()) & "-" & Month(Now()) & "-" & Day(Now())

End Sub

Answer 2

Option Explicit

Sub test()
On Error Resume Next
ActiveWorkbook.Sheets.Add
ActiveSheet.Name = DateSerial(Year(Now()), Month(Now()), Day(Now()))
End Sub