Access2000データのテキストファイル変換方法について
いつもお世話になっております。
以前、この欄で質問させて頂いたCSVデータ変換の件については随分助かり、ありがとうございました。
このたび、Access2000のデータを、テキストファイル（タブによる区切り）に変換（明細ごとの区切りは改行文字を使用）する必要があり、下記のような記述を致しましたが、どうしても、「カンマ区切り」にしかなりません。
インターネットで調べると、テキスト（タブ区切り）の拡張子は「.txt」と説明されているのですが、何か記述が間違っているのでしょうか？
宜しくお願い致します。
（追伸）将来、必要になるかも知れないので、テキスト（スペース区切り）の記述についてもお願いできれば、と思います。
-- 記述内容 ---------------------------------------------------
Dim adoRs As New ADODB.Recordset
Dim strsql As String
Dim strFile As String
Dim 番号 As Long
strsql = "SELECT"
For 番号 = 1 To 34
If 番号 > 1 Then strsql = strsql & ","
strsql = strsql & "フィールド" & CStr(番号)
Next
'strsql = strsql & "FROM WT売掛管理表 ORDER BY フィールド１"
strsql = "SELECT フィールド１,フィールド２,フィールド３,フィールド４,フィールド５,フィールド６,フィールド７,フィールド８,フィールド９,フィールド１０,フィールド１１,フィールド１２,フィールド１３,フィールド１４,フィールド１５,フィールド１６,フィールド１７,フィールド１８,フィールド１９,フィールド２０,フィールド２１,フィールド２２,フィールド２３,フィールド２４,フィールド２５,フィールド２６,フィールド２７,フィールド２８,フィールド２９,フィールド３０,フィールド３１,フィールド３２,フィールド３３,フィールド３４ " & _
"FROM WT売掛管理表 ORDER BY フィールド１"
adoRs.Open strsql, CurrentProject.Connection
strFile = "C:\データフォルダ\変換データ.txt"
Open strFile For Output Access Write As #1
Do Until adoRs.EOF
For 番号 = 0 To 32
Write #1, CStr(adoRs.Fields(番号).Value),
Next
Write #1, CStr(adoRs.Fields(番号).Value)
adoRs.MoveNext
Loop
adoRs.Close
Close #1
MsgBox "データ変換処理が終了しました。", vbInformation
Exit Sub
-----------------------------------------------------
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_3_thumbnail_img_sm.png)
お礼
ご回答ありがとうございます。フォーマットが公開されているのであれば自分で作れますね。ゆくゆくはそうしたいのですが、プログラム作成の際の答え合わせにバイナリデータとそのテキストデータが一組あると助かります。