Реализовать перебор файлов в папке с поиском пустых файлов - 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