Farklı klasörlerde ilk bir kaç harfi aynı olan dosyalardan veri çekmek

[eminkot]

Merhaba arkadaşlar ,

her ay

d:\export

altında bulunan farklı klasörlerde 3500,3501,3502...

bir kaç çeşit excel dosyası kayıt edilmektedir.Amacım her klasörde bulunan
ve History[tarih_kayıtsaati].xls ( bu dosyaların history kısmına kadar olan adları aynı ) adıyla başlayan dosyanın d4 sütununu

d:\sayac\ana.xls

dosyasının sayfa1 d4 sutununu kopyalamak.

Yardımlarınız için şimdiden teşekkürler.

emin

 

[eminkot]

daha basit bir ifade ile;

herhangi bir klasörde ilk üç harfini bildiğimiz bir excel dosyasından verileri nasıl çekebiliriz.

:yardim:

emin

 

[eminkot]

Kendimce bir şeyler buldum :hihoho:

belki daha kısa yolu vardır ama mutluyum.Belki faydalı olabilir diye ekliyorum.

...

kls=cells(10,10) ' klasör
yll=cells(11,10) 'yıl
aylar=cells(11,11) 'ay

Set fs = Application.FileSearch
With fs
.LookIn = "D:\Export\" & kls & "\" & yll & "-0" & aylar & "-01"
.Filename = "his*.xls"

If .Execute() > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count

MsgBox .FoundFiles(i)

Next i

Else
MsgBox "There were no files found."
GoTo son
End If

Cells(14, 14) = fs.FoundFiles(1)


Cells(14, 14).Replace _
What:="D:\Export\" & yan & "\" & yll & "-0" & aylar & "-01\", Replacement:="", _
SearchOrder:=xlByColumns, MatchCase:=True

ad=cells(14,14)



For i = 1 To 20

Cells(i, 8) = ExecuteExcel4Macro("'D:\Export\" & kls & "\" & yll & "-0" & aylar & "-01\[" & ad & "]1-sheet1'!R" & i & "c4")

Next

son:

End With