- 博客(1)
- 收藏
- 关注
原创 新建工作表并按日期命名 & 按此方式新建下月工作表
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...
2020-02-18 11:15:42
1917
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人