显示工作簿保存时间信息

• VBA • 1 条评论 • •4,126 次查阅

工作簿保存时间

废话不多说直接上代码：

  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. 郑州白癜风医院

    哎呦 不错哦