Сбор даных с разных книг в одну

[Pao]

Здравствуйте! Есть такая необходимость каждый день вносить данные из таблиц экспорта отчетов в одну сводную как можно автоматизировать этот процес чтоб не вводить эти данные вручную, причем в таблице отчета строка итого плавующая зависит от количества платежей а столбцы всегда одни и тежи. Осмотрел похожие темы но не че сам сообразить не смог, помогите кто чем может.

[Hugo121]

Запускать через Alt+F8 на активном листе ДействительныеПлатежиНаличными_3_20 100614.xls (т.е. в той книге, которую подтягиваем в сводную), сам код в книге Сводная таблица.xls:

Sub export()
dt = Format([General_TODATE], "dd") 'определяем дату отчёта
zaccol = dt * 2 'определяем колонку для записи "Зачислено" 
iLastRow = Cells(Rows.Count, 2).End(xlUp).Row 'определяем последнюю строку
terminal = Cells(iLastRow - 1, 5) 'определяем терминал
zac = Cells(iLastRow, 13) 'определяем "Зачислено"
com = Cells(iLastRow, 12) 'определяем "Комиссия"

ThisWorkbook.Sheets(1).Cells(terminal + 4, zaccol).Value = zac 'заносим "Зачислено"
ThisWorkbook.Sheets(1).Cells(terminal + 5, zaccol + 1).Value = com 'заносим "Комиссия"

End Sub

Код привязан к положению терминалов, дат, "Комиссия" и "Зачислено" и ниже "Итого" ничего быть не должно в этом столбце.
Если есть желание подтягивать сразу из всех файлов папки или из выбранных в диалоге, можно обвязать перебором файлов папки или в начале кода добавить диалог выбора файлов для анализа.

[Pao]

Пишет ошибку и желтым выделяет dt = Format([General_TODATE], "dd") 'определяем дату отчёта
я так понял не может определить дату отчета.

[Hugo121]

Код запускаете на файле ДействительныеПлатежиНаличными_3_20 100614.xls ?

[Pao]

если запускаю из сводной таблицы то да эта ошибка а если делаю как во втором посте написано то не чего не происходит. Или может я что-то не правильно делаю?

[Pao]

Все зароботало огромное спасибо!!!
Вот еще вопос как понять обвязать перебором?

Сообщение от Hugo121

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

[Hugo121]

Обвязать перебором (может и нет в программировании такого сленга ) - это я думал "вставить этот код внутрь перебора всех файлов папки", погуглите по Dir()
Пример, где это используется:

Sub Spalik()
Const fldr = "C:\temp\"         ' Путь к папке с файлами
Dim strFile As String, wb As Workbook, ws As Worksheet, wsSum As Worksheet
 
Application.ScreenUpdating = False  'нет мелькания на экране
Set wsSum = ActiveSheet
strFile = Dir(fldr & "*.xls")
Do While strFile <> ""          'Цикл по файлам
    Set wb = Workbooks.Open(fldr & strFile, ReadOnly:=True)
    For Each ws In wb.Worksheets    'цикл по рабочим листам файла
        ws.UsedRange.Copy
        wsSum.Range(ws.UsedRange.Address).PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd, False, False
    Next
    wb.Close False
    strFile = Dir
Loop
Application.ScreenUpdating = True
End Sub

[Pao]

Ну с этим я думаю уже сам смогу разобраться.
Сегодня начал выдовать ошибку
Run-time error 13 Type mismatch
и желтым выделяет ThisWorkbook.Sheets(1).Cells(termin al + 4, zaccol).Value = zac 'заносим "Зачислено"
Я так понял что идет не совпадение формата ячеек и он не может записать данные в ячейку или тут в чемто другом загвозда?

[Hugo121]

Наверное не число terminal или zaccol.
zaccol = dt * 2 - значит может dt не определилось.
terminal = Cells(iLastRow - 1, 5) - что в этой ячейке?

[Pao]

dt - число определилось правильно,
zaccol - колонку определил правильно соответствующюю числу,
terminal = Cells(iLastRow - 1, 5) - название терминала тоже нормально
Названия терминалов в сводной таблице и в экспорте совпадают.