excel写一个另存为并对某个表格的日期的vba代码

以下是一个简单的VBA代码，可以将当前工作簿中的特定表格“Sheet1”另存为一个以日期命名的新工作簿：

Sub SaveAsNewWorkbook() Dim newFileName As String newFileName = Format(Date, "yyyy-mm-dd") '将当前日期格式化为“年-月-日”的字符串 ThisWorkbook.Sheets("Sheet1").Copy '复制表格“Sheet1”到新工作簿中 ActiveWorkbook.SaveAs newFileName '将新工作簿另存为以日期命名的文件名 ActiveWorkbook.Close '关闭新工作簿 End Sub

请注意，此代码假定您想要另存为的表格名称为“Sheet1”。如果您的表格名称不同，请相应地修改代码。