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
-----------------------------------------------------

回答No.1

tsukasa-12r · ベストアンサー

For 番号 = 0 To 32
Write #1, CStr(adoRs.Fields(番号).Value),
Next
Write #1, CStr(adoRs.Fields(番号).Value)

の部分を
strData = ""
For 番号 = 0 To 32
strData = strData & CStr(adoRs.Fields(番号).Value) & vbTab
Next
strData = strData & CStr(adoRs.Fields(番号).Value)
Write #1 strData

のようにするとよいと思います。

補足

返事が遅くなり、申し訳ありませんでした。
早速、ご回答の通りに実行してみたところ、イメージ的には希望の形になっているように思えます。ありがとうございます。

ただ、明細データが９行のもので実験したところ、

”１行目のフィールド１　フィールド２　・・・・・・・・フィールド３４”
”１行目のフィールド１　フィールド２　・・・・・・・・フィールド３４　２行目のフィールド１　フィールド２　・・・・・・・・フィールド３４”
　　　　　・
　　　　　・
　　　　　・
”１行目のフィールド１　フィールド２　・・・・・・・・フィールド３４　２行目のフィールド１　フィールド２　・・・・・・・・フィールド３４　・・・・・・　９行目のフィールド１　フィールド２　・・・・・・・・フィールド３４”

というようにだぶってファイルが作られます。

最後に作られている「”１行目のフィールド１　フィールド２　・・・・・・・・フィールド３４　２行目のフィールド１　フィールド２　・・・・・・・・フィールド３４　・・・・・・　９行目のフィールド１　フィールド２　・・・・・・・・フィールド３４”」の内容で、なおかつ、１行目～９行目のデータが、明細ごとに改行文字で区切られていれば良いのですが（エクセルのタブ区切り型式と同様のもの）、そのようには出来るでしょうか？
（例）
１行目のフィールド１　フィールド２　・・・・・・・・フィールド３４
２行目のフィールド１　フィールド２　・・・・・・・・フィールド３４
　　　・
　　　・
　　　・
９行目のフィールド１　フィールド２　・・・・・・・・フィールド３４

なお、このように変換する目的は、他のコンピュータソフトで利用するためだそうです。
どうぞ、宜しくお願い致します。

回答No.2

tsukasa-12r

strData = ""
が
Do Until adoRs.EOF
より前にあるのではないでしょうか。
Do Until adoRs.EOF
の直後に
strData = ""
を置いてみてください。
あと、Write の前に、
strData = strData & vbCrLf
が必要ではないかと思います。

お礼

前略
１週間程出張していたため、返事が出来ず、申し訳ありませんでした。
早速帰京してご指示の通りやってみましたら、うまく出来ました。
大変ありがとうございました。
今後とも宜しくお願い申し上げます。
　　　　　　　　　　　　　　　　　　　　　　　　　草々