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

【问题标题】：Get last modified date of file excel获取文件excel的最后修改日期
【发布时间】：2015-09-02 07:53:16
【问题描述】：

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

【问题讨论】：

欢迎来到stackoverflow，不幸的是它不是免费的代码编写服务。您需要开始学习编写代码，我们很乐意在此期间为您提供帮助。如果您不想学习它，那么最好的选择可能是雇人为您做。

【解决方案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

【讨论】：

不幸的是它不起作用！文件路径未采用并出现#VALUE !
还有更多详细信息吗？请检查像这样的文件路径 D:\QueyTable.xlsm。

【解决方案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

【讨论】：