エクセルでフォルダとファイルを作りたい

質問

お世話になります。
エクセル2007で質問です。
下記のような表をエクセルで作り、Ａ列の名称でフォルダを作り、
そのフォルダの中にすべて同じファイル名のテキストファイルを作り、
その内容をＢ列の文字としたいのですが、マクロなどでの作成方法を教えてくだい。

Ａ列　Ｂ列
a1　　ああああああ
a2　　いいいい
a5　　かかかかか

いままで使っていたマクロはテキストのファイル名がすべてバラバラだった
ので同じフォルダ内に書き出していましたが、変更があり同じファイル名で内容が
違うデータが必要となってしまいましたので、違う名称のフォルダの中に、
同じ名称のテキストデータを格納したいと思っています。
テキストデータの名称は何でもいいです。
作成するデータの数は決まっていなく、最大で1000くらいあります。

ぜひ、ご教授お願いします。

回答No.1

keithin · ベストアンサー

Ｃドライブに置いたtestフォルダの中に一連のフォルダを作成します。

手順：
ALT+F11を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim myPath as string
　dim h as range
　on error resume next

　mypath = "c:\test\"

　for each h in range("A1:A" & range("A65536").end(xlup).row)
　　mkdir mypath & h.value
　　open mypath & h.value & "\out.txt" for output as #1
　　print #1, h.offset(0, 1).value
　　close #1
　next
end sub

ファイルメニューから終了してエクセルに戻る
データを記入したシートを開く
ALT+F8を押して実行する。

お礼

素早いご回答で驚いています。
早速試してみたところ完璧に希望通りの動作をしました。
説明もわかりやすく迷うところもありませんでした。
本当にありがとうございました。