excel 中如何获取 上次的保存或修改或访问 时间

发布网友 发布时间：2022-04-30 07:49

我来回答

共5个回答

热心网友 时间：2022-06-19 07:12

按下ALT+F11,进入VBA编辑界面.双击左边的纵栏下的"THISWORKBOOK",将下面代码复制到右边的编辑框中.退出.以后每次你打开文件,即会达到你所说的要求

Private Sub Workbook_Open()
Sheets("SHEET1").Activate
Range("A1:B1").Select
Selection.NumberFormat = "YYYY-MM-DD HH:MM:SS"
Cells(1, 1) = ActiveWorkbook.BuiltinDocumentProperties(12)
Cells(1, 2) = Now()
Cells(1, 3) = WorksheetFunction.Text(Cells(1, 2) - Cells(1, 1), "D天H小时M分钟S秒")
End Sub

热心网友 时间：2022-06-19 07:12

用这个宏试试吧：

Public Sub last_save_time()
    Range("a1").Value = ActiveWorkbook.BuiltinDocumentProperties(12).Value
End Sub

自己试出来的，这个是返回最后一次保存时间

热心网友 时间：2022-06-19 07:13

Private Sub Worksheet_Change(ByVal Target As Range)
    Static t$
    Application.EnableEvents = False
    If t <> "" Then [a1] = t
    t = [b1].Text
    Application.EnableEvents = True
End Sub

热心网友 时间：2022-06-19 07:13

A1用手工输入吧:
按ctrl+; (ctrl加分号)
回车

热心网友 时间：2022-06-19 07:14

Private Sub Workbook_Open()
Sheets("SHEET1").Activate
Range("A1:B1").Select
Selection.NumberFormat = "YYYY-MM-DD HH:MM:SS"
Cells(1, 1) = ActiveWorkbook.BuiltinDocumentProperties(12)
Cells(1, 2) = Now()
Cells(1, 3) = WorksheetFunction.Text(Cells(1, 2) - Cells(1, 1), "D天H小时M分钟S秒")
End Sub