自动保存上次打开的Excel文件的日期

Question

当前，我有一个代码，可以让我在运行代码时生成当前日期。 但是，我希望日期在关闭时会自动更新，因此当我下次打开它时，我会知道上次打开的日期是什么时候。 以下是我目前拥有的代码：

Private Sub Worksheet_Activate()

Dim Home As Worksheet
Set Home = Worksheets("Program Status Summary")
Home.Range("A1").Value = Format(Now(), "dd/mmm/yyyy")

End Sub

Answer 1

继续我的评论：只需将Workbook_BeforeClose的事件处理程序添加到VBA项目的工作簿对象中。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Home As Worksheet
    Set Home = Worksheets("Program Status Summary")
    Home.Range("A1").Value = Format(Now(), "dd/mmm/yyyy")
End Sub

您可能还需要保存更改，以防止出现“保存更改”提示。

更新 ：如果在更改代码之前保存了工作簿，则以下示例自动保存更改。 为避免保存用户不希望的更改，这是必要的。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim wasSaved As Boolean
    wasSaved = ThisWorkbook.saved

    Dim Home As Worksheet
    Set Home = Worksheets("Program Status Summary")
    Home.Range("A1").Value = Format(Now(), "dd/mmm/yyyy")

    If wasSaved Then ThisWorkbook.Save
End Sub

Answer 2

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Range("A1") = Date
    ThisWorkbook.Save
End Sub

这样就可以了。 添加当前日期后，“ ThisWorkbook.save”部分将保存工作簿