excel中用当天日期命名工作表名vba

excel中经常会用到每天一个工作表的情况，这时写个简单的VBA每天点一下生成新的工作表，可以节省一小会，一年下来省不少时间。

先看我的前一篇文章《excel2007如何增加控件》

http://blog.csdn.net/dkink/article/details/51539774

增加一个按钮控件

指定宏并编辑，在单击事件中写代码

Sub 按钮4_Click()' 新建工作表Dim xx1 As StringDim xx2 As Stringxx1 = Year(Now()) & "-" & Month(Now()) & "-" & Day(Now())                         '将今天的日期存入xx1xx2 = Sheets(Sheets.Count).Name                                                   '将当前工作表名存入xx2If xx1 <> xx2 Then                                                                '如果今天日期不等于当前工作表名Sheets(Sheets.Count).Copy after:=Sheets(Sheets.Count)                             ' 按原有工作表复制新工作表Sheets(Sheets.Count).Range("B7:H18,B24:H35").ClearContents                        ' 清除工作表中指定内容Sheets(Sheets.Count).Name = Year(Now()) & "-" & Month(Now()) & "-" & Day(Now())   ' 用时间命名工作表名字End IfEnd Sub

//======华丽分割线==============================

好了注意每天只有一个用当天日期做名字的工作表，如果有了则不会发生覆盖。

注意清除工作表中指定的内容，每天都有不同的内容的，这部分要清除的。