Bu dosya, seçilen bir klasörün içindeki alt klasörlerin adlarını Excel sayfasına listeler. Klasör seçimi bir pencereden yapılır, liste makro ile otomatik oluşturulur.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- Sayfa1: Liste buraya yazılır. Sayfa hazır olarak boş gelir; alt klasör adları A sütununa, seçilen klasörün yolu B1 hücresine aktarılır.
- Module1: Klasorler adlı makroyu barındıran VBA modülüdür.
Makrolar
Klasorler makrosu sırasıyla şunları yapar:- A:B sütunlarındaki önceki içeriği temizler.
- "Lütfen Bir Klasör Seçin !" başlıklı klasör seçme penceresini açar.
- Seçilen klasörün yolunu B1 hücresine sonuna "\" ekleyerek yazar.
- Seçilen klasörün alt klasörlerini FileSystemObject ile dolaşır ve adlarını A1 hücresinden başlayarak alt alta yazar.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Alt+F8 tuşlarıyla Klasorler makrosunu seçip çalıştırın.
- Açılan pencereden listelenmesini istediğiniz klasörü seçin ve OK düğmesine basın.
- Seçilen klasördeki alt klasör adları Sayfa1 içinde A sütununa listelenir.