工作玩转设置时间VBAExcel(工作时间保存设置属性)「excel vba 时间」

我为你提供一个示例来说明如何使用VBA设置工作簿的使用时间。
以下是各个部分的详细说明:一、功能说明本程序将使用VBA设置Excel工作簿的使用时间。
使用时间是指工作簿的最后保存时间,它记录了工作簿上次被保存的日期和时间。
二、语法说明为了设置工作簿的使用时间,我们需要使用VBA中的ThisWorkbook对象和BuiltinDocumentProperties属性。
BuiltinDocumentProperties属性允许我们访问工作簿的内置属性,其中包括"Last Author"(最后作者)和"Last Save Time"(最后保存时间)。
三、案例说明让我们假设你的工作簿保存在 "D:\Test.xlsx" 这个路径下,你希望将其最后保存时间设置为当前日期和时间。
四、编写代码下面是一个示例VBA代码,用于设置工作簿的使用时间: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"属性为当前日期和时间,保存工作簿,然后关闭它。
这样,工作簿的最后保存时间将被更新为当前日期和时间。
请支持作者写作不易,敬请关注收藏,点赞和转发。

工作玩转设置时间VBAExcel(工作时间保存设置属性)
(图片来源网络,侵删)

联系我们

在线咨询:点击这里给我发消息