CSVファイルの集計

質問

VB初心者の為、簡単なことかもしれませんが教えて下さい。
複数あるCSVファイルの内容を集計したいと思っています。
いずれのファイルにもコードと数量が含まれているのですが、集計したいのはそのコード毎の数量計です。
EXCELやACCESS等を使えば簡単だと思うのですが、そういった他アプリやDBなどを使わずにVBとCSVファイルのみで処理したいと考えています。
できれば処理時間も短いようなやり方があれば教えて下さい。

回答No.1

Kuppycat · ベストアンサー

VB6.0と仮定したサンプル。
------------------------------
Dim con As String
Dim sql As String
Dim rs As Object

con = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\temp;Extended Properties=""text;HDR=No;FMT=Delimited;"";"
sql = "Select F1, sum(F2) from csvtest.csv group by F1"
Set rs = CreateObject("ADODB.Recordset")
rs.Open strSQL, con, 0 '0=adOpenForwardOnly
Do Until rs.EOF
MsgBox rs(0) & ":" & rs(1)
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
------------------------------
Data Source にCSVが置いてあるフォルダ名、テーブル名にCSVの名前を指定してください。
CSVは１行目からデータが入っているものとしてます。

お礼

教えていただいたコードでサンプルを作ってみたのですが、うまくいきそうです。
あとはこれを応用して作りこんでいきたいと思っています。
ありがとうございました。