Dir Komutu ile Klasördeki Dosyaları Okumak

Dosya İsimlerini Çekmek

Belirli bir klasörde bulunan tüm .xlsx dosyalarını döngü ile okuyup Excel sayfasına listeletmek için Dir fonksiyonu kullanılır.

VBA Kodu:

Sub KlasoruOku()
    Dim dosyaAdi As String
    Dim satir As Integer: satir = 1
    dosyaAdi = Dir("C:\Raporlar\*.xlsx")
    Do While dosyaAdi <> ""
        Cells(satir, 1).Value = dosyaAdi
        dosyaAdi = Dir()
        satir = satir + 1
    Loop
End Sub

Ne Göreceksiniz? A sütununa 1. satırdan başlayarak o klasördeki tüm Excel dosyalarının adları (Örn: rapor1.xlsx, rapor2.xlsx) yazılacaktır.