Excel dosyasına sadece klasör isimlerini almak

[muraltun]

Herkese selamlar.
bir klasör altındaki dosyaların, sadece belirli dosyaların isimlerini excel dosyasına alma konusunda örnekler buldum. Fakat benim ihtiyacım bir klasör altındaki sadece klasörlerin isimlerini aktarmak. Hatta alt klasörlere bile ihtiyacım yok.
Şimdiden teşekürler.

 

[hamitcan]

Sub Klasor_altklasor_listesi()
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder("C:\")
    Set colSubfolders = objFolder.SubFolders
    For Each objSubfolder In colSubfolders
        c = c + 1
        Cells(c, "a") = objSubfolder.Name
    Next
End Sub

 

[muraltun]

İlgi için teşekkür ederim. Fakat isimleri bir sütüna sıra ile yazmasını istemiştim aslında ifade edemedim galiba. Bu kod ile mesajBox ta çıkıyor klasör isimleri

 

[hamitcan]

Düzelttim.

 

[ozgretmen]

Bu şekilde dener misin ?

Sub Klasor_altklasor_listesi()
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder("C:\deneme\")
    Set colSubfolders = objFolder.SubFolders
    For Each objSubfolder In colSubfolders
     k=k+1
        cells(k,"A")= objSubfolder.Name 
    Next
End Sub

 

[muraltun]

Çok çok teşekkür ederim Süper çalışıyor...

 

[exart]

Merhaba,

Paylaşım için teşekkürler. Ben beceremedim. Belki de kodları yanlış yere yazdım. Bunun için özellikle gereken bir excel versiyonu, güncellemesi ya da eklentisi gerekli mi?

Ben de klasör içindeki klasör ya da dosya adlarını A sütununa aktarmak istiyorum fakat beceremedim. Bunu biraz daha adım adım anlatabilir misiniz?

Teşekkürler.

 

[hamitcan]

Vba içinde bir module içine yerleştirin ve çalıştırın.
Not: Yolu kendinize göre düzenleyin.

 

[exart]

Vba içinde bir module içine yerleştirin ve çalıştırın.
Not: Yolu kendinize göre düzenleyin.

Yaptım fakat aşağıdaki hataları verdi. Acaba ne anlama geliyor?



Kusura bakmayın galiba biraz fazla acemiyim.

 

[halit3]

birde bunu deneyiniz

Sub bul()
j = 1
Columns("A:A").ClearContents
Dim Klasor As Object
Set Klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasor seçin !", 1)
For Each f In CreateObject("Scripting.FileSystemObject").GetFolder(Klasor.items.Item.Path).SubFolders
Cells(j, 1) = f.Path
j = j + 1
Next
MsgBox "işlem tamam"
End Sub

 

[hamitcan]

Referanslarla ilgili olabilir.

 

[exart]

birde bunu deneyiniz

Sub bul()
j = 1
Columns("A:A").ClearContents
Dim Klasor As Object
Set Klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasor seçin !", 1)
For Each f In CreateObject("Scripting.FileSystemObject").GetFolder(Klasor.items.Item.Path).SubFolders
Cells(j, 1) = f.Path
j = j + 1
Next
MsgBox "işlem tamam"
End Sub

Çok özür dilerim, yine beceremedim. Visual Studio yükledim. Bunu nereye, nasıl yerleştireceğimi bilmiyorum. Hangi projeyi oluşturmam gerek excel'i nereye kopyalamam gerek bilmiyorum. Adım adım anlatmanız mümkün mü acaba?

 

[halit3]

ekli dosyadaki bul komutu ile açılın pencereden klasörü seç

 

[exart]

ekli dosyadaki bul komutu ile açılın pencereden klasörü seç

Teşekkür ederim. Aşağıdaki hatayı verdi. Yüksek güvenlik seviyesi, dijital imza veya güvenilirliği doğrulanmamış macro vs. diyor.

 

[soledon]

birde bunu deneyiniz

Sub bul()
j = 1
Columns("A:A").ClearContents
Dim Klasor As Object
Set Klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasor seçin !", 1)
For Each f In CreateObject("Scripting.FileSystemObject").GetFolder(Klasor.items.Item.Path).SubFolders
Cells(j, 1) = f.Path
j = j + 1
Next
MsgBox "işlem tamam"
End Sub

halit ellerine sağlık
tek tıkta herşey tamam )))
klasörler ok
ama ben dosyalarıda listelemek istiyorum
TAM SORUM ŞU
d: dizininde
bir klasördeki *.dwg dosyalarını listelemek istiyorum (TUM DOSYALARDA LİSTELENEBİLİR )ayıklarım sonra
listede dosya adlarının karşısına açıklamalarını yazacağım elle