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

Question

I would like to get the last modified date of a given list of files that I need to enter in column A of Excel . How can I fix this ? For each file , I want to get the last modified date. Unfortunately I haven't many skills in VBA .

Answer 1

That's easy! You can apply FileDateTime ( file_path ) . If you have file patch & name list in column A, and this macro will return the date & time of when a file was created or last modified in column 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

You have to replace "A" and "B" with the number for the column, and you can simplify if you know how many rows you have. I was able to get it to work with the code below.

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