liusiyuan2809619353的博客

原创 新建工作表并按日期命名 & 按此方式新建下月工作表

Sub 新建工作表()Dim ShtName As String, sht As Worksheet '声明变量ShtName = Format(Date, “yyyy-mm-dd”) '将今日日期格式化为“yyyy-mm-dd”格式On Error Resume Next '如果执行时出错，那么继续执行下一句Set sht = Worksheets(ShtName) '将名字等于变量sh...