エクセルのセルをテキストファイル出力する方法教えてくれませんか。

質問

初心者ですが、
どなたか、エクセルのセル１つを、
テキストファイル出力できる方法をご存知ですか？
詳細には、
エクセルファイルの列Aの内容がテキストファイル名で、
列Bの内容が本文であるテキストファイル出力を
約３０００個、順次したいと考えています。

例えば、エクセルファイルに以下のようなデータを保持しているとします。
列A　　列B
001　　あいうえお
002　　かきくけこ
003　　さしすせそ

この場合、001.txtは本文が「あいうえお」、
002.txtは本文が「かきくけこ」、
003.txtは本文が「さしすせそ」というように、
エクセル1行についてテキストファイルを1つ作成したいと考えています。

このような処理を短時間で実施するのに適した方法をご存知の方がいらっしゃいましたらご教示いただければと思います。
どうぞよろしくお願いいたします。

回答No.2

imogasi

>テキストファイル出力できる方法をご存知ですか？
エクセルＶＢＡを勉強してるものには、常識的なことです。
（１）それより質問者がＶＢＡを学習や作成したことがあるのかが問題ですよ。
（２）関数では出来ませんからね。
（３）人手操作ではテキストエディターにコピー貼り付けーテキストファイルの名前をつけて保存、の繰り返しになり、手間ですが理屈では時間をかければ、出来ます。
（４）特殊ソフト
内容は簡単なことなので、ＷＥＢなどには公表されないでしょう。
（１）のコードはＷＥＢで照会すれば使う道具立ては沢山の例が載ってます。
「vba テキストファイル 書き出し」でＧｏｏｇｌｅなどで照会。

回答No.1

ka_na_de

一例です。

エラー処理はしてません。

Sub test()
　　Dim myLastRow As Long, i As Long
　　Dim n As Integer
　　Dim myFileName As String

　　myLastRow = Cells(Rows.Count, "A").End(xlUp).Row

　　For i = 1 To myLastRow
　　　　myFileName = Cells(i, "A").Value & ".txt"
　　　　n = FreeFile
　　　　Open myFileName For Output As #n
　　　　Print #n, Cells(i, "B").Value
　　　　Close #n
　　Next i
End Sub