函数Date本身返回今天的日期，你应该明白。因此，如果明天运行宏，自然生成10-26的Sheet。如果你想今天就实现，将代码改为如下：For i = 1 To 3Sheets.Add.Name = Format(Date + i, "M-D")Next i将3改为你想要的数。
不改变原始表格数据，打印时自动添加打印日期。
Sheets.Add.Name = Format(Date +1, "M-D")
