ACCESSで同一作業の繰返し

質問

フィールド1　　フィールド2　　　フィールド3
「日付」　　　　「売上」　　　　「売買個数」
19600401　　　　12,000　　　　　　120
19600425　　　　15,000　　　　　　150
19600503　　　　　9,000　　　　　　90
　　　　　　　　　　・
　　　　　　　　　　・
　　　　　　　　　　・

のようなテーブルがあります。my document内の「売上」というフォルダに月ごとに「199904」「199905」というタイトルをつけて、エクセルにエクスポートしたいと考えております。
ただ、データ数がかなり多く(100万件以上)、わざわざ月ごとにクエリを作ってエクスポートしていては、
時間がかかりすぎてしまいます。そこで、
VBなどを使って、より簡単にできる方法がないかと
模索しています。もし、ご存知の方がいらしたら、
回答お願い致します。

回答No.1

noname#60992 · ベストアンサー

いろいろな方法があると思いますが、なるべく簡単に作る方法として、
(1)対象月を抽出して、テーブルに書き出すクエリをつくり実行する。
left([フィールド1],6)をグループ化するだけです。
(2)　(1)で作ったテーブルをレコードソースとしたフォームをつくり対象月を表示するテキストボックスを配置する。
(3)　対象データを抽出して仮テーブルに書き出すクエリを作る。　抽出条件として(2)で作ったクエリのテキストボックスの値を指定する。
(4)　ここからが、vbaで書くところですが、loopをつくりフォームのレコードが終わりになるまで、以下を繰り返す。
・(3)のクエリを実行
・エクセルファイルにエクスポート
・フォームのレコードを次に移動
・仮テーブルのデータを削除

お世辞にもきれいなつくりとはいえませんし、実行に時間もかかると思いますが、簡単に作れるということで、いかがでしょうか？