Excelの一行を一ファイルとして保存する方法は？

質問

一週間まえ、多数ファイルをExcelに取り込む方法を教えて頂いたヒロです。
その時はtemtecomaiさんにVBAを作って頂き他の方からもアドバイスして頂き有難うございました。

で、こんどは逆にExcelの一行を、元の様に一枚のTXTファイルに戻したいんですんですが、やりかたを教えてもらえないでしょうか。
。
セル内の数字は一部変わってますが形式や文字数はExcelに読み込んだ時のままです。

シート１行目のAセルの数字(三桁）をファイル名とし、Bセルの数字をそのファイル内の１行目に書き込み、Cセルの数字を２行目に書き込み、Dセルのを3行目に、同じくEセル、Fセル・・・・AGセルまで。
次にシートの２行目も同じように、さらに３行目、４行目・・・・。

それで行数分の枚数のTXTファイルを作りたいんです。
m(__)m
　　　　　　　　　　　　　　　　　　　　* ヒロ *

回答No.2

imogasi · ベストアンサー

#1のものです。補足にご記入された内容になるように修正
します。
（１）A列のセル内容がファイル名になります。
（２）もとのシートのあるi行の
A列－－－＞CSVファイルをエクセルへ読みこんだ時のＡ１セルに
B列－－－＞Ａ２セルへ
C列－－－＞Ａ３セルへ。以下同様。
ファイル名に使ったA列も、CSVファイルへ持ってきて（残して）います。
になります。小数例でテスト済み。

Sub test02()
d = Range("a1").CurrentRegion.Rows.Count
For i = 1 To d
s = ""
Open "c:\my documents\" & Cells(i, "A") & ".csv" For Output As #1
For j = 1 To 5
Print #1, Cells(i, j)
Next j
Close #1
Next i
End Sub

お礼

imogasiさん、お手数をかけました。
修正していただいたＶＢＡで希望通りできました。
わがまま言って済みませんでしたが、これでバッチリです。
有難うございました。
　　　　　　　　　 *ヒロ*

回答No.1

imogasi

なんで答えが入っていないのだろう。難しくて下記ではダメなのかな。
５列のエクセルシートが１シートあるとします。５は本番に合わせて変えてください。各列同一列数でないときは
その行のその列の内容Cells(i,j)が""かどうか聞く、ロジックに変えてください。（その場合は""セルが中間にないものと仮定します。）
下記で各行が別CSVファイルになると思います。少数例でテスト済み。
Sub test02()
d = Range("a1").CurrentRegion.Rows.Count
For i = 1 To d
s = ""
Open "c:\my documents\aax" & Trim(Str(i)) & ".csv" For Output As #1
For j = 1 To 5
If j = 1 Then
s = Cells(i, j)
Else
s = s & "," & Cells(i, j)
End If
Next j
Print #1, s
Close #1
Next i
End Sub

補足

imogasiさん、レスが送れすみません。
昼間は会社なもんですから。 (^_^;

作って頂いたＶＢＡをやってみましたら、一行が一枚のファイルとして出来ました。
ただファイル名が元のBook+連番になるんですが、Excelのその行のAセルに入っている番号(123や999など）にしたいんです。
それと、ExcelのAセル，BセルがCSVファイルのAセル，Bセルとして保存されるんですが、txtファイルの1行目，2行目にならないでしょうか。

できればよろしくお願いします。
　　　　　　　　　　　　　　　*ヒロ*