Seçilen Klasörden Dosya İsimlerini Almak

[1Al2Ver]

Merhaba,

Sayfada mevcut düğme ile, listelenmesini istediğimiz klasörü seçip, içerisindeki dosyaların isimlerini, "A2:A" aralığına alıyorum,

İsteğim,

1) Yeni veri alırken, eskilerini silmesi ( yeni veri eskisinden az ise, eski veriler de sütunda görülüyor, örn; eski veri "A2:A18" aralığında ise ve yeni veri 5 satır ise "A2:A5" arası yeni veriden, "A6:A18" aralığı eski veriden oluşuyor )

2) "A1" hücresine seçilen klasörün adının gelmesi,

İlgili kodda gereken düzenlemeyi rica ediyorum,

Teşekkür ederim.

Sub Dosya_Listeleme()

Application.ScreenUpdating = False

    Dim I As Long
    Dim xFileName As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
   
    On Error Resume Next
   
  I = 1
    Cells(I, 1).Value = "Dosya Adı"
    With Cells(I, 1).Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 10
    End With
   
    Cells(I, 1).EntireColumn.AutoFit
   
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)

    If xFileDlg.Show = -1 Then
        xFileDlgItem = xFileDlg.SelectedItems.Item(1)
        xFileName = Dir(xFileDlgItem & "\")
        Do While xFileName <> ""
                I = I + 1
                Cells(I, 1).Value = xFileName
                xFileName = Dir
        Loop
    End If
    Columns("A").AutoFit
   
    Application.ScreenUpdating = True

End Sub

 

[Korhan Ayhan]

Burada bir dosya paylaşmıştım. İnceleyiniz. Belki işinize yarayabilir.

Klasördeki Dosya İsimlerini Listeleme/Değiştirme

Arşivlik kaynak olmuş, katkı sağlayan herkesin eline sağlık.

www.excel.web.tr

 

[1Al2Ver]

Sayın Korhan Ayhan merhaba,

Önerilen dosya sorunuma çözüm oldu, sağ olun.

İlginiz ve desteğiniz için teşekkür ederim,

Saygılarımla.