Klasör İsimlerini Excele Aktarma

Klasör İsimlerini Excele Aktarma

Klasör İsimlerini Excele Aktarma
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.

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:
  1. A:B sütunlarındaki önceki içeriği temizler.
  2. "Lütfen Bir Klasör Seçin !" başlıklı klasör seçme penceresini açar.
  3. Seçilen klasörün yolunu B1 hücresine sonuna "\" ekleyerek yazar.
  4. Seçilen klasörün alt klasörlerini FileSystemObject ile dolaşır ve adlarını A1 hücresinden başlayarak alt alta yazar.
Makro, seçilen klasör yolunu modülün ilk satırındaki deg sabitine de kaydeder; bunun için çalışma kitabının kendi VBA kodunu değiştirir. Bu nedenle Excel'de "VBA proje nesne modeline erişime güven" seçeneği açık değilse bu adım çalışmaz. Makro dosya silme veya dış bağlantı işlemi içermez. Önceki listeyi silmesi nedeniyle A:B sütunlarında tuttuğunuz başka veriler varsa önce yedekleyin.

Nasıl kullanılır​

  1. Dosyayı açın ve makroları etkinleştirin.
  2. Alt+F8 tuşlarıyla Klasorler makrosunu seçip çalıştırın.
  3. Açılan pencereden listelenmesini istediğiniz klasörü seçin ve OK düğmesine basın.
  4. Seçilen klasördeki alt klasör adları Sayfa1 içinde A sütununa listelenir.
Seçilen klasörün alt klasörleriyle birlikte içindeki dosyaların da listelenmesi gerekiyorsa Klasör ve Alt Klasördeki Dosyaları Listeleme dosyası kullanılabilir.

Galeri

  • Klasör İsimlerini Excele Aktarma - 1
    Klasör İsimlerini Excele Aktarma - 1

ExcelDepo tarafından daha fazla dosya

Detaylar
Yazar
ExcelDepo
İndirme
24
Gösterim
5,555
İlk sürüm
Güncel
SHA-256
0f69a5d3f1dc68d90645e7e1302af791ebf2cdf960932df93d35d236e14b2e69

Puanlar

5.00 Oylama 1 İnceleme

En son değerlendirmeler

Paylaşıma teşekkür ederim.
Geri
Üst