アクセスからテキストファイルにエクスポートしたい。

質問

お願いします。
会社の商品管理でアクセスを使用しています。
クエリで抽出したデータを、テーブルに保存したものを、取引先に添付データとして送らなくてはいけません。
取引先の指定が、固定長テキストファイルなのですが、幾つかわからないことがありますので教えてください。
(1)事務員に、あまり難しい事をさせたくないのでできるだけ自動化したい。
(2)項目は、伝票日付8桁、伝票番号8桁、商品コード5桁、数量10桁
(3)伝票日付は、現在テキスト型で、定型入力0000/00/00の形式です。
　これをyyyymmddの8桁に直さなくてはいけません。

以上、よろしくお願いいたします。

回答No.2

wss2004 · ベストアンサー

こんにちは、別案です。

＞クエリで抽出したデータを

ここで抽出するクエリをＱ１とします。

そして、Ｑ１から、結合演算子＆で全項目を結合するクエリＱ２を作成してはどうでしょうか。添付ファイルのデータが並びは不順でも良ければ、Ｑ２をテキストファイルに出力するクエリしておくと、Ｑ２を実行するだけで添付ファイルが作成できるので楽になるかな～と思います。

伝票日付は、↓などでフォーマットを。
Format([伝票日付],"00000000")

お礼

今、即効でできるとすればこれですね。
ありがとうございます。
試してみます。

回答No.1

imogasi

これはADOなどを使わないで、という質問ですか。
＞自動化したい
であればADOなどで、レコードを読み、VB6まではLset,Rsetが使えるようなので、右詰、左詰に注意してテキストでフィールド文字列をつくり、それら文字列を連結して、Print#で出力する。
下記は１レコードの例のモデル。
レコードの繰り返し読み取り、出力は慣れているものとする。
Sub test01()
Dim hiduke As String * 8
Dim denbann As String * 8
Dim shouhincd As String * 5
Dim suuryou As String * 10
Close #1
Open "aaa.prn" For Output As #1
h = "2007/12/23"
hizuke = Year(h) & Format(Month(h), "00") & Format(Day(h), "00")
MsgBox hizuke
denban = "12345678"
shouhincd = "12345"
RSet suuryou = "20"
MsgBox "*" & suuryou
outa = hizuke & denban & shouhincd & suuryou
Print #1, outa
Close #1
End Sub
結果
200712231234567812345 20
ーー
質問の話題によっては見当ハズレになるので、その際は無視してください。

お礼

ご回答ありがとうございます。
上記のようなモジュールが書ければ楽なのですが・・・・

勉強してみます。ありがとうございました。