工作表知事件道.放在ThisWorkbook的内VBE代码窗口容

Private Sub Workbook_Open()

Dim shname As String, sh As Worksheet

shname = Sheets(Sheets.Count).Name

If shname

Set sh = Sheets.Add(after:=Sheets(Sheets.Count))

sh.Name = Date

End If

End Sub