Завершение макросов файла после первого успеха

Я надеюсь, что кто-то может помочь мне с моим макросом. Это относительно просто, но я не могу понять, почему он не продолжит цикл.

Макрос должен просмотреть установленную папку для всех файлов TXT. Те файлы с измененной датой в течение прошлой недели должны указывать на успех и перейти к другим шагам.

Проблема, с которой я столкнулся, заключается в том, что первый файл, который был изменен с прошлой недели, запускает следующий шаг, но затем макрос заканчивается и не продолжает находить другие недавно измененные файлы.

Пример ниже упрощен, чтобы открыть msgbox, но полный макрос запускает дополнительные процессы в TXT-файле.

Если бы кто-то мог дать некоторые рекомендации, он был бы весьма признателен.

Sub OpenAllFiles() Dim MyFile As Variant Dim MyFolder As String Dim FileCount As Integer MyFolder = "C:\Input Files\" MyFile = Dir(MyFolder) Do While (MyFile <> "") If Format(FileDateTime(MyFolder & MyFile), "YYYYMMDD") > Format(Now - 6, "YYYYMMDD") Then MsgBox ("Recent File Found. " & MyFile & " modified " & FileDateTime(MyFolder & MyFile)) Exit Sub End If MyFile = Dir Loop End Sub 

Либо вы закомментируете Exit Sub, либо удалите его.

 Sub OpenAllFiles() Dim MyFile As Variant Dim MyFolder As String Dim FileCount As Integer MyFolder = "C:\Input Files\" MyFile = Dir(MyFolder) Do While (MyFile <> "") If Format(FileDateTime(MyFolder & MyFile), "YYYYMMDD") > Format(Now - 6, "YYYYMMDD") Then MsgBox ("Recent File Found. " & MyFile & " modified " & FileDateTime(MyFolder & MyFile)) 'Exit Sub End If MyFile = Dir Loop End Sub 

Удалите «Exit Sub» из «If»

Interesting Posts
Давайте будем гением компьютера.