| 楼主 wise |
Sub AddSheets_Today() ' 检查以今天的日期来命名的工作表表是否已经存在，如果存在，则选择激活它;如果这个表不存在，则建立一个表，并且该表名以今天的日期来命名 Dim MyToday As String MyToday = Format(Date, "yyyy""年""m""月""d""日"";@") On Error GoTo 100 Sheets(MyToday).Activate Exit Sub 100: Sheets.Add , Worksheets(Worksheets.Count) ActiveSheet.Name = MyToday End Sub  VBA增加表名为今天日期的工作表.rar |
| 2楼 hlxz |
好文章 wise高手 |
| 3楼 初学者2012 |
学习了**！ |