- Katılım
- 19 Şubat 2007
- Mesajlar
- 630
- Excel Vers. ve Dili
- Ofis 365 Tr- 64 Bit
- Altın Üyelik Bitiş Tarihi
- 08-01-2024
Merhaba Arkadaşlar aşağıdaki kodu forumda buldum. Hocam yolunu değiştirmek istiyorum. alt klasörler içindeki veriyi getirsin. istiyorum lütfen yardımcı olabilir misiniz.çok teşekkür ederim.
Kod:
Sub dosyalar()
Dim STR As Long, YL As String, DSY As String
STR = 2
YL = "C:\abbbbb\" 'buraya klasörün yolunu yazın c dizini abc klasöründeki dosyaları listeler
DSY = Dir(YL, vbNormal)
Do While DSY <> ""
With WorksheetFunction
If (GetAttr(YL & DSY) And vbNormal) = vbNormal Then
Cells(STR, "A") = Replace(DSY, Right(DSY, Len(DSY) - _
.Find("*", .Substitute(DSY, ".", "*", Len(DSY) - Len( _
.Substitute(DSY, ".", "")))) + 1), "")
STR = STR + 1
End If: End With
DSY = Dir
Loop
End Sub