Başka Bir Dosyadan Veri Alma Alternatifi

[ITOKER]

dediğiniz gibi No ya çevirdim ama olmadı,

Örnek dosya ekte ( sarı alanlarda da veri var.

 

[ITOKER]

Bunu zamanında söylememem kötü oldu galiba :/

 

[Erdem Akdemir]

Merhaba,

"O:\Muhasebe\RAPOR PAKET DOSYASI\" adresinin altındaki tüm klasörlerde arama yaparak en son güncellenen dosya bulunacak.Böyle mi olmalı.

 

[ITOKER]

Merhabalar;

Evet kesinlikle çok doğru.

 

[Erdem Akdemir]

Merhaba,

Deneyebilir misiniz.

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

 

[ITOKER]

Elinize sağlık, bence bu gerçekten çok başarılı..
benim işimi görür çok verim alacağım,

ama şunu söylemek isterim, şimdi bu koddan yararlanacak diğer arkadaşlar için şunu düşünüyorum,

O:\Muhasebe\RAPOR PAKET DOSYASI\" adresinin bir altıdaki tüm klasörlere bakıyor
yani bir altındaki klasörün içindeki klasöre bakmıyor,

bahsettiğiniz gibi tüm klasörlere bakabilirse dehşet olur diye düşünüyorum..

çok teşekkürler, saygılar..

 

[Erdem Akdemir]

Elinize sağlık, bence bu gerçekten çok başarılı..
benim işimi görür çok verim alacağım,

ama şunu söylemek isterim, şimdi bu koddan yararlanacak diğer arkadaşlar için şunu düşünüyorum,

O:\Muhasebe\RAPOR PAKET DOSYASI\" adresinin bir altıdaki tüm klasörlere bakıyor
yani bir altındaki klasörün içindeki klasöre bakmıyor,

bahsettiğiniz gibi tüm klasörlere bakabilirse dehşet olur diye düşünüyorum..

çok teşekkürler, saygılar..

Merhaba,

25. no'lu mesajdaki kod'da çok ufak bir değişiklik yaptım. klst = yol yazan ifadeyi bir üst satıra taşıdım. Şimdi sizin istediğinizi yapacaktır.
Tekrar deneyebilir misiniz.

 

[ITOKER]

Merhabalar;

denedim ama sonuç alamadım hatalı taşıma yapıyor olabilir miyim ?

 

[ITOKER]

Merhaba;

Yalnız önemli bir sorun var, alınan veriyi de bir hedef sayfaya almamız lazım, yani verinin geleceği yer makro nun çalıştığı Aktif sayfa değilde, istenilen sayfaya gelmesi.

 

[ITOKER]

Merhabalar;

üstat peki bu kod çalışırken veriyi aktaracağı dosya ve sayfa hedefi oluşturmamız mümkün mü ?