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

//======華麗分割線==============================

好了注意每天只有一個用當天日期做名字的工作表，如果有了則不會發生覆蓋。

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