много csv в один xls и обработка

[Dexter_M]

Доброго времени суток.
Столкнулся с такой проблемой: у меня есть данные, которые находятся в 140 файлах .csv которые надо переписать в один файл .xls. данные везде однотипные и структура файлов одна и та же: шапка под ней данные. После объединения в один файл необходимо посчитать сумму за месяцам (даны суточные данные потребления).
Поюзал поиск, не нашел вроде ничего подобного, если проморгал, то прошу прощения.
Стоит MS office 2007.
Был бы рад помощи.

[Hugo121]

Вероятно так может получиться, если на каждый месяц свой файл - скриптом vbs ну или макросом работаем с файлами как с текстом (т.е.csv).
Будем собирать сразу суммы.
1 считаем количество файлов

msgbox CreateObject("Scripting.FileSystemObject").GetFolder("C:\Temp\csv\").Files.count

2 создаём массив на 3 колонки, высотой по количеству файлов (или если пропустить п.1, то на 1000, но лучше не пропускать)
3

For Each AFile In CreateObject("Scripting.FileSystemObject").GetFolder("C:\Temp\csv\").Files

читаем и считаем, результат сразу кладём в массив.
4 выгружаем массив.

Такой вариант подходит?

[EducatedFool]

Поюзал поиск, не нашел вроде ничего подобного

Плохо искали...
http://excelvba.ru/code/DATfolder2Array

[EducatedFool]

А вот вам тот же макрос, только заточенный под ваши файлы:



Суммы подсчитаете на отдельном листе, при помощи простейшей сводной таблицы или формул.

[Hugo121]

Не дождался ответа на вопрос, ну да ладно, сделал такой вариант.
Рассчитано, что имеем каждый csv на свой месяц.

'Sub tt()

   ' FSO Constants
   Const ForReading = 1
   Const TristateUseDefault = -2
   Const PathToFolder = "C:\tmp\csv\"

' Instantiate the object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set obj = objFSO.GetFolder(PathToFolder).Files

ReDim outarr(obj.Count, 2)

outarr(0, 0) = "Дата"
outarr(0, 1) = "Генерация, МВт*ч"
outarr(0, 2) = "Потребление, МВт*ч"

For Each AFile In obj
    ' open the text file read only
    Set objTS = objFSO.OpenTextFile(AFile, ForReading, False, TristateUseDefault)
       arr = Split(objTS.ReadAll(), Chr(10))
       objTS.Close
    Set objTS = Nothing
    
    ii = ii + 1
    outarr(ii, 0) = Mid(Split(arr(1), ";")(0), 4)
        For i = 1 To UBound(arr)
            If Len(arr(i)) Then
            outarr(ii, 1) = outarr(ii, 1) + --Split(arr(i), ";")(1)
            outarr(ii, 2) = outarr(ii, 2) + --Split(arr(i), ";")(2)
            End If
        Next
Next

Set objExcel = CreateObject("Excel.Application"):  objExcel.Workbooks.Add
objExcel.Cells(1, 1).Resize(UBound(outarr) + 1, 3) = outarr
objExcel.Range("A:C").EntireColumn.AutoFit
objExcel.Visible = True
  
Set objExcel = Nothing
Set obj = Nothing
Set objFSO = Nothing

'End Sub

Этот текст сохранить как *.vbs и запустить.
Можно использовать и как макрос, если раскомментировать первую и последнюю строки, ну и тогда ещё можно объявить переменные.
Возможно, перед выгрузкой можно задать текстовый формат первому столбцу, чтобы месяц выгружался вида 01-2000, а не янв.00 - как сейчас у меня происходит на автомате.

[Dexter_M]

Уважаемые EducatedFool и Hugo121, спасибо огромное! без вас наверно помер бы...
Еще раз извиняюсь за создание лишней темы...

[Dexter_M]

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

А вот вам тот же макрос, только заточенный под ваши файлы:

В Вашем примере начиная с 1151 строки изменился формат даты.
После применения его к моим файлам получилось, что до 12 числа каждого месяца формат выглядит, как ММ.ДД.ГГГГ, а с 13 до конца месяца ДД-ММ-ГГГГ.

Покопался, нотак и не понял, с чем это связано...

P.S.: Приношу извинения за назойливость и необразованность в данном вопросе.

[Hugo121]

Свазано с тем, что в году 12 месяцев
Т.е. неправильно дата определяется.
Можно подлечить так:

.Columns(1).NumberFormat = "@"

    With sh
        .UsedRange.ClearContents
        ColumnsNamesCount = UBound(ColumnsNames) - LBound(ColumnsNames) + 1
        .Range("a1").Resize(, ColumnsNamesCount).Value = ColumnsNames
        .Range("a1").Resize(, ColumnsNamesCount).Interior.ColorIndex = 15
        .Columns(1).NumberFormat = "@"
        .Range("a2").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
        '.UsedRange.EntireColumn.AutoFit
    End With

[Dexter_M]

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

Свазано с тем, что в году 12 месяцев
Т.е. неправильно дата определяется.
Можно подлечить так:

.Columns(1).NumberFormat = "@"

Еще раз огромное спасибо, теперь все отлично работает!

[Hugo121]

Ну а мой скрипт как? Пригодился? Результаты сошлись?