как проверить сущестуют ли файлы xls с известными именами в папке и произвести изменения в них?

[EducatedFool]

Замените свой файл ОТЧЁТ этим файлом:



Отчёт сделал немного не в том виде, как вы просили, но так будет удобнее обрабатывать данные.
При желании можно переделать, чтобы для каждой даты создавался отдельный лист.

Sub ЗаполнениеОтчёта()
    Dim coll As Collection, ПутьКПапке As String
    ПутьКПапке = ThisWorkbook.Path & "\Детализация\"

    ' считываем в колекцию coll нужные имена файлов
    Set coll = FilenamesCollection(ПутьКПапке, ".xls", 3)

    Application.ScreenUpdating = False    ' отключаем обновление экрана

    Dim wb As Workbook, sh As Worksheet, ra As Range, cell As Range

    ' выводим результаты на лист
     On Error Resume Next
    For i = 1 To coll.Count    ' перебираем все элементы коллекции, содержащей пути к файлам

        Application.StatusBar = "Обрабатывается файл " & Dir(coll(i))
        Set wb = Workbooks.Open(coll(i))    ' открываем очередной файл
        Set sh = wb.Worksheets(1)    ' берем первый лист
        ' 5 ячеек справа от слова ИТОГО
        Set ra = sh.Range("a:a").Find("итого", , xlValues, xlPart).Next.Resize(, 5)

        ' очередная строка для вставки (первая её ячейка)
        Set cell = shd.Range("a" & shd.Rows.Count).End(xlUp).Offset(1)

        cell = sh.Cells(1)    ' в первую ячейку новой строки  - дата из первой ячейки листа
        cell.Next = sh.Range("a2")    ' фамилия
        cell.Next.Next.Resize(, 5).Value = ra.Value   ' суммы

        DoEvents    ' временно передаём управление ОС
        wb.Close False    ' закрываем файл без сохранение изменений
    Next
    shd.Range("a:g").EntireColumn.AutoFit    ' автоподбор ширины столбцов

    Application.StatusBar = False
End Sub

[EducatedFool]

Сделал вам и то, что вы просили (отчёт за каждый день - на новом листе)

Поместите этот файл в ту же папку, где и ваш файл ОТЧЁТ:
http://excelvba.ru/XL_Files/Sample__...__19-22-26.zip

(лист ШАБЛОН не удаляйте. А изменять этот лист можно)

[R Dmitry]

изменять данные в файлах можно даже не открывая , но конечно есть свои тонкости , маленький пример с подписями столбцов
подписи столбцов F1,F2,F3

ADO должна быть подключена в references, работает быстрее чем открыть файл, вставить и закрыть

Sub Add_Value_Close_file()
Dim Fl$, strSqlADD$
Fl = "D:\BD.xls"
Dim cn As ADODB.Connection
Dim sCon As String
Set cn = New ADODB.Connection
sCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fl _
& ";Extended Properties=""Excel 12.0;HDR=Yes"";"
cn.Open sCon
If Not cn.State = 1 Then Exit Sub
 strSqlADD = "INSERT INTO [Лист1$A1:C65535] (F1,F2,F3) SELECT 10,20,30"
    'For i = 1 To 5
    cn.Execute strSqlADD
    'Next
cn.Close
Set cn = Nothing
End Sub

[united11]

Спасибо огромнейшее!!!
Посоветуйте на последок, пожалуйста, книжки какие глянуть, чтобы лучше разобраться в VBA самой?