Question

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

Answer 1

这很简单！您可以申请FileDateTime ( file_path )。如果你有文件补丁＆amp;列A中的名称列表，此宏将返回日期＆amp;在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

Answer 2

您必须将“A”和“B”替换为列的编号，如果您知道有多少行，则可以简化。我能够使用下面的代码。

Sub LastFileDateTime()
For i = 2 To 45
    Cells(i, 2).Value = FileDateTime(Cells(i, 1))
    'FileDateTime("D:\QueryTable.xlsm")
Next
End Sub

获取文件excel的上次修改日期

2 个答案: