klasörde liste görünümündeki dosyaların isimlerini excelle yazdırma

[yözcan]

Arkadaşlar herkese merhaba, yardımlarınız için şimdiden teşekkür ederim. Öğrenmek istediğim konu şu; Herhangi bir klasördeki dosyaların isimlerini excelle herbiri bir satıra gelecek şekilde A sütünuna yazdırıp bu liste ile başka bir listeyi düşeyara ile karşılaştırmak istiyorum. Bu mümkün mü acaba

 

[kepetto]

Aşağıdaki kodu kullandıktan sonra, formül ile işinizi görebilirsiniz...



Sub DosyaYoluBul()

Dim fd As FileDialog
Dim vrtSelectedItem As Variant

Set fd = Application.FileDialog(msoFileDialogFolderPicker)

With fd

If .Show = -1 Then

For Each vrtSelectedItem In .SelectedItems
Range("A1") = vrtSelectedItem & Application.PathSeparator
Liste Range("A1").Text
Next vrtSelectedItem

End If

End With

Set fd = Nothing




End Sub


Sub Liste(Yol As String)

Dim dosya As String, i As Long

Application.ScreenUpdating = False
i = Cells(Rows.Count, "A").End(3).Row
If i < 2 Then i = 2
Range("A2:B" & i).ClearContents

dosya = Dir(Yol & "*.*")
i = 1
While dosya <> ""
DoEvents
i = i + 1
Cells(i, 1) = dosya
dosya = Dir
Wend