Excel 创建31 个 工作表

 

Sub AddSheets()
Dim i As Integer
Dim DaysInt As Integer
Dim NameStr As String

DaysInt = DateAdd("m", 1, Now) - Now

NameStr = Month(Now) & "-"

Application.DisplayAlerts = False

For i = Sheets.Count To 1 Step -1
If Sheets(i).Name <> ActiveSheet.Name Then
Sheets(i).Delete
End If
Next

ActiveSheet.Name = NameStr & "1"


For i = 2 To DaysInt
Sheets(1).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = NameStr & CStr(i)
Next

Application.DisplayAlerts = True
End Sub

 

 

 

 

参见:  http://zhidao.baidu.com/link?url=ZZXXm8c-d-SEiKh9HXv0w6U5LxESX65PAqd2DDznhhHSbh2yVeJyPCbeTGwd7jJ3hFnFGC-pDwI6Wa134fiDxa

posted @ 2015-07-08 09:14  pengbg  阅读(80)  评论(0编辑  收藏