Автоматическое формировании таблицы данных из множества файлов

[Ivann]

Привет всем.
Есть небольшая задача. Выполнить своими мозгами не могу. Поэтому прошу вашей помощи.

Есть множество однотипных файлов Excel, расположенных в одной папке.
Необходимо сформировать таблицу в новом файле, в которой будут использоваться одни и теже ячейки из каждого файла
в исходной папке.
Чтобы понятнее было.
Во множестве файлов в определенных ячейках есть фамилия и номер.
ТАблица нужна вида:
номер фамилия
номер фамилия
номер фамилия
....
номер фамилия
номер фамилия

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

Надеюсь объяснение понятно. Что-то подсказывает что это не трудно, но отсутствие знаний в этой области не позволяют решить эту задачку.
Спасибо всем откликнувшимся.

[SAS888]

Посмотрите вложение. Пусть во всех ".xls" файлах в ячейке "A1" находится фамилия, а в ячейках "B1" - номер. (если адреса ячеек другие - измените соответствующие значения в коде макроса). Рабочий файл "Work.xls" должен находиться в той же папке, что и обрабатываемые файлы.
Макрос перебирает все "xls" файлы в папке (кроме рабочего) и в нужных ячейках создает требуемые ссылки. Затем эти ссылки удаляются, а полученные по ним значения остаются. Такой метод позволяет не открывать каждый файл, что существенно экономит время.
Надеюсь, что я Вас правильно понял.

[Ivann]

спасибо большое, к вечеру гляну, по результатам отпишусь

[Ivann]

Отлично, работает. Теперь стараюсь переделать под себя.
Спасибо.
.....
Странно сейчас дома проверил, не работает. А на работе все пашет.

Есть правда еще вопрос:
на работе работа организована с помощью удаленного рабочего стола, и при работе путь myPath используется сетевой(к папке Мои документы на сервере). Как только я отключаю сеть то макрос уже использует фактический путь к используемой папке на локальном диске. В общем это не страшно, но если есть решение был бы трижды благодарен.

[SAS888]

Я не случайно оговорил, что все файлы (и рабочий и обрабатываемые) должны находиться в одной папке. Потому, что путь к обрабатываемым файлам берется тот же, в котором находится файл с данным макросом. Попробуйте вместо

myPath = CurDir & Application.PathSeparator

использовать

myPath = ThisWorkbook.Path & Application.PathSeparator

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

[Ivann]

Сообщение от SAS888

Я не случайно оговорил, что все файлы (и рабочий и обрабатываемые) должны находиться в одной папке. Потому, что путь к обрабатываемым файлам берется тот же, в котором находится файл с данным макросом.

Я это понял, у меня они и находятся в одной папке

Сообщение от SAS888

Попробуйте вместо

myPath = CurDir & Application.PathSeparator

использовать

myPath = ThisWorkbook.Path & Application.PathSeparator

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

Еще раз громадное спасибо. Буду пробовать.
Главное, что работает

[RUBEY]

Вклинюсь и я. Очень полезный макрос и работающий. Только вот как его модифицировать, чтобы разрулить файлы по определенным строкам в сводке. Например файл Отчет11 должен попадать в 1 -ю строку, файл Отчет 22 в 3-ю строку и т.д. То есть в зависимости от имени файла формировать нужную сводную строку.
Если это не сложно, то буду благодарен за подсказку.
Рубей.

[SAS888]

RUBEY
В коде макроса определяйте имя текущего файла в цикле, и в зависимости от этого делайте то, что Вам нужно.
Например:

If myName = "Отчет11.xls" Then...

[g213]

Тоже хотелось бы продолжить тему...
Меня интересует вот эта строка

Cells(r, "B").Formula = "='" & myPath & "[" & myName & "]Лист1'!$B$1"

Можно ли тутже просуммировать значения, т.е. сделать что-то вроде

Dim k As String
k = 0
...
Do While myName <> ""
   k = k + "='" & myPath & "[" & myName & "]Лист1'!$B$1"
   ...

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

[sslimer]

А у меня такой вопрос. У меня тоже задача получать данные из другого файла. Но у меня ситуация такая:
Таблица, в которой в 2х столбцах вносятся дата и номер соответственно.
Нужно сделать так, что бы данные из этих столбцов попадали в отдельный файл, но уже отформатированные и отсортированные по дате.
Что бы понятней было:
01.01.2006 №1
-----------------
-----------------
-----------------
-----------------
02.01.2006 №4
-----------------
-----------------
03.01.2006 №11
и т.д.
Помогите пожалуйста
Кстати, числа указаные в таблице не имеют формата "дата/числа/денежные и т.д."