获取文件excel的最后修改date

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

Answer 1

这很容易！ 您可以应用FileDateTime ( file_path ) 。 如果在A列中有文件补丁和名称列表，并且此macros将返回在B列中创build或上次修改文件的date和时间。

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

Answer 2

您必须将“A”和“B”replace为列的编号，如果您知道有多less行，则可以简化。 我能够使它与下面的代码一起工作。

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