在WorkSheet结束时附加日期

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

尝试

$lines = file('data.db');
$f = array_map(function($line) {return rtrim($line,"\r\n");},$lines);