EXCELのセルの値と同じフォルダー作成

質問

タイトルの通りなんですが
EXCEL2000で作成したシートに
英文字の値のセルがあります
その値と同じ名前のフォルダを
指定のフォルダ内に作成したいのですが
なにか良い方法ありませんか？

データはA列に600個ぐらいあります

よろしくお願いします

回答No.2

Wendy02 · ベストアンサー

こんばんは。

出来れば標準モジュールに入れてください。

Sub CreateDir()
'サブフォルダを作るマクロ
Dim i As Integer
Dim NewSubFolders As Range
Dim ParentFolder As String

'----------------------------------------
ParentFolder = "C:\Temp\" '指定のフォルダ
'----------------------------------------

'A1から空白セルなしに入れる
Set NewSubFolders = Range("A1", Range("A65536").End(xlUp))

　If Right(ParentFolder, 1) <> "\" Then ParentFolder = ParentFolder & "\"
　 For i = 1 To NewSubFolders.Rows.Count
　　 '目的のサブフォルダがない場合、フォルダを作る
　　 If Dir(ParentFolder & NewSubFolders(i, 1).Value, vbDirectory) = "" Then
　　　 MkDir ParentFolder & NewSubFolders(i, 1).Value
　　 End If
　Next i

Set NewSubFolders = Nothing
End Sub

お礼

早速の回答ありがとうございます
すごいです！！
うれしいです。
希望通りです。
助かりました。本当にありがとうございます。

回答No.1

ham_kamo

VBAでCreateFolderメソッドをループでまわせばいいのではないでしょうか。
下のは例です。

Sub CreatFolders()

Dim fs As Object
Dim Column As Integer
Dim Dir As String

Set fs = CreateObject("Scripting.FileSystemObject")
Column = 1
Dir = "C:\TEMP" 'フォルダを作成するフォルダを指定

While (Cells(Column, 1) <> "")
fs.CreateFolder (Dir & "\" & Cells(Column, 1))
Column = Column + 1
Wend

End Sub

お礼

早速の回答ありがとうございます。
ちゃんとできました。
本当にありがとうございます。