Excel'de belirli bir klasör/dizin içindeki dosyalar nasıl sayılır?

Aşağıdaki VBA kodu, belirli bir klasördeki belirli türdeki dosyaları kolayca saymanıza yardımcı olabilir, örneğin bir klasördeki tüm .xlsx dosyalarını sayabilirsiniz. Lütfen şu adımları izleyin:

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

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

VBA: Belirli bir klasördeki belirli bir dosyayı 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ı sayacaktır. Diğer türdeki dosyaları saymak için lütfen xPath = xFolder & "\*.xlsx" ifadesini bulun ve .xlsx'i 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çılacak Gözat iletişim kutusunda, belirli türdeki dosyaları sayacağınız klasörü seçin ve Tamam düğmesine tıklayın.

5. Şimdi bir iletişim kutusu açılacak ve size belirli bir klasörde kaç tane belirli türde dosya olduğunu gösterecektir. İletişim kutusunu kapatmanız yeterlidir.

Bir klasörü açtıysanız, normalde bu klasörün alt kısmında tüm dosyaların sayısını görürsünüz. Bu yöntem, Kutools for Excel'in Geçerli belgenin bulunduğu klasörü aç özelliğini tanıtmaktadır. Bu özellik, geçerli çalışma kitabını içeren klasörü açar ve bu klasördeki dosya sayısını almanızı sağlar.

1. Kutools Plus > Çalışma Kitabı > Geçerli belgenin bulunduğu klasörü aç'a tıklayın. Ekran görüntüsüne bakın:

2. Artık geçerli çalışma kitabını içeren klasör açılıyor.

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

Not: The Geçerli belgenin bulunduğu klasörü aç özelliği, eğer mevcut çalışma kitabını daha önce kaydetmediyseniz geçersiz olacaktır.

Bazen bir klasörde ve alt klasörlerinde birden fazla türde dosya saymak isteyebilirsiniz. Aslında, Kutools for Excel, bu sorunu kolayca çözmek için başka bir Dosya Adı Listesi aracını sunmaktadır.

1. Kutools Plus > İçe Aktar / Dışa Aktar > Dosya Adı Listesi'ne tıklayarak Dosya Adı Listesi iletişim kutusunu açın.

2. Açılacak Dosya Adı Listesi iletişim kutusunda, lütfen şu işlemleri yapın:

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

4. Şimdi belirli türdeki tüm dosyalar yeni bir çalışma sayfasında listeleniyor. Sadece sütun başlığı olmadan ilk sütunu seçin ve aşağıdaki ekran görüntüsünde gösterildiği gibi Durum Çubuğu'nda dosya sayısını göreceksiniz: