Excel’de belirli bir klasör veya dizindeki dosyalar nasıl sayılır?

Aşağıdaki VBA kodu, belirli bir klasördeki özel bir dosya türünü — örneğin tüm .xlsx dosyalarını — kolayca saymanıza olanak tanır. Lütfen aşağıdaki adımları uygulayın:

1. Microsoft Visual Basic for Applications penceresini açmak için aynı anda Alt + F11 tuşlarına basın.

2. Ekle > Modül seçeneğine tıklayın ve ardından aşağıdaki VBA kodunu açılan Modül penceresine yapıştırın.

VBA: Belirli bir klasörde özel bir dosya sayma

Sub CountFiles()
Dim xFolder As String
Dim xPath As String
Dim xCount As Long
Dim xFiDialog As FileDialog
Dim xFile As String
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xFolder = xFiDialog.SelectedItems(1)
End If
If xFolder = "" Then Exit Sub
xPath = xFolder & "\*.xlsx"
xFile = Dir(xPath)
Do While xFile <> ""
xCount = xCount + 1
xFile = Dir()
Loop
MsgBox xCount & " files found"
End Sub

Not: Yukarıdaki VBA kodu, belirli bir klasördeki .xlsx dosyalarını sayar. Diğer dosya türlerini saymak için lütfen xPath = xFolder & "\*.xlsx" satırını bulun ve .xlsx uzantısını ihtiyaçlarınıza göre başka bir dosya uzantısıyla değiştirin.

3. Bu VBA kodunu çalıştırmak için F5 tuşuna basın veya Çalıştır düğmesine tıklayın.

4. Açılan Gözat iletişim kutusunda, belirli Dosya Türü dosyalarını saymak istediğiniz klasörü seçin ve Tamamdüğmesine tıklayın.

5. Şimdi, belirli klasörde kaç adet Dosya Türü dosyasının bulunduğunu gösteren bir iletişim kutusu açılacak. Bu iletişim kutusunu kapatmanız yeterlidir.

Bir klasörü açtığınızda, genellikle bu klasördeki toplam dosya sayısını görürsünüz. İşte bu yöntemde, Geçerli Çalışma Kitabı’nı içeren klasörü açmak ve ardından bu klasördeki dosya sayısını görüntülemek için Kutools for Excel’in Geçerli belgenin bulunduğu klasörü aç özelliği kullanılmaktadır.

1. KUTOOLS PLUS > Çalışma Kitabı > Geçerli belgenin bulunduğu klasörü aç seçeneğine tıklayın. Ekran görüntüsüne bakın:

2. Artık Geçerli Çalışma Kitabı içeren klasör açılıyor.

Klasörü Aç içinde herhangi bir dosyayı seçmeyin; aşağıdaki ekran görüntüsünde gösterildiği gibi bu klasörün altında tüm dosyaların sayısını göreceksiniz:

Not: Hiçbir zaman Geçerli Çalışma Kitabı dosyasını kaydetmemişseniz, Geçerli belgenin bulunduğu klasörü aç özelliği devre dışı kalacaktır.

Bazen bir klasörde ve alt klasörlerinde belirli dosya türlerinden kaç adet olduğunu saymak isteyebilirsiniz. Neyse ki Dosya Adı Listesi özelliği sayesinde Kutools for Excel, bu sorunu kolayca çözebilir.

1. KUTOOLS PLUS > İçe/Dışa Aktar > Dosya Adı Listesi seçeneğine tıklayarak Dosya Adı Listesi iletişim kutusunu açın.

2. Açılan Dosya Adı Listesi iletişim kutusunda lütfen aşağıdaki adımları uygulayın:

3. Dosya Adı Listesi iletişim kutusundaki Tamam düğmesine tıklayın.

4. Artık Türü belirtin dosyalarının tamamı bir Yeni çalışma sayfası içinde listeleniyor. Sadece sütun başlığını içermeyen ilk sütunu seçin; aşağıdaki ekran görüntüsünde gösterildiği gibi Durum Çubuğu içindeki dosya sayısını göreceksiniz: