【玄人】素人ACCESS相談所【禁制】

質問です！
業務部門の扱っているデータベースを営業部門にファイル配布するのに、
営業部コードで抽出して、その営業部コード名でエクセルファイルを作りたいのですが、

具体的には、

≪売上データベース≫
営業部
コード　　売上日　　得意先　　　品目　　個数　　金額
A　　　　03/6/1　　XXXフーズ　・・・　
A　　　　03/6/2　　ZZZ企画　・・・　 　
B　　　　03/6/1　　（株）YYY　・・・

みたいなテーブルから、[営業部コード] = "A"　を抜き出して
これをエクセルの"A.xls"というファイルにエクスポート、
同じように"B"を抜き出して"B.xls"というファイルにエクスポート・・・
というのをACCESSに自動で行わせたいのですが、無理でしょうか？
部門が１５個ぐらいあるので自動で出来れば助かるのですが・・・

現状、エクスポートしてエクセルを開かせるところまで自動で出来たのですが、
それをエクセルで「名前を付けて保存」でいちいちAとかBとか入れています。
ちなみにAccess97、Win98です。どなたかお願いします！　　

>>418

> 現状、エクスポートしてエクセルを開かせるところまで自動で出来たのですが、

クエリで営業部コードの抽出条件に"A"を入れてみれば"A"だけのレコードが
表示されるでしょ(仮にAクエリ)

次にマクロでワークシート変換(アクション)で
変換の種類：エクスポート
ワークシートの種類：ご利用のExcel
テーブル名：Aクエリ
ファィル名：書き出し先のフルパス(例)C:\A.xls
フィールド名の設定：必要なら「はい」
範囲：適当に…。無指定でいい

このマクロを保存してAマクロとする

マクロを実行すればC:\A.xlsに作成されるよ。

それぞれを15個作って
ついでに16個目のマクロに15個マクロを実行するようにすれば
一回のマクロ実行で15個の*.xlsが出来る。

VBAでやりたいなら他の人ヨロシク

>>418
「エクスポートしてエクセルを開かせる」とあるが、
どのように行っているのかを書けばアドバイスを受けやすいだろうに。

>>418
Excelのライブラリ使って、
エクセルオープン -> 出力 -> エクセル終了
じゃダメなの？

CreateObject Excel.Application
でぐぐれば、結構でてきたけど

SELECT * INTO [Excel 8.0;Database=D:\A.xls].[売上]
FROM 売上データベース WHERE [営業部コード] = "A"

レポートに56.1といった感じで小数点以下も一桁だけ表示させたいんですけど
プロパティの中で小数点は一桁って感じで設定しても四捨五入されちゃうんで
強引にフォーマット関数にて小数点一桁表示させたいのですがどうも
うまくいきません。
レポートのテキストのソースにformat [点数],"##.#"という感じでよろしかったでしょうか？

418にて質問したものです。みなさんありがとうございます！
>>419-422をコピペして会社に持っていって、月曜日に試してみます。
多分うまく行くでしょう。

>>420 マクロで、コマンドの実行 - excelに出力、というのを使っていました。
419さんの方法に何故行き着かなかったのか今となっては・・・
Accessは大分慣れたと思っていましたが、基礎がまだまだだなと・・・


>>423
プロパティの書式欄に "#,##0.0" でどうでしょう