エクセル、マクロの事で・・・？

質問

ある1つのフォルダにエクセルシートがあります。
仮に・・・
A1のセルに「野菜類」B1のセルに「野菜について」
A2のセルに「肉類」　B2のセルに「肉について」
A3のセルに「酒類」　B2のセルに「酒について」
このようにあるとします。
場合によっては、3つで終わる場合もあれば、20ぐらいまで行く場合もあります。
そこでマクロを使いエクセルシートがあるフォルダ内に・・・
「野菜類」
「肉類」
「酒類」
各フォルダを作成して、その各フォルダ内に「Bのセル名.txt」のファイルを作成したいと考えています。（.txtの中身は空です）
今は、手作業でやっているのですが数が多く間違えたりするので、マクロを使って行いたいのですが、その方法がわかりません。
そこで、大変申し訳なのですが、マクロの方法を教えていただけないでしょうか？
よろしくお願いします。

回答No.1

keithin · ベストアンサー

＞ある1つのフォルダにエクセルシートがあります。

ご利用のエクセルのバージョンも不明，ブック名も不明，ブックの拡張子も不明，シート名も不明です。

さておき。
ご質問のマクロをどう使いたいのか示されていないので，「野菜類」などを記入したブックに直接マクロを憑ける事にします。
そのブックの１枚目のシートのＡ列Ｂ列にデータが記入されているとします。
１行目にタイトル行とかも無しで，１行目からいきなりデータが記入されているとします。

手順：
「野菜類」が記入されたブックを開く
ALT+F11を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

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

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

ファイルメニューから終了してエクセルに戻り，ALT+F8を押してマクロを実行する。

お礼

回答ありがとうございました。
上手にできました！
感謝します！