Yeni klasör oluştururken klasör adını hücreden almak

[acolkesen1]

Merhaba arkadaşlar,
Aşağıdaki kodla yeni klasör oluştururken klasör adını Sayfa1! a1 den almak istiyorum. Bunu nasıl yazacağım konusunda yardıma ihtiyacım var..
Sub Klasör_Oluştur()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CreateFolder "C:\klasör adı\"
End Sub
Kırmızı ile yazılı yere sayfa adresini nasıl yazmalıyım? İlgilenen arkadaşlara teşekkür ederim..

 

[Recep İpek]

Aşağıdaki şekilde deneyiniz.

Sub Klasör_Oluştur()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CreateFolder [COLOR=red]"C:\" & Sheets("Sheet1").Range("a1")
[/COLOR]End Sub

 

[acolkesen1]

Aşağıdaki şekilde deneyiniz.

Sub Klasör_Oluştur()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CreateFolder [COLOR=red]"C:\" & Sheets("Sheet1").Range("a1")
[/COLOR]End Sub

Hocam son satırda hata veriyor..

 

[Zeki Gürsoy]

"Sheet1" isminde sayfanız olmayabilir..

 

[acolkesen1]

Merhaba Zeki bey,
Tahmin ettiğiniz gibi Sheet isminde sayam yok ama ben o kısmı Sayfa1 olarak değiştirerek uyguladım ama son satırda hata veriyor.

 

[acolkesen1]

Düzelttiğim şekli şu;
Sub Klasör_Oluştur2()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CreateFolder "C:\" & Sheets("Sayfa1").Range("a1")
End Sub

 

[Zeki Gürsoy]

O halde o isimde klasör mevcuttur. Silip tekrar deneyin. Çünkü çalışıyor.

File alredy exist

hatası veriyor olmalı..

 

[acolkesen1]

Yardımınız ve yönlendirmeniz için teşekkürler. Gerçekten daha önceki klsörü silmemişim.. Bu tecrübe farkı olsa gerek... İyi geceler..