Господа, подскажите ламеру. Суть проблемы:
Я при помощи FileSearh нахожу необходиме мне файлы типа xls. в папке "Книги".  Далее из каждого это файла необходимо взять данные с ячйки А1 и занести в ту таблицу, с которой запускается макрос (в ячейки а1, а2, а3 и тп по порядку) . Как это сотворить?

Set fs = Application.FileSearch
With fs
    .LookIn = "E:\Книги"
    .Filename = "*.xls"
    If .Execute > 0 Then
          For i = 1 To .FoundFiles.Count
              Range("a" & i) = ?????????????????    
          Next  i
     End If
End With

Или как эти найденные адреса можно использовать в формулах?

Необходимо в цикле открытькаждый из файлов и получить данные из открытой книги.

Да так у меня и было. Только это не очень удобно, так как файлов много и весь этот процесс занимает слишком много времени.  Как это сделать, не открывая файлы?

Как ты себе это представляешь?  

По аналогии.
Ты хочешь узнать, что написано на первой странице книги, не открывая эту самую книгу...
Такое возможно?       

Ну примерно если я в какой-либо ячейке напишу формулу типа "='E:\[Книга3.xls]Лист1'!$C$4", то в данной ячейке будут данные из книги3 из ячейки С4. То есть не открывая книгу3 я забил из неё данные в текущую книгу.

 

Все бы хорошо, только то КАК ты себе это представляеш, работает совсем НЕ ТАК.
Нужный файл открывается в любом случае. Просто это делает сам Эксель прозрачно для пользователя.

Вполне может быть. Тогда возникает вопрос, как сделать так, чтобы Эксель открывал файлы "прозрачно" для меня, а не просто Workbooks.Open.

Workbooks.Open - это и есть прозрачно для Пользователя.
Не прозрачно это только для программиста.

Йекс

Я опробовал два варианта и сравнил их быстродействие. Вот что получилось (тестировал на специально созданных для этой цели 1000 Excel файлов, ячейка A1 которых содержит имя файла):

1 вариант
Этот вариант уже озвучен: Workbooks.Open ... Close.

Примечание:

• Здесь для отбора файлов использован объект FileSystemObject (а не FileSearch)
• Данные заносятся в первый стобец листа (а не в строку), т.к. обрабатывается 1000 файлов (>256)

2 вариант

Здесь для доступа к данным используется ADO

Примечание:

• По умолчанию и для Jet OLEDB Provider (Jet) и для OLEDB Provider for ODBC Drivers (ODBC)
  подразумевается, что первая строка Excel’евских данных содержит заголовки столбцов (полей) (для Jet этому соответствует параметр HDR=Yes; для ODBC параметр FirstRowHasNames=1). По условию данные надо извлечь из первой строки листа (ячейка A1). Для ODBC установка параметра FirstRowHasNames в 0 (False) из-за бага ничего не дает, поэтому использован Jet провайдер с параметром HDR=No.
• Вставка данных в ячейки листа осуществляется с помощью метода CopyFromRecordset, и соответственно обращение к листу происходит на каждом шаге цикла. Попытка использовать метод GetRows объекта Recordset (т.е. добавлять данные из Recordset в массив, а затем разом вставить содержимое массива в лист Excel, например, так:
  

  Код

  Range(Cells(1, 1), Cells(v_FileCount, 1)) = v_TmpArray()

  
  на удивление сколь нибудь заметного выигрыша в производительности не дала, поэтому этот вариант не привожу.
• Использование раннего связывания (речь идет об объектах FileSystemObject, Connection и Recordset) также не приводит к ощутимому ускорению процесса.
• Подразумевалось, что имя листа в книгах, откуда берутся данные – "Лист1".

Если за 100% принять среднее время работы s_Test_1, то для s_Test_2 это время составило около 5,6% (т.е. второй вариант отрабатывает примерно в 20 раз быстрее).


Это сообщение отредактировал(а) Aloha - 28.11.2006, 01:31

Aloha, вами проделана значительная работа. 
Предлагаю вам поместить это в ФАК.

Aloha

Просто преогромнейшее спасибо. Чесно говоря, я совершенно не понял, как это в Вашем втором методе всё происходит, но работает это действительно превосходно. Методом научного тыка до меня дошло, как копировать не только ячейку а1, но и сразу с десяток необходимых мне ячеек  (расположенных на разных листах и в разных частях документа). По скорости действительно не сравнить с тем, что у меня было...