显示工作簿保存时间信息

工作簿保存时间

废话不多说直接上代码:

  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访问工作簿的最后修改时间,如果没有保存过会返回空文本,显示为没有保存。若保存,则返回修改时间。

分享到:

1 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. 郑州白癜风医院

    哎呦 不错哦