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 フィールド1"
strsql = "SELECT フィールド1,フィールド2,フィールド3,フィールド4,フィールド5,フィールド6,フィールド7,フィールド8,フィールド9,フィールド10,フィールド11,フィールド12,フィールド13,フィールド14,フィールド15,フィールド16,フィールド17,フィールド18,フィールド19,フィールド20,フィールド21,フィールド22,フィールド23,フィールド24,フィールド25,フィールド26,フィールド27,フィールド28,フィールド29,フィールド30,フィールド31,フィールド32,フィールド33,フィールド34 " & _
"FROM WT売掛管理表 ORDER BY フィールド1"
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
-----------------------------------------------------
お礼
ダブルクォーテーションでくくってのやり方には驚きです。 初めて知りました。 教えていただいた方法を両方試してみたいと思います。 ありがとうございます。