Спасибо огромное, вроде бы работает. Буду изучать код дальше.

Да в том то и дело, что всеравно ошибку выдает на функцию If countif

Извините еще раз непонятка у меня: строка    
If countif(rngWithDate , dDate)=0 then  
выдает ошибку  
я dDate поменял на dDay (это наверное правильно)

Игорь, спасибо большое, все прекрасно работает. Остался один только вопрос. Где нужно подкорректировать код, чтобы при наличие существующей Даты в строке книги "Отчет" он не прописывал бы ее снова. Т. е. при первом запуске макроса он собирает данные корректно, но при последующем запуске он снова прописывает новые строки с уже существующими данными (та же Дата дублируется).  
Типа (if Day exist then next).

Суточные файлы находятся по пути (к примеру): D:\Temp, отчет в D:\Data.  
Формат суточного файла <имя_ггммдд_ччмм>. Время может иногда меняться (задержки при формировании рапорта).    
Данные в примере рапорта вставлены второпях (поэтому нестыковка даты).  
Данные планируются за 15 мин (96 строк).  
1. можно первую строку,  
2. Нужно чтобы макрос был в автозапуске при открытии файла отчета (Sub Auto_Open()) и автоматически собрал данные с файлов, которые существуют на текущий день.    
Для других файлов отчета планирую использовать Application.Run "'Отчет.xls'!Auto_Open" (берут данные из "Отчет")  
3. На основании пп 2. необходим имено макрос для расчета суммы.

Извините за задержку. Вот пример с использованием формул (частично заполнены). В реальной ситуации около 20 столбцов и 96 строк.

Помогите плз решить проблему:  
есть 30 (31) книга (отчет за каждый день), в столбцах (10 столбцов) значения (эл.энергия часовая) по цехам (24 строки).  
Необходимо в книге "Отчет" в ячейку "А1" ввести сумму 5-го столбца 1-й книги, "А2"=СУМ 5-го столбца 2-й книги, "А3"=СУМ 6-го столбца 3-й книги, и т.д. В "В1"=СУМ 6-го столбца 1-й книги, "В2"=СУМ 6-го столбца 2-й книги... Всего 10 столбцов. Как этот вопрос решить макросом, результат не формула, а значение (В дальнейшем необходимо эти данные обрабатывать в других файлах).

И еще два вопроса у меня:  
1. что необходимо добавить в данный макрос, чтобы вставлять в книгу анализа результат суммы столбцов из книг с данными.  
2. возможно ли упростить код (чтобы не прописывать последовательные операции по копированию данных из каждой книги). Задача ведь стоит копировать данные с каждого файла ("GPP_110601_0700" на лист "1"; "GPP_110602_0700" на лист "2"; "GPP_110603_0700" на лист "3"; и т.д.

Вот она где зарыта!  
Спасибо всем большое!

Это я видел, но хотелось бы автоматически без выбора файлов. Где то я видел смысл: если нет такого, то ...

Просьба помочь с решением задачи:  
ежедневно формируются файлы EXCEL с данными на листе "Data" в папке "D:\DATA". Имя файлов имеет формат: "GPP_110606_0700" (имя_гг.мм.дд_чч.мм).  
Задача: автоматически копировать листы "Data" в книгу Analiz_1106.xls в соответствующие листы (1,2,3.. ).  
В макросах не силен, но нашел подходящий:  
 
Sub Update()  
Dim oPATH  As String, oFile As String, oList As String  
Dim dt  
oPATH = "D:\DATA\"  
oFile = "GPP_110606_0700.xls"    открытие 1-го файла  
oList = "Data"  
 Application.ScreenUpdating = False  
 Set sh = GetObject(oPATH & oFile).Sheets(oList)  
 sh.Range("A1:P27").Copy ThisWorkbook.Worksheets("1").Range("A1")  
sh.Parent.Close (False)  
 Application.ScreenUpdating = True  
 oFile = "GPP_110607_0700.xls"   открытие 2-го файла        
oList = "Data"  
 Application.ScreenUpdating = False  
 Set sh = GetObject(oPATH & oFile).Sheets(oList)  
 sh.Range("A1:P27").Copy ThisWorkbook.Worksheets("2").Range("A1")  
sh.Parent.Close (False)  
 Application.ScreenUpdating = True  
 End Sub  
 
я так думаю, что можно и дальше так прописать для целого месяца (всего получится 31 лист). Но проблема в том, как быть с ошибками когда файл еще не будет создан, а макрос будет его запрашивать?

да, спасибо

Добрый день!  
Не подскажите есть ли такая функция в Excel?  
Например у меня есть 20 файлов Excel,  
мне нужно быстро найти в каком файле    
находится текст: "Отчет №3".  
Спасибо.