excel写一个另存为加当前日期的vba代码

下面是一个简单的VBA代码，可以将Excel文件另存为带有当前日期的文件名：

Sub SaveAsWithDate()
    Dim fileName As String
    fileName = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1) & " " & Format(Date, "yyyy-mm-dd") & ".xlsx"
    ThisWorkbook.SaveAs fileName
End Sub

在这个代码中，我们首先定义了一个字符串变量fileName，它将是我们保存文件的文件名。我们使用Left和InStrRev函数来提取当前工作簿的名称，然后使用Format函数来获取当前日期，并将其格式化为yyyy-mm-dd的格式。最后，我们使用SaveAs方法将工作簿另存为带有日期的文件名。

要使用此代码，请打开需要保存的Excel文件，并打开VBA编辑器。在VBA编辑器中，选择Insert菜单中的Module，然后将上面的代码复制粘贴到新模块中。最后，按下F5键或单击工具栏上的“运行”按钮来运行代码。 Excel将提示您选择要保存的位置，然后将文件保存为带有当前日期的文件名。