ACCESSのファイルを一本化したい！

質問

各支店でアンケート集計をしてもらい、入力データが.mdb or .accdbで送られてきます。
それを VBAで”1ファイル”にまとめたいのですが、お知恵をお貸しください。

送られてくる元ファイルの構造は1ファイル1テーブル（table名 table_01)、テーブルの構造は統一されてます。
アンケート日ごとにファイルをフォルダーにまとめてあります。
ex.
C:\Users\AD\20111101\001.mdb
C:\Users\AD\20111101\002.mdb
・
　　　　・
C:\Users\AD\20111102\001.mdb
C:\Users\AD\20111102\002.mdb
・
　　　　・

各フォルダー内ごとに、まとめたファイルを作成したいのです。
（毎日 100fileほどたまります。どうしても自動化したくて・・・）
よろしくお願いします。

回答No.1

Cor_moriyan · ベストアンサー

ツール内にテーブル table_01 を準備しておきます。

1) フォルダ内の全てのファイルにアクセスする。
2) mdb(accdb)ファイルのとき、以下の処理を行う。
2.1) アクセスしたファイルの table_01 をリンクテーブルでリンク。テーブル名は変える。
2.2) リンクしたテーブルのデータを追加クエリで table_01 へ INSERT する。
2.3) リンクを外す。
3) 上記を繰り返す。

です。
リンク⇒INSERT⇒リンク外す　はわかると思うので（Accessの基本機能だし）
ヒントとして、フォルダ内の全ファイルにアクセスする方法を。

「参照設定」で“Microsoft Scripting Runtime”にチェックを入れてから、以下を入力＆実行して下さい。
Sub ex()
　　Dim objFSO　As New FileSystemObject
　　Dim objFLD　As Folder
　　Dim objFIL　As File

　　Set objFLD = objFSO.GetFolder("C:\")

　　For Each objFIL In objFLD.Files
　　　　Debug.Print objFIL.Name, objFIL.Path
　　Next
End Sub

お礼

ありがとうございます。
フォルダ内のすべてのファイルのPath, Nameの取り方勉強になりました。
取り組んでみます。
またフォローしていただけると助かります。

回答No.2

imogasi

（１）こういうのは、同一ファイルで別テーブルになっておれば、ユニオンクエリというのを使うのだと思う。
http://www.sk-access.com/Syo_Query/SqA013_Union.html
しかしアクセスとしては中級以上の課題だと思うし、多数のテーブルがあれば、ＶＢＡでＳＱＬ文を加工して、繰り返し実行しないとならない。
Select * From Test01 UNION ALL Select * From test02;
のようなＳＱＬです。
２，３テーブルであれば
Sub test01()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Set db = CurrentDb
strSQL = "Select * From Test01"
strSQL = strSQL & " UNION ALL"
strSQL = strSQL & " Select * From test02;"
MsgBox strSQL
Set qdf = db.CreateQueryDef("q2Test01", strSQL)
DoCmd.OpenQuery qdf.name
End Sub
（２しかし本件は、別テーブルでなくて、別ファイル(.mdb）になっている.
（３）レコードを扱うＡＤＯなどなら１００個を開いて読んで、１つずつの全レコードを集約テーブルに書き出せば良いが、回りくどいように思う。
質問者は相当勉強しないと難しい内容と予想。

お礼

そうですよねぇ、私には荷が重いかもしれません。
当面、手動でコピーしていきますが、将来的には自動化したい。
またその期会にはアドバイスください。
ありがとうございます。