こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

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

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


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

投稿日時 - 2007-12-23 12:06:39

QNo.3620957

困ってます

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

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

投稿日時 - 2007-12-23 12:39:44

お礼

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

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

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

投稿日時 - 2007-12-24 12:12:44

あなたにオススメの質問