Klasörleri dikey içindeki dosyaları yatay listeleme.

[yunus788]

Merhaba arkadaşlar forumda dosya ve klasör listeletme ile ilgili bir çok konu var ama istediğim şekilde bulamadım.
Bir ana klasör içinde bir çok klasör ve alt klasör var.
Bu klasörlerin bazılarının içinde dosyalar var bazılarının ise alt klasörü var ve onların içinde dosyalar var.

Benim yapmak istediğim, makro ana klasörü tarayacak ve
tüm alt klasörleriyle birlikte içinde dosya olan klasörleri adresiyle birlikte a sütununda listeleyecek aşağı doğru.
Yani içinde açıkta dosya olmayan klasörü listelemeyecek, ama içinde başka bir klasör varsa ve dosyaları varsa onu listeleyek.
Dosyaları ise yatay olarak adresiyle birlikte o klasörün yanına listeleyecek.
Yardımcı olursanız sevinirim.

 

[kulomer46]

Değerli Arkadaşım Merhaba

Aşağıdaki bağlantıda talebinizi karşılayan benzer çözüm bulunmaktadır.

Kapalı Excel Dosyalarında Metin Arama ve Dosya Listeleme Programı

Değerli Arkadaşlar Merhaba Kendi çapımda Kapalı Excel Dosyalarında Metin Arama ve Dosya Listeleme Programı hazırladım. Program Sayın Korhan AYHAN Beyin bu sitede paylaştığı Dosya Listeleme programının üzerinde biraz ekleme ve çalışma yapılarak geliştirilmiştir. Programın hata ve...

www.excel.web.tr

Fazladanda örnek dosya Ek 'tedir.

Kolay Gelsin.

Selamlar...

Örnek Resim

 

[yunus788]

Teşekkürler faydalı bir dosya. Klasor adresini a sütununda o klasördeki dosyaları ise yanındaki sütunlara yatay sıralatmak mümkünmü?

 

[kulomer46]

Merhaba

Bu dosyayı hazırlayalı 6 ayı geçti. Şu an bu programın kod hiyerarşisi ve kodların takib algoritması tam aklımda kalmadı. Yaklaşık 765 satırlık kod algoritmasını yeniden çözmek ve yeni taleplere göre düzenlemek gerekiyor.

Birde şu var. A Sütunundaki klasörün içerisinde alt klasörler ve alt klasörlerinde içerisinde yine dosyalar ve alt klasörler bulunsa, bunu karışıklığa meydan vermeden aynı satırdaki yan sütunlara nasıl yayacağız. Birde bu durum var.

Yukardaki #2 numaralı mesaj ekindeki dosyanın temel seviyede ihtiyacı karşılayacağını düşünüyorum.

Selamlar...

 

[yunus788]

Merhaba

Bu dosyayı hazırlayalı 6 ayı geçti. Şu an bu programın kod hiyerarşisi ve kodların takib algoritması tam aklımda kalmadı. Yaklaşık 765 satırlık kod algoritmasını yeniden çözmek ve yeni taleplere göre düzenlemek gerekiyor.

Birde şu var. A Sütunundaki kalsörün içerisinde alt klasörler ve alt klasörlerinde içerisinde yine dosyalar ve alt klasörler bulunsa bunu karışıklığa meydan vermeden yan sütunlara nasıl yayacağız. Birde bu durum var.

Yukardaki #2 numaralı mesaj ekindeki dosyanın temel seviyede ihtiyacı karşılayacağını düşünüyorum.

Selamlar...

Teşekkür ederim.

 

[kulomer46]

Teşekkür ederim.

Rica ederim.

Selamlar...

 

[halit3]

Alternatif olarak
Bu dosyaya bir bak

deneme1.xls dosyasını indir - download

deneme1.xls dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

 

[yunus788]

Alternatif olarak
Bu dosyaya bir bak

deneme1.xls dosyasını indir - download

deneme1.xls dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

Halit hocam eline sağlık istediğim gibi olmuş. Dosya isimlerini yazdırırken tam adresiyle yazdırabilirmiyiz?
sayfaya otomatik resim görüntüleme eklemeyi düşünüyorum, aktif hücredeki adresi alıcak.

 

[halit3]

Cells(sat, sut).Hyperlinks.Add Anchor:=Cells(sat, sut), Address:=yol, SubAddress:="" & firstAddress, TextToDisplay:=fL.GetBaseName(yol)

Cells(sat, sut).Hyperlinks.Add Anchor:=Cells(sat, sut), Address:=dosya, SubAddress:="" & firstAddress, TextToDisplay:=fL.GetBaseName(dosya.Name)

yukarıdaki bölümleri bul ve sırasıyla aşağıdakilerle değiştir.

Cells(sat, sut).Hyperlinks.Add Anchor:=Cells(sat, sut), Address:=yol

Cells(sat, sut).Hyperlinks.Add Anchor:=Cells(sat, sut), Address:=dosya

 

[yunus788]

Teşekkür ederim tam istediğim gibi oldu.Kandiliniz mübarek olsun.