エクセルVBAでセルを名前にしてフォルダを生成

こんばんは。
セルA2 B2 C2にフォルダの名前にしたい文字や数字があり、
それをフォルダ名にすることをエクセルでしたいのですが
コードを教えていただけないでしょうか？
できたフォルダはデスクトップにあるようにしたいです。
よろしくお願いします。

No.1 ベストアンサー 回答者： n-jun 回答日時： 2008/11/07 22:13

Sub try()

Dim myPath As String
Dim myDir As String
myPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
myDir = myPath & "\" & "abc" 'デスクトップに"abc"と言うフォルダを作る

MkDir (myDir)
End Sub

＞セルA2 B2 C2にフォルダの名前にしたい文字や数字があり、
＞それをフォルダ名にすることをエクセルでしたいのですが
各セルの値をどうしたいのか不明です。

この回答へのお礼

n-junさんありがとうございました。
ばっちりできました。

お礼日時：2008/11/08 07:30

No.3 回答者： mitarashi 回答日時： 2008/11/07 22:16

#1と似たようなものですが．．．

デスクトップのフォルダー取得
http://officetanaka.net/excel/vba/tips/tips107.htm
フォルダーの新規作成
http://officetanaka.net/excel/vba/filesystemobje …

Sub test()
Dim desktopPath As String, WSH As Variant
Dim FSO

Set WSH = CreateObject("WScript.Shell")
desktopPath = WSH.SpecialFolders("Desktop") & "\"
Set WSH = Nothing

Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CreateFolder desktopPath & Range("a1").Value
Set FSO = Nothing
End Sub

この回答へのお礼

mitarashiさんありがとうございました。
参考サイトのご紹介もありがたいです。

お礼日時：2008/11/08 07:35

No.2 回答者： fujillin 回答日時： 2008/11/07 22:16

こんな感じ？

デスクトップのパスはマシン環境で違うので、確認の上設定してください。

Sub test()
Dim i As Integer, f As String, p As String, c() As String
Const cel = "A2 B2 C2" '/←対象とするセル名を列挙
Const pt = "C:\Documents and Settings\デスクトップ" '/←デスクトップのパスを記入

c = Split(cel)
p = pt & "\"
For i = LBound(c) To UBound(c)
　f = ActiveSheet.Range(c(i)).Text
　If (Dir(p & f, vbDirectory) = "") Then MkDir p & f
Next i
End Sub

この回答へのお礼

fujillinさんありがとうございました。
いろいろなやり方があるのに驚きました。

お礼日時：2008/11/08 07:33