ACCESSのテーブルをテキスト出力

質問

初心者なので
ACCESSのテーブルの複数の項目（100個位）をテキスト形式で項目と項目を区切らない形式で出力したいのですが
クエリで「式１：[項目1]＆[項目2]＆・・・・・」と指定しないと出来ませんか
宜しくお願いします。

回答No.3

yomo3

happypointさんの方法は、データ自身に空白がなければ、最良の方法と言えます。
また、Excel経由の方法も、試行錯誤が必要かもしれませんが、確実な方法です。
1038さんのご質問の意図は100項目(フィールドといいますが）をクエリ式に記述するのが面倒だ、ということだと思います。
そのようなとき、わたくし的には下記のようなモジュールをつくって処理します。

Public Sub Field2Text()
Const TableName = "Table1" '<-テーブルの名前
Const FileName = "Text1.txt" '<-ファイルの名前
Dim dbs As Database
Dim rst As Recordset
Dim fld As Field
Dim txt
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(TableName)
Open FileName For Output As #1
With rst
Do Until .EOF
txt = ""
For Each fld In rst.Fields
If fld.Name <> "ID" And fld.Name <>"Field" Then
'"ID"とか"Field"とかいうところにテキストファイルに保存したくないフィールド名を入れます。
txt = txt & fld.Value
End If
Next
Print #1, txt
.MoveNext
Loop
.Close
End With
Close #1
Set dbs = Nothing
End Sub

1038さんは初心者ということですので、難しいことのように思えますが、上記の Public Sub ～ End Sub までをモジュールにコピーして必要箇所を手直しすればよいのです。
もし興味がおありでしたら、ご一報ください。
クエリ式をモジュールで書いてしまうという手もあります。これは、長くなるので別の機会に（っていつだい？）

回答No.2

cafedemocha

２段階になりますけどね・・・
Excelに出力する　→　Excelでテキスト形式で保存する
こんな方法もありますよ

回答No.1

happypoint

固定長形式でエクスポートして、あとでテキストエディタなんかで空白を削除するとか。

だめっぽいですな。