Excel'de tüm klasörleri ve alt klasörleri nasıl listeleyebilirim?
Dizin veya dosya yönetimi görevlerinde çalışırken, belirli bir dizin içindeki tüm klasörleri ve alt klasörleri kapsamlı şekilde listelemek ve bu bilgileri doğrudan Excel’de görüntülemek isteyebilirsiniz. Ancak ne yazık ki Excel, belirtilen bir dosya yolu dizininden tüm klasörleri veya alt klasör adlarını otomatik olarak almanızı sağlayan yerleşik bir işlev veya basit bir sihirbaz sunmaz. Bu makalede, seçtiğiniz herhangi bir dizinden tüm klasörleri ve alt klasörleri çalışma sayfanıza getiren VBA kodunu bulacaksınız. Bu çözüm, insan hataları riskini en aza indirir, yorucu manuel işlemleri ortadan kaldırır ve veri organizasyonunuzu hızlıca izlemenize ve yönetmenize olanak tanır.
Tüm klasörleri ve alt klasörleri listelemek için VBA kodunu kullanın
Tüm klasörleri ve alt klasörleri listelemek için VBA kodunu kullanın
Belirtilen bir dizindeki tüm klasörleri ve alt klasör adlarını Excel’e aktarmak istiyorsanız, VBA (Visual Basic for Applications) kullanımı oldukça etkili bir çözümdür. Bu yaklaşım size esneklik ve tam kontrol sağlar; yalnızca klasör adlarını değil, aynı zamanda dosya yolları, oluşturma tarihleri ve son düzenleme zamanları gibi ek bilgileri de almanızı mümkün kılar. Özellikle Excel’in Geliştirici özelliklerine aşina olanlar ve dinamik ya da sıkça değişen dosya sistemleriyle çalışan kullanıcılar için idealdir.
1. "ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications" düzenleyicisini açın. Bu araç, çalışma kitabınızda makro eklemenize ve düzenlemenize olanak tanır.
2. VBA düzenleyicide, Ekle > Modül öğesine tıklayın. Bu işlem, yeni bir modül penceresi oluşturur. Aşağıdaki kodu modüle kopyalayıp yapıştırın:
VBA kodu: Tüm klasörleri ve alt Klasör Adı'leri listele
Sub FolderNames()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim xPath As String
Dim xWs As Worksheet
Dim fso As Object, j As Long, folder1 As Object
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Choose the folder"
.Show
End With
On Error Resume Next
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Application.Workbooks.Add
Set xWs = Application.ActiveSheet
xWs.Cells(1, 1).Value = xPath
xWs.Cells(2, 1).Resize(1, 5).Value = Array("Path", "Dir", "Name", "Date Created", "Date Last Modified")
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder1 = fso.getFolder(xPath)
getSubFolder folder1
xWs.Cells(2, 1).Resize(1, 5).Interior.Color = 65535
xWs.Cells(2, 1).Resize(1, 5).EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Sub getSubFolder(ByRef prntfld As Object)
Dim SubFolder As Object
Dim subfld As Object
Dim xRow As Long
For Each SubFolder In prntfld.SubFolders
xRow = Range("A1").End(xlDown).Row + 1
Cells(xRow, 1).Resize(1, 5).Value = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder.DateLastModified)
Next SubFolder
For Each subfld In prntfld.SubFolders
getSubFolder subfld
Next subfld
End Sub
3. Kodu ekledikten sonra, makroyu çalıştırmak için VBA Düzenleyici’de F5 tuşuna basın veya Çalıştır düğmesine tıklayın. Ardından, klasörleri ve alt klasörleri taramak istediğiniz hedef dizini seçmenizi isteyen bir Klasör Seç iletişim kutusu açılacaktır.
4. İstenilen dizini seçin ve Tamam düğmesine tıklayın. Makro, dizini işleyecek ve aşağıda gösterildiği gibi tüm klasörleri ve alt klasörleriyle birlikte tam yollarını, üst dizinlerini, adlarını, oluşturma tarihlerini ve son değiştirilme tarihlerini içeren yeni bir Çalışma Kitabı Listesi oluşturacaktır:
Bu kodu kullanırken dikkat edilmesi gereken bazı pratik ipuçları ve notlar:
- Dizin yapınız çok büyükse, makronun tüm klasörleri işlemesi biraz zaman alabilir. Lütfen yürütme sırasında sabırlı olun ve işlemi kesintiye uğratmaktan kaçının.
- VBA yöntemi, makro ayarlarınızın etkinleştirilmesini gerektirir; aksi takdirde kod düzgün çalışmaz. Güvenlik uyarılarıyla karşılaşırsanız, Excel Seçenekleri’ndeki Güven Merkezi ayarlarını gözden geçirin.
- Yanlış klasörü yanlışlıkla seçerseniz, makroyu tekrar çalıştırıp doğru dizini seçin.
- Bu yaklaşım yalnızca klasör ve alt klasör bilgilerini listeler; dosyaları da listelemeniz gerekiyorsa, daha fazla seçenek için aşağıdaki ilgili makaleye başvurun.
- Çalışma kitabını birden fazla kullanıcı paylaşıyorsa, bu dinamik liste oluşturma özelliğini kullanabilmeleri için makroların kendi bilgisayarlarında etkinleştirilmesi gerektiğini unutmayın.
- Oluşturulan çalışma kitabı boş veya eksikse, seçilen dizinin boş olmadığından ve yeterli okuma izniniz olduğundan emin olun. Özellikle derin veya karmaşık klasör yapıları söz konusuysa, sisteminizin kaynak sınırlarını gözden geçirin ve gerektiğinde işlemi toplu halde ya da alt dizinler şeklinde gerçekleştirmeyi düşünün.
Bu VBA çözümü esnektir, ek eklentilere veya harici yazılımlara gerek duymaz ve kolaylık sağlar; otomatik olarak bir çıktı çalışma kitabı oluşturur. Ancak temel makro işlemlerine aşina kullanıcılar için en uygundur ve özel özelleştirmeler gerektiriyorsa ek ayarlamalar yapılabilir.
İlgili makale:
Excel'de bir klasördeki dosyaları çalışma sayfasına nasıl listeleyebilirim?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar