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

Просьба помочь с решением задачи:  
ежедневно формируются файлы 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".  
Спасибо.