VBA怎样修改同目录下的工作薄名称

Question

比如，同目录下有一个工作簿，名字是“报表7月3日",在当前工作表写代码，将其变成"报表7月4日"

Answer 1

Sub 修改本工作表名()

'

' 修改本工作表名

' 将原文件另存为包含当前日期的文件名，并删除源文件

If Dir(ThisWorkbook.Path & "\报表7月3日.xlsm") <> "" Then

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\报表" & Format(Now, "m月d日") & ".xlsm"

Kill ThisWorkbook.Path & "\报表7月3日.xlsm"

End If

End Sub