klasörde yer alan dosya isimlerinin listesi

[emrexcel123]

arkadaşlar ve üstadlar selamlar ve iyi çalışmalar
uzun bir süre iş yoğunluğumdan dolayı siteye giremedim bunun için özür diliyorum
bir klasörde yer alan word dosyalarının listesini excel sayfasında liste olarak alabilir miyiz...
örneğin C:\Documents And Settings\.... yolunda yer alan word dosyalarının yani .doc uzantılı dosyalarının listesini herhangi bir hücreden başlayarak aktarabilir mi yardımcı olacak arkadaşlara teşekkür ederim iyi çalışmalar...

 

[Necdet]

Merhaba,

Hemen VBA nın yardımından bulduğum kodları buraya ekliyorum, gerekli değişiklikleri siz yapınız (Kırmızı Renkli Yer)

Public Sub Dosyalari_Listele()
Set fs = Application.FileSearch
With fs
.LookIn = "[COLOR=red][B]C:\Documents and Settings\necdet\Belgelerim\Doc\Word[/B][/COLOR]"
.Filename = "*.doc"
If .Execute > 0 Then
MsgBox  .FoundFiles.Count &  " Adet Dosya Buldum."
For i = 1 To .FoundFiles.Count
Cells(i, "A") = .FoundFiles(i)
Next i
Else
MsgBox "Dosya Bulamadım...."
End If
End With
End Sub

 

[emrexcel123]

çok teşekkür ederim sn Necdet_Yesertener iyi çalışmalar...

 

[katip16487]

Peki arkadaşlar,
Aynı şekilde bulunan bir klasörün içinde bulunan WORD sayfalarının içindeki (AYNI NİTELİKTEK&#304 12345) sayısını 67890 olarak değiştirmek için bir makro var mıdır?