Makro ile Dir

[TUTKUN ORTAKLAR]

Üstatlar sizden bir ricam var;
D:\excel-2013\1-onur\1-tezgah\imalata verilenler
Bu dizinde "imalata verilenler" klasörü içindeki tüm excellerin isim listesini almak istiyorum.
Örnek: Bu klasör içinde 1375.xls;1475.xls;1576.xls
isimli 3 adet excel dosyası var.
yaptığım excelde (makro kullanarak)
1375
1475
1576
dökümünü görmek istiyorum.
Tabiki bu klasör içinde çok daha fazla excel dosyası var.Ve sizden ricam bu excelin hangi klasör içinde olacağı detayı dahil yardımcı olursanız sevinirim.

Saygılarımla

 

[hamitcan]

Sub Dosya_İsimleri()
    Dim ds, dc, f, s
    Set ds = CreateObject("Scripting.FileSystemObject")
    Set f = ds.GetFolder("D:\excel-2013\1-onur\1-tezgah\imalata verilenler\")
    Set dc = f.Files
    For Each dosya In dc
    If Right(dosya.Name, 3) = "xls" Then c = c + 1: Cells(c, 1) = dosya.Name
    Next
End Sub

 

[TUTKUN ORTAKLAR]

Makro ile dir çekmek

Üstat;
Eline sağlık süper oldu.Çok teşekkür ederim
Saygılarımla