エクセルVBAでテキストファイルの一括生成をしたい

質問

エクセルVBA（Win、office2000版）でテキストファイルの一括生成をしたいと考えています。
セルには以下のようにデータを置いて、

[__ファイル名__][__テキスト内容__]
[__ファイル名__][__テキスト内容__]
[__ファイル名__][__テキスト内容__]
…

あとはボタン一つで指定フォルダにテキストファイルを一括生成してくれたりすると最高に嬉しいです。色々と調べましたが、ファイル名を持ってくるところが上手く調べられませんでした。何卒ご教示頂きたいと思います。

回答No.1

chiezo2005

Aにファイル名，B列にテキストとして

for I=初めの行　to 終わりの行
Open "指定フォルダへのフルパス" & Range("A" & I).Value For Output As #1
text_data$ = Range("B" & I).Value
Print #1, text_data$
Close #1
next I

お礼

出来ました！！ありがとうございます。

あとは、初めと終わりの行を指定するユーザーフォームと保存するフォルダを指定するユーザーフォームを何とかしたいですね。

ありがとうございました。