CSVファイルを固定長のテキストファイルに変換する。

解決済

質問者：gara
質問日時：2003/11/21 14:20
回答数：3件

CSVファイルを固定長のテキストファイルに変換したいのですがEXCEL、ACCESSで変換してもノートパッドで見ると長さが換わっていたりします。
何か良い方法があったら教えてください。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： imogasi
回答日時：2003/11/21 23:45

下記を参考にやって見てください。

エクセルのVBAで、下記を標準モジュールに貼りつけて、実行すれば出来ます。
項目数（フィールド数）が増えた場合どこを増やすか
判りますね。String * 7は桁長を指定してください。
文字列は左詰、数字は右詰にしてます。
MsgBoxの行は確認に使いました。
メモ帳で３項目の簡単な例を作り、テストして見てください。私がしたサンプル例
1,2,a
34,43,ccc
42,3,xcd
’－－－
Sub test02()
Dim x As String * 7
Dim y As String * 7
Dim z As String * 7
Open "c:\My documents\test3.csv" For Input As #1
Open "c:\My documents\test3.prn" For Output As #2
'-----
While EOF(1) = False
Line Input #1, s
a = Split(s, ",")
RSet x = a(0)
RSet y = a(1)
LSet z = a(2)
'MsgBox "=" & z & "="
u = x & y & z
' MsgBox "=" & u & "="
Print #2, u
Wend
'-----
Close #1
Close #2
End Sub