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