エクセルのデータからフォルダを作成したい。

質問

エクセルに書いたデータから空のフォルダを作成したいです。

例）
　　A B
1 関東
2　　　　　東京
3　　　　　神奈川

結果
　　C\関東\東京
　　C\関東\神奈川
作成するにはVBAでしょうか。
宜しくお願いします。

回答No.2

redfox63 · ベストアンサー

フォルダーの生成には MkDirを使い フォルダーの存在の確認にはDirなどを使いましょう

サンプル
' ssが作成したいフォルダーパス
Sub MkFolder(ss as String)
　　dim sName As string
　　sName = Dir( ss, vbDirectory )
　　if sName = "" then
　　　　MkDir ss
　　end if
End Sub

呼び出し方
Sub Macro1
　　' C:\関東
　　mkFolder "C:\" & Range("A1")
　　' C:\関東\東京
　　mkFolder "C:\" & Range("A1") & "\" & Range("B2")
　　' C:\関東\神奈川
　　mkFolder "C:\" & Range("A1") & "\" & Range("B3")
End Sub

といった具合です

お礼

ありがとうございます。
やってみます。

回答No.1

fujillin

VBAで可能です。
FileSystemObjectオブジェクトを利用するとできます。
方法は、以下をご参考に
　http://officetanaka.net/excel/vba/file/index.htm
　http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110.html

お礼

ありがとうございます。
参考に致します。