' перебираем все найденные в папке файлы  
    For Each Filename In coll  
  
        ' обновляем информацию на прогресс-баре  
        pi.SubAction "Обрабатывается файл $index из $count", "Файл: " & Dir(Filename), "$time"  
        pi.Log "Файл: " & Dir(Filename)  
  
        ' открываем очередной файл в режиме «только чтение»  
        Set WB = Nothing: Set WB = Workbooks.Open(Filename, False, True)  
  
        If WB Is Nothing Then    ' не удалось открыть файл  
            pi.Log vbTab & "ОШИБКА при загрузке файла. Файл не обработан."  
  
        Else    ' файл успешно открыт  
            Set sh = WB.Worksheets(1)    ' будем брать данные с первого листа  
            ' берем ячейку  B2   
            Set ra = Range("B2")  
  
            ' ==== переносим данные в наш файл (shd - кодовое имя листа, куда помещаем данные)  
            shd.Range("a" & shd.Rows.Count).End(xlUp).Offset(1).Resize(ra.Rows.Count, ra.Columns.Count).Value = ra.Value  
            ' ==== конец обработки данных из очередного файла  
  
            WB.Close False: DoEvents    ' закрываем обработанный файл без сохранения изменений  
            pi.Log vbTab & "Файл успешно обработан."  
  
        End If  
    Next  
  
    ' закрываем прогресс-бар, включаем обновление экрана  
    pi.Hide: DoEvents: Application.ScreenUpdating = True  
    MsgBox "Обработка заявок завершена", vbInformation  
End Sub  
  
Sub ClearTable()  
    On Error Resume Next: shd.UsedRange.Offset(2).ClearContents  
End Sub