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

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

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

よろしくお願いします

No.2 ベストアンサー 回答者： Wendy02 回答日時： 2006/09/29 18:47

こんばんは。

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

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

この回答へのお礼

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

お礼日時：2006/09/29 19:22

No.1 回答者： ham_kamo 回答日時： 2006/09/29 18:28

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

この回答へのお礼

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

お礼日時：2006/09/29 19:25