Excelde belirttiğim kelimeleri silme

[mu-rat]

Merhabalar site sayesinde excel ile klasör altındaki dosyaların isimlerini excele tek tuşla aktardım fakat aktarırken sadece klasör isimlerini değil dosyanın yolunu da (z:/deneme/a) aktarıyor ben bu belirteceğim kelimeleri silmesini istiyorum.

Teşekkürler.

 

[truvali27m]

Merhabalar site sayesinde excel ile klasör altındaki dosyaların isimlerini excele tek tuşla aktardım fakat aktarırken sadece klasör isimlerini değil dosyanın yolunu da (z:/deneme/a) aktarıyor ben bu belirteceğim kelimeleri silmesini istiyorum.

Teşekkürler.

merhaba ben aşağıdaki kodları kullanıyorum belki sizin de işinize yarayabilir.Örnekte Masaüstünde olan xls dosyalarını a sütununa listeliyor,siz kendinize göre dosya yolunu değiştirebilirsiniz:

Sub Dir_Fonk()
Dim i As Integer
Dim dosya
dosya = Dir("c:\Documents and Settings\user\Desktop\*.xls")
i = 1
While dosya <> ""
Cells(i, 1) = dosya
dosya = Dir
i = i + 1
Wend

End Sub

 

[mu-rat]

Teşekkürler, bu arada bende file name reporter isimli ücretsiz bir program buldum isim bilgilerini alacağınız dosyaları/klasörleri içine sürüklüyorsunuz ve anında düzgün bir liste çıkarıyor 500 kb'lık bir program çok işime yaradı, iyi akşamlar.