Dosya Adlarını Exel veya başka word aktarımı ?

[djfancy07]

Yarın karaoke yapıcaz. Klasörlerin içindeki farklı uzantılı dosyaların adlarını numaralı bi şekilde çıktısını almam lazım . nasıl yaparım acil yardım lütfen ...

 

[dEdE]

Merhaba,
EKli dosyayı ilgili klasörün içine yerleştirip Dosya Adı Al butonuna tıklamanız yeterli.

Sub Dosya_İsimleri()
    Set COfs = CreateObject("Scripting.FileSystemObject")
    Set Dsy = COfs.GetFolder(ThisWorkbook.Path & "\").Files
    [A1] = "Sıra No"
    [B1] = "Dosya Adı"
    i = 1
    For Each Dosya In Dsy
        i = i + 1
        Cells(i, 1).Value = i-1
        Cells(i, 2).Value = Dosya.Name
    Next
    Cells.EntireColumn.AutoFit
End Sub

 

[djfancy07]

Merhaba,
EKli dosyayı ilgili klasörün içine yerleştirip Dosya Adı Al butonuna tıklamanız yeterli.

Sub Dosya_İsimleri()
    Set COfs = CreateObject("Scripting.FileSystemObject")
    Set Dsy = COfs.GetFolder(ThisWorkbook.Path & "\").Files
    [A1] = "Sıra No"
    [B1] = "Dosya Adı"
    i = 1
    For Each Dosya In Dsy
        i = i + 1
        Cells(i, 1).Value = i-1
        Cells(i, 2).Value = Dosya.Name
    Next
    Cells.EntireColumn.AutoFit
End Sub

Not: Dosyadaki kodda kükçük bir hata var. Yukarıda düzelttim. Lütfen yukarıdaki kodu kullanınız.

bu benim gibi bir acemi için çok ağır bi cevab oldu kodu nereye kopyalayıp yapıştırıyoruz ?

 

[dEdE]

bu benim gibi bir acemi için çok ağır bi cevab oldu kodu nereye kopyalayıp yapıştırıyoruz ?

Merhaba,
Yukarıdaki dosyayı yeniledim. Kodlarlr uğraşmanıza gerek yok.
Alt+F11 tuşlarına bastıktan sonra açılan VBA pencceresinde sol üst tarafta görünen Modül1 i açarsanız kodları görebilirsiniz.

Aynı konuda birden fala başlık açmamanızı öneririm.
Hoşçakalın.