显示工作簿保存时间信息

工作簿保存时间

废话不多说直接上代码:

  1. Sub Showsaveinfo()   
  2. Dim savetime As String   
  3. savetime = ActiveWorkbook.BuiltinDocumentProperties("last save time").Value   
  4. If savetime = "" Then   
  5. MsgBox ActiveWorkbook.Name & "工作簿没有保存"  
  6. Else   
  7. MsgBox "本工作簿在" & savetime & "保存", , ActiveWorkbook.Name   
  8. End If   
  9. End Sub   

代码解释:

通过BuiltinDocumentProperties的last save time访问工作簿的最后修改时间,如果没有保存过会返回空文本,显示为没有保存。若保存,则返回修改时间。

分享到: