Excel使用VBA连续重命名表

我正在使用下面的代码来复制我的Excel表格（popup一个框询问用户他们想要复制表格的次数）

Sub Create() 'Updateby Extendoffice 20160704 Dim I As Long Dim xNumber As Integer Dim xName As String Dim xActiveSheet As Worksheet On Error Resume Next Application.ScreenUpdating = False Set xActiveSheet = ActiveSheet xNumber = InputBox("Enter number of times to duplicate this sheet") For I = 1 To xNumber xName = ActiveSheet.Name xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName) ActiveSheet.Name = "dd-mm-yy" & I Next xActiveSheet.Activate Application.ScreenUpdating = True End Sub 

我想Excel的VBA连续重命名表

要重复的表格将始终是月份“01-01-17”的开始，我希望每个表格都相应地重新命名为“02-01-17,03-01-17等”

Answer 1

MSDN DateSerial函数（Visual Basic） ：返回表示指定年份，月份和date的date值，并将时间信息设置为午夜（00:00:00）。

 ActiveSheet.Name = Format(DateSerial(2017,I,1), "dd-mm-yy")