質問: エクセルのセルをテキストファイル出力する方法教えてくれませんか。 初心者ですが、 どなたか、エクセルのセル1つを、 テキストファイル出力できる方法をご存知ですか? 詳細には、 エクセルファイルの列aの内容がテキストファイル名で、 列bの内容が本文であるテキストファイル出力を 約3000個、順次したいと考えています。 例えば、エクセルファイルに以下のようなデータを保持しているとします。 列a 列b 001 あいうえお 002 かきくけこ 003 さしすせそ この場合、001.txtは本文が「あいうえお」、 002.txtは本文が「かきくけこ」、 003.txtは本文が「さしすせそ」というように、 エクセル1行についてテキストファイルを1つ作成したいと考えています。 このような処理を短時間で実施するのに適した方法をご存知の方がいらっしゃいましたらご教示いただければと思います。 どうぞよろしくお願いいたします。
回答: 一例です。 エラー処理はしてません。 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