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

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

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

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

增加一个按钮控件

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

Sub 按钮4_Click()
' 新建工作表
Dim xx1 As String

Dim xx2 As String


xx1 = Year(Now()) & "-" & Month(Now()) & "-" & Day(Now())                         '将今天的日期存入xx1
xx2 = Sheets(Sheets.Count).Name                                                   '将当前工作表名存入xx2

If 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 If


End Sub

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

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

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