【初月無料キャンペーン中】gooドクター

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

gooドクター

A 回答 (3件)

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にフォルダの名前にしたい文字や数字があり、
>それをフォルダ名にすることをエクセルでしたいのですが
各セルの値をどうしたいのか不明です。
    • good
    • 7
この回答へのお礼

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

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

#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
    • good
    • 0
この回答へのお礼

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

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

こんな感じ?



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

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
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング