Как все склеить воедино? (Excel VB)
Сначала надо просматривать сетевую папку и по очереди открывать из нее каждый файл.
Потом в каждом файле надо сначала просматривать Лист1, а потом Лист 2.
На каждом листе есть метка в конце строки (Да/Нет), если Да, то копируем всю строку (диапазон до метки) в рабочий файл Лист1. И так просмотреть все строки. Тоже самое сделать с Лист2.
Закрыть файл, открыть следующий и проделать вышеописанное.
Проделать это со всеми файлами.

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

Спасибо огромное дружище!!!!!!!!!!!!!!!!
Как проверить в рабочей книге(куда копируются все строки из других книг) на личие пустой строки и при нахождении таковой вставить туда скопированную строку из другой книги???

Допустим я нашел пустую и теперь хочу туда сделать paste, у меня выдает 9 ошибку:(

Workbooks(activ).Sheets("report").Cells(4 + c, 1).Select - не хочет..

Немного не то написал ранее
Do While Workbooks("report_17_week_2").Worksheets("report").Cells(4 + c, 1) = ""

дает ошибку

Немножко продвигаюсь к поставленной цели, встал вопрос перед следующей проблемой.
При копировании строки одной книги в другую вылетает сообщение мол одна из ячеек имеет имя, поменять его или нет, оно то так и есть, одна ячейка имеет имя, как сделать чтобы автоматом отвечало ОК или вообще такой вопрос не задавало, а в тупую копировало бы???

Заранее спасибо.