Нужен макрос сбора данных.

[kipish_lp]

Здравствуйте! Помогите, пожалуйста. Нужен макрос сбора данных из разных файлов, но в одной папке. Открытая книга (пример "Куда"), берем все файлы ("Откуда1", "Откуда2"), и копируем в открытую книгу данные с листов 1 и 2, вставляя данные последующей книги и листа ниже предыдущих. Пример во вложении. По возможности лист1 книги "Куда". Если не получится, лист2 тоже замечательно.

[doober]

будут обработаны все файлы,которые находятся в одной папке с этой книгой


Если Книга Куда находится в другой папке замените в макросе строку

  Set F = fso.GetFolder(ThisWorkbook.Path & "\")

на

  Set F = fso.GetFolder("Путь к папке"& "\")

[kipish_lp]

Работает замечательно, только Касперский ругается. На что? Чем можно заменить?

[EducatedFool]

Чем можно заменить?

Заменить что? Касперского?
Настройте антивирус так, чтобы он не ругался, - делов-то на 1 минуту.
А исправлять код не вижу смысла.

[SAS888]

исправлять код не вижу смысла

doober +1. И мне код понравился.

[kipish_lp]

Да я не хочу код изменять, и Каспера не могу настроить, прав нет. Антивирь, скорее всего, ругается на то, что макрос в "невидимом режиме" в другую книгу лезет.

 Set wb = GetObject(fl.Path)

Ругается после выполнения данной строчки. Можеть быть, все-таки, можно что-нибудь сделать?

И еще, как сделать, чтобы в книгу "Куда" попадали данные всех листов книг "Откуда"?