【エクセル】セルの内容をテキストエディタに書き出す

質問

どなたかご教授お願いします。

エクセルのセルの内容をテキストエディタに書き出し、
希望のファイル名で保存したいと思っております。

例。

　　　A　 　　　｜　　　 　B

１　　長文１　　　　　　1111

２　　長文２　　　　　　2222

３　　長文３　　　　　　3333

４　　長文４　　　　　　4444

↓
↓

ずっと１０００番ほどまで続きます。

このように、

セルAの内容をテキストファイルに書き出し、
セルBという名前でテキストファイルを保存したいと思っております。

「セルA1」　書き出し　→　ファイル名「セルB1」
「セルA2」　書き出し　→　ファイル名「セルB2」
「セルA3」　書き出し　→　ファイル名「セルB3」
・・・

という風に、ずっと続きます。

どなたか、良い方法はありませんか？

エクセルのマクロの使い方も全くわかりませんので、

できるのであれば、どんな方法でも結構です。

申し訳ありませんが、
マクロの場合は、初心者でもわかるように、
マクロのコードを教えてください。

しばらく色いろと試しましたが、
方法が全くわからず、お手上げ状態です。

どうぞ、よろしくお願いします。

回答No.1

keithin · ベストアンサー

ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim i as long
　dim myPath as string
　mypath = "c:\test\"　　’適宜修正のこと
　on error resume next

　for i=2 to range("B65536").end(xlup).row
　open mypath & cells(i, "B") & ".txt" for output as #1
　print #1, application.substitute(cells(i, "A"), vblf, vbcrlf)
　close #1
　next i
end sub

ファイルメニューからエクセルに戻り，データを記入してあるシートで実行する。

お礼

ありがとうございます！
早速試してみます！

補足

ありがとうございます。
だいたいはできましたが、
エラーもでました。

テキスト内に貼り付ける文字数がHTMLでして、
３０００文字程あるのですが、「エラー 2015」と表示されてしまいます。

なにかいい方法はありますでしょうか？

改行がない、数文字程度で試すとうまく行きます。

回答No.2

keithin

＞エラー 2015

変更前：
print #1, application.substitute(cells(i, "A"), vblf, vbcrlf)

変更後：
print #1, replace(cells(i, "A"), vblf, vbcrlf)

「改行を含む」はご相談の情報提供にありませんでしたが，最初から対応済みです。
これでもまだおかしいときは，「問題の発生する状況」を特定して「問題を起こす具体的な(再現性のある)データ」を掲示してください。

お礼

早速のお返事、ありがとうございます。
今やってみましたら、完璧にできました。

本当に感謝です。

ありがとうございます！