在工作表末尾附加日期

Question

这已经发布过，但是，这有一点点扭曲。我正在尝试设置 VBA 宏，因此当我单击“保存”按钮时，它会复制当前的 Excel 工作表并将其保存为日期。

我不希望将其另存为全新的 Excel 文件，我希望将其另存为同一文件中的新 Excel 工作表。

我相信我已经很接近了，但似乎无法弄清楚为什么它不起作用。

Sub Button1_Click()

Dim dt As String
    dt = Format(Now(), "DD-MM-YYYY")
    Set wb = ThisWorkbook
    ThisWorkbook.Activate
    ActiveSheet.Copy After:=wb.dt
    wb.Activate
    MsgBox "Saved as " + dt

End Sub

Answer 1

试试

ActiveSheet.Copy After:=Sheets(ActiveSheet.Name)
Sheets(ActiveSheet.Index + 1).Name = dt