Sub SetLastSaveTime() Dim FilePath As String Dim LastSaveTime As Date ' 设置文件路径 FilePath = "D:\Test.xlsx" ' 获取当前日期和时间 LastSaveTime = Now ' 打开工作簿 Workbooks.Open FilePath ' 设置最后保存时间属性 ThisWorkbook.BuiltinDocumentProperties("Last Save Time") = LastSaveTime ' 保存工作簿 ThisWorkbook.Save ' 关闭工作簿 ThisWorkbook.CloseEnd Sub
五、运行结果运行上述代码后,工作簿的最后保存时间属性将被设置为当前日期和时间,然后工作簿将被保存并关闭。你可以通过右键单击工作簿文件,选择"属性",然后在"详细信息"选项卡下查看"最后修改"属性来验证结果。六、程序分析这个程序首先指定了要操作的工作簿的文件路径,然后获取了当前日期和时间。接下来,它打开工作簿,设置工作簿的"Last Save Time"属性为当前日期和时间,保存工作簿,然后关闭它。这样,工作簿的最后保存时间将被更新为当前日期和时间。请支持作者写作不易,敬请关注收藏,点赞和转发。(图片来源网络,侵删)
0 评论