макрос вноса данных из шаблонных книг exel

[v.demin]

Уважаемые граждане, подскажите пожалуйста макрос для того чтобы можно было создать таблицу, данные для которой подгружались из разных книг excel заполненных по шаблону (заполняемые ячейки во всех книгах одинаковы). Но в ИДЕАЛЕ было бы просто супер, если бы макрос ссылаясь на определенную папку показывал все книги в виде списка (содержание каждой книги - одна строка)

[doober]

Зто список книг в выбраной папке.

Sub test()
Dim n As Integer
Dim Path As String 'Путь к папке
n = 1
Filename = Dir(Path & "\" & "*.xls")
While Len(Filename) <> 0

n = n + 1
   Sheets("Лист1").Cells(n, 1).Value = Filename
  Filename = Dir
Wend
End Sub

А все остальное возможно после выполнения второго абзаца правил создания темы.Создавать шаблоны и файлы нет желания.

[v.demin]

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

[doober]

В статусБаре отображается ход обработки.

[v.demin]

СПАСИБИЩЕ ОГРОМНЕЙШЕЕ!!!!!!!!!!!!!!!! все летает.!!!!!!!:coo l:

еще вопросик маленький, он при выгрузке пустые ячейки характеризует как "0", а как сделать чтоб не "0" был, а пустая ячейка????



блин, я чего то не догоняю...... он не хочет находить адрес папки в которой шаблоны если папка находится на сетевом диске, а вот на локальном все великолепно!!!!

[doober]

Представте путь к сетевому диску на обозрение

[v.demin]

X:\selling\Логистика\КАРТОЧКА КЛИЕНТА\Работающие клиенты

виндой оределяет этот диск как data на "DZ-FS (dz-fs)"

[doober]

Придумаем что нибудь

[doober]

При первом запуске макрос попросит указать путь к папке.Путь запишет в реестр.И будет далее им пользоваться

[v.demin]

Выражаю свое почтение и низкий поклон!!!!!
СПАСИБИЩЕ ОГРОМНЕЙШЕЕ!!!!!!!!!!!!!!!! все летает.!!!!!!!