Klasör Listeleme

[bambam30]

Arkadaşlar forumda kodlar dönüyor ama nasıl yapacağımı bilmiyorum.
Elimde 200 küsür klasörlü bir dosya var ve bunu tek tek excel geçirmek bir ölüm. Program ya da kısa bir yöntem varmı lütfen acil arkadaşlar.
Teşekkürler.

 

[İhsan Tank]

Arkadaşlar forumda kodlar dönüyor ama nasıl yapacağımı bilmiyorum.
Elimde 200 küsür klasörlü bir dosya var ve bunu tek tek excel geçirmek bir ölüm. Program ya da kısa bir yöntem varmı lütfen acil arkadaşlar.
Teşekkürler.

merhaba
bu kodu boş bir module kopyalayın ve bir butona atayarak çalıştırın.
Not : Kod halit3 Uzman'dan Alıntıdır.

Sub Alt_Klasör_İsimleri()
excelweb = MsgBox("Klasör İsimlerini Listeliyeyim Mi_?", vbYesNo + vbInformation, "Onay")
If excelweb = vbNo Then
Exit Sub
Else
Columns("A:A").ClearContents
Dosya ("[COLOR="Red"]D:\[/COLOR]")
End If
MsgBox "Dosya İsimleri Aktarıldı", vbInformation, "Bitiş"
End Sub
Private Sub Dosya(Yol As String)
Dim fL As Object, f As Object, j As String
On Error Resume Next
Set fL = CreateObject("Scripting.FileSystemObject").GetFolder(Yol).SubFolders
On Error GoTo sonraki
For Each f In fL
j = Worksheets(ActiveSheet.Name).[A65536].End(xlUp).Row + 1
Cells(j, 1) = f.Path
sonraki:
On Error Resume Next
Dosya (f.Path)
Next
Set fL = Nothing
End Sub

 

[bambam30]

bu kodu nereye yazıcam onu bilmiyorum excel baktım ettim yok

 

[İhsan Tank]

bu kodu nereye yazıcam onu bilmiyorum excel baktım ettim yok

bu link yardımcı olur sanırım size

 

[bambam30]

verdiğiniz linke girmiyor.
biraz baktı bu modul eklmeye listeleme olayını vb olmadan yapamıyormuyuz?

 

[İhsan Tank]

verdiğiniz linke girmiyor.
biraz baktı bu modul eklmeye listeleme olayını vb olmadan yapamıyormuyuz?

merhaba
ben link'e girdim ama problem değil normal bir şekilde anlatayım.
Alt+f11 tuşlarına birlikte basın. üstteki menülerden Insert'e tıklayın altta çıkan module'ye tıklayın ve kodu beyaz alana yapıştırın

 

[bambam30]

elimde 2010 TR var alt+f11 yapınca hiç birşey olmuyor dıt dıt sesler çıkıyor.
Bu klasör isimlerini visual basic olmadan başka bir türlü listeleyemiyormuyuz?

 

[İhsan Tank]

elimde 2010 TR var alt+f11 yapınca hiç birşey olmuyor dıt dıt sesler çıkıyor.
Bu klasör isimlerini visual basic olmadan başka bir türlü listeleyemiyormuyuz?

merhaba
şu an elimde 2007 var
şöyle tarif edeyim.
Sekmenin üzerinde sağ tuş tıklayın kod görüntüle deyin. ve açılan yerde Insert'te tıklayın ve Module Açın Beyaz Sayfaya Kodu Ekleyin.

Not : Makro Güvenlik Ayarlarını Düşürmelisiniz Yoksa Makro çalışmaz

Kod'da kırmızıya Boyadığım Yer Klasör Yoludur Ona göre Düzenleyiniz

 

[bambam30]

valla üstad şu kodu girme yerini bir bulabilsem bu dediğinde olmuyor kod görüntüle vbi birşey çıkmıyor.

 

[bambam30]

2010da nerede bu kod yeri beyler?
benim bilgisayarda visual basic yüklü değil onsuz yapabilirmiyim?

 

[İhsan Tank]

2010da nerede bu kod yeri beyler?
benim bilgisayarda visual basic yüklü değil onsuz yapabilirmiyim?

bu işlemi kodsuz yapamazsınız.
sadece elle yazarak elde edersiniz.

 

[pylor]

sayın bambam30 ihsan beyin kodlarını denedim kodlar çok güzel ve harika çalışıyor sizin manuel olarak 1 saatte yapacagınız işi saniyeler içinde yapıyor kodları kullanmanızı tavsiye edrim