aşağıdaki modülü ekleyerek yapabilirsiniz

"C:KlasorYoluBuraya" ' bu alana gerçekklasör yolunuzu girin, içindeki tüm dosyaların adını A sütununa listeleyecek.

Sub ListeleDosyaIsimleri()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim i As Integer
    
    ' Klasör yolunu belirleyin
    folderPath = "C:\Klasor\Yolu\Buraya\" ' Buraya klasör yolunu yazın
    If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\"
    
    Set wb = ThisWorkbook
    Set ws = wb.Sheets(1) ' Listelemenin yapılacağı sayfa
    
    ' A sütununu temizle
    ws.Columns("A").ClearContents
    
    ' Dosya isimlerini almak için
    fileName = Dir(folderPath & "*.*")
    i = 1
    
    Do While fileName <> ""
        ' Dosya adını uzantısı olmadan al
        ws.Cells(i, 1).Value = Left(fileName, InStrRev(fileName, ".") - 1)
        fileName = Dir
        i = i + 1
    Loop
    
    MsgBox "Dosya isimleri başarıyla listeledi!"
End Sub