VBAで複数のCSVからレコードセットを作りたい

Question

D:\DATA\ORDER\SOURCE.CSVに売上のデータがあり、
D:\DATA\STOCK\SOURCE.CSVに在庫のデータがあります。
売上には
注文NO,売上日,売上額,在庫NO
在庫には
在庫NO,仕入日,仕入額
とあるとして
在庫.在庫NO,利益,滞留日数,売上.注文NOというような、2つのCSVを結合した結果をADOでレコードセットに格納したい場合どのようなソースになるのでしょうか？
一つのCSVからレコードセットに結果を格納するやりかたならネットに多々掲載されてますが、複数のCSVについてのやり方の掲載が探せなかったので質問します。

KenKen_SP · Accepted Answer

> 既存のものとのからみで、別々の場所にしなければならないのです。

提案します。

現在の CSV の位置を動かせないなら、別途 Tmp フォルダに CSV をコピー
して、そこをワークフォルダとしてみれば？

ファイルのコピー方法は、

　・FileCopy を使った方法（VBA 標準コマンド）
　　http://officetanaka.net/excel/vba/statement/FileCopy.htm
　・CopyFile を使った方法（FileSystemObject）
　　http://officetanaka.net/excel/vba/filesystemobject/filesystemobject.htm#CopyFile

などがあります。作業が終わったら、

　・Kill ステートメント（VBA 標準コマンド）
　　http://officetanaka.net/excel/vba/statement/Kill.htm
　・DeleteFile メソッド（FileSystemObject）
　　http://officetanaka.net/excel/vba/filesystemobject/filesystemobject.htm#DeleteFile

などで削除することもできますよ。

KenKen_SP · Answer

詳しい方のようですね。ご参考までに。

> SQLを使った集計の方が早いかなと思い
うーん。。ソース次第でしょう。
> また、テーブルのレコード数が65535を超えるものもあります
それなら確かに SQL を使った方が楽ですね。

> D:\DATA\ORDER\SOURCE.CSVに売上のデータがあり、
> D:\DATA\STOCK\SOURCE.CSVに在庫のデータがあります。

1.　2つの CSV は同一フォルダに置いて下さい
　　複数のフォルダに分散させると面倒ですよ。多分。以下説明用に
　　　　
　　　　D:\DATA フォルダ
　　　　売上データを o.csv、
　　　　在庫データを s.csv
　　
　　とします。

2.　ADO 接続について
　　ADO 定数をイチイチ再定義するのは面倒なのでアーリーバインドで。
　　なるべく広い環境の PC で動作するように
　　
　　　　Microsoft ActiveX Data Objects 2.6 Library
　　
　　あたりの多少古いライブラリを参照しておくと良いと思います。
　　で、具体的なコード例ですが....

　　' // 変数の宣言等は省略
' // CSV フォルダパス
　　sCsvDir = "D:\DATA"
　　
　　' // CSV 接続文字列（HDR= ラベル有無）
　　sConnectionStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
　　　　　　　　　　 "Data Source=" & sCsvDir & ";" & _
　　　　　　　　　　 "Extended Properties=""Text;HDR=YES;FMT=Delimited"""

　　' // SQL 生成
　　sql = "次項目で説明"
　　
　　' // CSV に接続してレコードセットを取得
　　Set cn = CreateObject("ADODB.Connection")
　　cn.Open sConnectionStr
　　Set rs = CreateObject("ADODB.Recordset")
　　rs.Open sql, cn, adOpenForwardOnly, adLockReadOnly

　　' // ワークシートに展開
　　' // もちろん Rows.Count（Excel2003 までなら 65536）を越える
　　' // 場合は別途処理が必要
　　Range("A2").CopyFromRecordset rs

　　' // 後処理（略）


3.　SQL の書き方（一例)

　　テーブルの指定に該当する部分は [s#csv] のように書きます。

　　SELECT
　　　[s#csv].[在庫No], 
　　　DATEDIFF('d',[s#csv].[仕入日],[o#csv].[売上日]) AS [滞留日数],
　　　[o#csv].[売上額]-[s#csv].[仕入額]) AS [粗利益],
　　　[o#csv].[注文No]
　　FROM [s#csv] LEFT JOIN [o#csv] ON [s#csv].[在庫No] = [o#csv].[在庫No];

　　当然、売れないモノもあるでしょうから、[売上日] が Null の場合
　　なんかも考慮して SQL を書いて下さい。

では。

KenKen_SP · Answer

こんにちは。

> 2つのCSVを結合した結果をADOでレコードセットに格納したい場合
> どのようなソースになるのでしょうか？

2 つの CSV を 1 ブック上にシートを分けて展開すれば、あとは関数
VLOOKUP 等と作業列の使用で何とかなることだと思います。

ゆえに疑問に思うのですが、レコードセットを作成した後に何がしたい
のでしょうか？ 目的が書かれてません。

単にレコードセット作成の実験的コードを知りたいのか、実用に耐える
ものが知りたいのか、目的によって回答が変ってくると思います。

noname#140971 · Answer

Dim isOK　　　　　 As Boolean
　　Dim I　　　　　　　AS Integer
　　Dim N　　　　　　　AS Integer
　　Dim strUriages()　 As String
　　Dim strZaikos()　　As String
　　Dim strStockNumber As String
　　Dim strSQL　　　　 AS String

　　strUriages() = FileReadArray("D:\DATA\ORDER\SOURCE.CSV")
　　N = UBound(strUriages())
　　For I = 0 To N
　　　　strStockNumber = CutStr(strUriages(I), ",", 4)
　　　　strZaikos() = FileFindArray("D:\DATA\STOCK\SOURCE.CSV", "*" & strStockNumber & "*")
　　　　strSQL = "INSERT INTO ・・・・・" & _
　　　　 "・・・・・・"
　　　　isOK = CnnExecute(strSQL)
　　　　If Not isOK Then
　　 MsgBox "深刻なエラーが発生しましたので処理を中断します"
　　　　　　 Exit For
　　　　End If
　　Next I

FileReadArray()・・・CSV データを AAA,BBB,CCC を１レコードとする配列に呼び込む。
CutStr()・・・・・・・・・・CSV データからN番目を取り出す。
FileFindArray()・・・CSV データの第二引数にマッチする行を配列で返す。
CnnExecute・・・・・・・・SQL文を実行する。

こういう関数を用意すれば、こういう処理の流れで可能。
で、で、関数も含めての全容となるとかなりヘビーな回答になると思います。

***********************************
　ただし、その必要はないのでは？
***********************************

で、その必要はないと思いますよ。

10 INPUT A, B
20 C = A * B
30 PRINT C

コンピュータ処理は、単純化すればこの３行。

10 INPUT A * B TO C
20 PRINT C

で、質問者の構想はこのようです。
つまり、データの入力と処理とが渾然一体に。
これは、不必要で無駄な処理。

10 INPUT A, B
20 PRINT A * B

と、入力データの参照段階で色々と処理するのが基本だと思います。

VBAで複数のCSVからレコードセットを作りたい

> 既存のものとのからみで、別々の場所にしなければならないのです。

詳しい方のようですね。

この回答への補足

こんにちは。

この回答への補足

Dim isOK As Boolean

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

　　Dim isOK　　　　　 As Boolean