Помогите собрать таблицу из нескольких файлов

[repka]

Спасибо. В 2003 офисе заработала, а в 2007 похоже с настройками что-то. Будем ковыряться.
Еще такое предложение. Возможно если пошкафная спецификация будет располагаться в одном файле xls в столбик (см. файл) это упростит задачу. Простите за надоедливость, но уж очень надо.

[SAS888]

Во-первых, макрос обрабатывает файлы с расширением ".csv". В Вашем вложении ".xls" файл. Макрос просто его не берет к обработке. Давайте определимся, т.к. csv и xls файлы нужно обрабатывать по-разному.
Во-вторых, как я понимаю, в момент, когда выдается ошибка, этот файл просто является текущим (первым) в указанной папке (при условии, что в коде макроса Вы поменяли расширение для поиска файлов). Поэтому, ошибка никак с ним не связана.
В-третьих, указанная Вами в посте № 8 строка не может выдавать ошибку. Для теста, попробуйте выполнить макрос:

With ThisWorkbook.Sheets(1)
        a = .Range(.[A1], .Cells(Rows.Count, "C").End(xlUp)).Value
        MsgBox .Range(.[A1], .Cells(Rows.Count, "C").End(xlUp)).Address
    End With

[SAS888]

Если будем обрабатывать xls-файлы, то макрос будет другой.
Приложите исходные файлы - сделаем.

[repka]

Еще раз простите за надоедливость. Определяемся. Создаем итоговую спецификацию из файла xls (прикрепленного), т.к. в csv возникают проблеммы с разделенным запятыми.

[SAS888]

1. У Вас есть повторяющиеся значения в пределах одного файла. Сделать одно наименование и просуммировать так же как если бы эти значения были в разных файлах?
2. Строки, в которых отсутствует значение в столбце "B" (количество) пропускать? Т.е. не обрабатывать строки с заголовками и строки без количества?

[repka]

1. Да. Повторяющиеся значения необходимо проскммировать.
2. Строки, в которых отсутствует значение в столбце "B" (количество) не обрабатывать
Сасибо за участие

[SAS888]

Теперь все ясно. Но сегодня не сделаю.