Excel Formül
Modül 6: İleri Düzey Fonksiyonlar ve Rapor Otomasyonu

VBA ile Çoklu Dosya ve Klasör İşlemleri

Bilgisayarınızda yüzlerce dosyanın bulunduğu klasörleri yönetmek, yeni klasörler açmak veya belirli formatlardaki dosyaları toplu şekilde işleme almak manuel olarak saatler sürer. VBA içinde yer alan FileSystemObject (FSO) kütüphanesi veya klasik MkDir, Dir komutları ile tüm bu dosya süreçlerini tam otomatik hale getirebilirsiniz.

FileSystemObject (FSO) Nedir?

FSO, Windows dosya sistemine tam erişim sağlayan profesyonel bir nesnedir. Klasör var mı diye kontrol edebilir (FolderExists), yeni klasör açabilir veya bir dizindeki tüm dosyaları döngüye sokabilirsiniz.

Örnek Klasör ve Dosya Tarama Kod Kalıbı

Dim fso As Object, klasor As Object, dosya As Object
Set fso = CreateObject("Scripting.FileSystemObject")

' Belirtilen klasördeki dosyaları listele
Set klasor = fso.GetFolder("C:\Raporlar")
For Each dosya In klasor.Files
    Debug.Print dosya.Name
Next dosya

Canlı Simülatör: Otomatik Klasör Oluşturma ve Dosya Listeleme

Aşağıdaki makro çalıştırıldığında disk üzerinde yeni bir yedekleme klasörü açılacak ve içindeki dosyalar Excel sayfasına listelenecektir. Makroyu Çalıştır butonuna basın.

Visual Basic Editörü
Module1 (FileSystem)
Sub KlasorVeDosyaYonetimi()
    ' Yeni klasör oluştur ve dosyaları listele
    MkDir "C:\AylikYedekler"
    Range("A1").Value = "Bulunan Dosya: Satis_Raporu_2026.xlsx"

    MsgBox "Klasör oluşturuldu ve dosyalar başarıyla tarandı!", vbInformation
End Sub
Canlı Excel Sayfa Görünümü
A1
A (Taranan Dosya Listesi)
1
Microsoft Excel ✕
Klasör oluşturuldu ve dosyalar başarıyla tarandı!