Взять значение ячейки не открывая файл и

[kzld]

Имеется куча файлов одинаковых по структуре, лежащих в одной директории.
Хочу следующее:
В новый файл собрать данные из этих файлов
Первая строка в новом файле:
А1(название файла-1)--B1(значение ячейки C5 файла-1)--C1(значение ячейки D8 файла-1)
Вторая строка в новом файле:
А1(название файла-2)--B1(значение ячейки C5 файла-2)--C1(значение ячейки D8 файла-2)
и т.д
Подскажите начало макроса, дальше попробую сам разобраться

[андей]

в качестве примера с планеты эксель

[kzld]

Сообщение от андей

в качестве примера с планеты эксель

Спасибо за ответ.
Подскажите как им пользоваться.

Нажмаю пункт "ВЫБРАТЬ ПАПКУ" - сделано. выбрал.
Нажмаю пункт "СОБРАТЬ ДАННЫЕ" - выскакивает ошибка
Runtime error "445"

Как указать в приведённом Вами шаблоне какие ячейки мне нужны и как указать куда ставить значения?

[андей]

заполнить нужно все закрашенные ячейки

[SAS888]

Первая строка в новом файле:
А1(название файла-1)--B1(значение ячейки C5 файла-1)--C1(значение ячейки D8 файла-1)
Вторая строка...

А имя листа??? Если во всех файлах в выбранной папке имена листов известны (именно имена, а не номера), то все делается существенно проще.

[kzld]

Сообщение от андей

заполнить нужно все закрашенные ячейки

Заполнял как цифровыми значениями листа, так и наименованиями листов
Не получается

Спотыкается на строке макроса
Set fs = Application.FileSearch

[kzld]

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

А имя листа??? Если во всех файлах в выбранной папке имена листов известны (именно имена, а не номера), то все делается существенно проще.

Да, имена известны и все имена листов одинаковые

[SAS888]

Спотыкается на строке макроса
Set fs = Application.FileSearch

У Вас, наверное, Excel 2007, в котором метод FileSearch отключен разработчиками Microsoft. Воспользуйтесь поиском требуемых файлов с помощью цикла Do... While... Loop.
Предлагаю такой вариант:
Пусть все xls-файлы, из которых требуется получить данные находятся в одной папке. И пусть во всех этих файлах имя листа, из которого требуется получить данные это "Лист1". для этого достаточно выполнить макрос:

Sub Main()
    Dim myPath As String, myName As String, i As Integer
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Укажите рабочую папку": .Show
        If .SelectedItems.Count = 0 Then Exit Sub
        myPath = .SelectedItems(1) & "\"
    End With
    Application.ScreenUpdating = False: myName = Dir(myPath & "*.xls"): i = 1: Cells.ClearContents
    Do While myName <> ""
        Cells(i, 2).Formula = "='" & myPath & "[" & myName & "]Лист1'!$C$5"
        Cells(i, 3).Formula = "='" & myPath & "[" & myName & "]Лист1'!$D$8"
        Cells(i, 1) = myName: i = i + 1: myName = Dir
    Loop: [A:C].Value = [A:C].Value
End Sub

[kzld]

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

У Вас, наверное, Excel 2007, в котором метод FileSearch отключен разработчиками Microsoft. Воспользуйтесь поиском требуемых файлов с помощью цикла Do... While... Loop.

Да , установлен 2007.
Спасибо, буду пробовать

[kzld]

Спасибо, работает.
Только вот в конце работы выдаёт ошибку
Runtime error `1004`
Application-defined or object-defined error