获取Excel文件的最后修改日期

Question

我想获取需要在 Excel A 列中输入的给定文件列表的最后修改日期。我怎样才能解决这个问题 ？对于每个文件，我想获取最后修改日期。不幸的是我在 VBA 方面的技能不多。

Answer 1

这很容易！您可以申请FileDateTime ( file_path )。如果 A 列中有文件补丁和名称列表，则此宏将返回 B 列中文件创建或上次修改的日期和时间。

Sub LastFileDateTime()
CNT = Range("A65536").End(xlUp).Row
For i = 1 To CNT
    Cells(i, "B").Value = FileDateTime(Cells(i, "A"))
    'FileDateTime("D:\QueryTable.xlsm")
Next
End Sub