VBA для -l oop сверх указанных c файлов и даты подтверждения

Question

У меня есть три рабочие книги (Book1, Book2, Book3), все они сохранены в виде файлов xlsx. Каждый день эти рабочие тетради обновляются. Предположим, что все книги принадлежат следующему каталогу: C: \ Users \ abc \ Documents \ Example, который также содержит много других файлов (d, e, f .... et c). Мне нужно убедиться, что Book1, Book2, Book3 обновлены так, что «Дата изменения» = сегодняшняя дата. Если измененная дата не совпадает с сегодняшней, мне нужен код, чтобы остановить работу и предупредить «Неверная дата». Я полагаю, что эта задача будет включать запуск for-l oop, но я совсем новичок в VBA.

Answer 1

Попробуйте:

Sub test()

    Dim arrFileNames As Variant
    Dim i As Long
    Dim strPath As String
    Dim strExt As String

    arrFileNames = Split("Book1,Book2,Book3", ",")
    strPath = "C:\Users\marios.p\Desktop\test" & "\"
    strExt = ".xlsx"

    Set fs = CreateObject("Scripting.FileSystemObject")

    For i = LBound(arrFileNames) To UBound(arrFileNames)

        Set f = fs.GetFile(strPath & arrFileNames(i) & strExt)

        If f.DateLastModified < Date Then
            MsgBox "Incorrect Date"
        End If

    Next i

End Sub