工作表結束時的追加日期

這已在之前發佈，但是，這有一個輕微的轉折。我試圖設置一個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

來源

2016-02-04 Caleb

嘗試

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

來源

2016-02-04 05:45:38 innomatics

你也應該複製表重命名爲每個操作請求。 – Jules

看看這篇文章找到新的工作表:) http://stackoverflow.com/questions/7692274/excel-vba-copy-sheet-and-get-resulting-sheet-object – Jules

工作表結束時的追加日期

回答

相關問題