エクセルデータをアクセスに自動的に取り込める？

質問

現在研究で、エクセルファイル２００個ほどをアクセスにインポートしたいと考えております。
エクセルファイルは研究用のデータなので同じ形式のテーブルで入っている状態です。
フィールドなどが統一されています。
キーはファイル名となっており、それぞれのエクセルファイル名がIDとなっています。

このファイル２００個程度をマクロなどを使い自動的にアクセスへ取り込みたいのですが参考書を読んでも方法がわかりません。よろしければ教えてください。宜しくお願いいたします。

回答No.3

imogasi · ベストアンサー

＃２です。
＃２で（３）の（Ｃ）で言ったコード例は
Sub test01()
filename = Dir("*.xls", vbNormal)
Do While filename <> ""
MsgBox filename
filename = Dir()
Loop
End Sub
参考は
http://homepage2.nifty.com/kasayan/vba/dir.htm
ほか、「dir() VBA　」でWEB照会してください。バリエーションの対処方法がたくさん出ます。

お礼

imogasi様ご丁寧にありがとうございます。
参考に勉強させていただきます！！

回答No.2

imogasi

勉強課題は３つあると思います。
アクセスにはＶＢＡと違う「マクロ」というものがありますが、本件は、マクロでなく、アクセスＶＢＡが必要でしょう。
２００回の手作業で同じ作業を繰り返すなら、話は別ですが。
（１）エクセルー＞アクセスインポートのコード
（２）インポートしたアクセス側で２００のファイル（テーブル）を
１つのテーブルにまとめるコード
（３）２００のエクセルファイル(ブック）を、連続で次々にコードで指定し、（１）のエクセルファイル名を順次変えて、（１）のコードを繰り返す方法。
（１）を１つのエクセルファイルにインポートするのは、細かいことは抜きにして,1行で終わりです。（私の環境で確認済み）
Sub test11()
DoCmd.TransferSpreadsheet acImport, 8, "BookA", "C:\Documents and Settings\XXXX\My Documents\BookA.xls", True, ""
End Sub
（２）は１つインポートしたごとに本体のアクセスのテーブル（上記例でＢｏｏｋＡ）にマージするか、２００個一旦テーブルを作って
、一気にマージするかの２つの方法が考えられますが、ベターは前者かなと思います。
（３）は（Ａ）エクセルファイル名を２００個を、表で持つ
（Ｂ）名前に規則性かある（Ｂｏｏｋｎｎｎのｎｎｎが連番とか）
（Ｃ）同じフォルダーにインポート対象のエクセルファイルをだけを集める
などの方法が考えられると思う。（ｃ）が良いかとおもう。
プログラム構成として
ーーー
（３）（Ｃ）が一番外側での繰り返し
（１）のブック名を変えてインポート（の繰り返し）
（２）のインポートしたアクセステーブルを本体に融合（の繰り返し）
まあしかし、アクセスの中級以上の問題でしょうね。
＞参考書を読んでも
（１）は載ってます。（３）の（Ｃ）はＷＥＢにも似たような例があります。（２）はずばりは、ないかも知れない。（３）は探してみます。

お礼

大変親切かつ早急な書き込みありがとうございます。なるほど、自分がもっていなかった視点でしたので大変参考になります。学生ばかりかまわりにアクセスを使える人が意外にいなく困っていました。
早速やってみようと思います♪
ありがとうございます。

回答No.1

violet430

ACCESSマクロは組めますか？
マクロを勉強してみて下さい。
マクロで処理可能です。

お礼

ご返信ありがとうございます。MYSQLなどは使えるのですが、マクロは全くの初心者です。もっと勉強してみたいと思います。