Проверка даты последнего изменения файла-источника

[Paramount]

Доброго времени суток. Подскажите пожалуйста как осуществить сие действие?
Задача состоит в том, чтобы ввести условие:
Если дата последнего изменения файла-источника = сегодня, то:

Dim sPath As String, sFile As String, sShName As String
sPath = "C:\E-REP\I-data\"
sFile = "Acc2600.xlsx"
sShName = "Лист1"

'======= коммент ======
Sheets("2600").Select
With Sheets("2600").Range("A2:A25000")
.ClearContents
.Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "A2:A25000"
.Value = .Value
End With

в противном случае вывести месседжбокс "источник ' & sFile & ' не обновлен".


Заранее благодарен за ответы.

[maksim_serg]

Function Проверка_дат_файла_и_сегодня(ByVal path As String) As Boolean
    Dim FileDate As Date: FileDate = FileSystem.FileDateTime(path)
    Dim FormatDate As String: FormatDate = "dd.mm.yyyy"
    
    If CStr(Format(FileDate, FormatDate)) = CStr(Format(DateTime.Date, FormatDate)) Then
        Проверка_дат_файла_и_сегодня = True
    Else
        Проверка_дат_файла_и_сегодня = False
    End If
End Function


Sub n()
Dim sPath As String, sFile As String, sShName As String
sPath = "C:\E-REP\I-data\"
sFile = "Acc2600.xlsx"
sShName = "Лист1" 

if Проверка_дат_файла_и_сегодня( sPath & sFile) then
      Sheets("2600").Select
      With Sheets("2600").Range("A2:A25000")
                .ClearContents
                  .Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "A2:A25000"
                  .Value = .Value
End With
else
      msgbox  "источник ' & sFile & ' не обновлен"
end if
end sub

[Paramount]

Всё работает, спасибо большое, Максим!

[Paramount]

тема закрыта