Реализовать перебор файлов в папке с поиском пустых файлов - VBA

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Реализовать перебор файлов в папке с поиском пустых файлов»

textual
Листинг программы
        НизАктивный = АктивныйЛист.Cells(АктивныйЛист.Rows.Count, 1).End(xlUp).Row
        Найдено = ЛистИсточник.Cells(ЛистИсточник.Rows.Count, 1).End(xlUp).Row
        Debug.Print sFolder & книгаИсточника.Name, Найдено
        
        If Найдено > 1 Then
            'далее код основной
        Else
            MsgBox ("В книге-источнике: " & sFiles & " нет данных!"), vbCritical
        End If
        
        книгаИсточника.Close SaveChanges:=False
        
        sFiles = Dir
    Loop

Оцени полезность:

14   голосов , оценка 4.071 из 5