excel - 自动保存上次打开 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