检查保存文件的日期（单元格中给出的路径）并返回下一个单元格，vba

Question

我正在尝试创建宏，它将检查列A中给出的文件是否存在以及何时保存。宏将把保存文件的日期和时间放在B列中。

PS。在A列中将给出文件的完整路径，例如C：\ VBA \ tandem \ file1.xlsm

提前感谢您的帮助。

Answer 1

这应该有所帮助：

Sub Demo()
    Dim str As String
    For Each cell In Range("A2:A11")                 '-->enter your range here
        str = cell.Value
        If Dir(str) <> "" Then                       '-->check if file exists
            cell.Offset(0, 1) = FileDateTime(str)    '-->get date
        Else
            cell.Offset(0, 1) = "File doesn't exist"
        End If
    Next
End Sub

FileDateTime函数返回创建或修改文件的日期和时间。有关详细信息，请参阅here。