Başka Bir Dosyadan Veri Alma Alternatifi 2

[ITOKER]

Merhabalar;

Aşağıdaki Kod, ilgili yoldan son üretilme güncellenen dosyada veri alıyor

ancak şöyle bir sorun var,

1- alınan verinin aktarılacağı dosyanında hangi sayfasına gideceğini şartının olması lazım yani

ben y dosyasının sayfa 1 inden veri alıp x dosyasının sayfa 2 sine aktarmak istiyorum.

2-
dosyanın arandığı yolda gösterilen hedefin var olan tün alt dosyalarını taramasını istiyorum.

yardımlarınızı rica ederim.




Sub denemefs1()

Set fso = VBA.CreateObject("scripting.filesystemobject")
yol = "O:\Muhasebe\RAPOR PAKET DOSYASI\"

klst = yol
tekrar:
For Each kls In fso.getfolder(yol).subfolders
klst = klst & "#" & kls & "\"
Next

deg = Split(klst, "#")

x = x + 1
yol = deg(x)

If fso.getfolder(yol).subfolders.Count > 0 Then GoTo tekrar:

For Each klsr In deg
yol = klsr
dosya = Dir(klsr & "\*.xls*")

Do While dosya <> ""
t = t + 1
Set f = fso.getfile(yol & dosya)
If f.datelastmodified > mak Then
Sec = f.Path
mak = f.datelastmodified
End If

dosya = Dir$()
Loop
Next

Set con = VBA.CreateObject("adodb.Connection")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
Sec & ";extended properties=""Excel 12.0;hdr=no"""

Set rs = con.Execute("select * from[sayfa1$]")

Range("a1").CopyFromRecordset rs

End Sub