Kapalı dosyadaki verilerin sayfaya getirilmesi

[M.ACAR]

Sayın : Korhan hocanın yardımı ile aynı dosya'da bulunan verileri tek sayfaya çağırma ile ilgili bir çalışma yapmıştım;fakat çalışma üzerinde bir değişiklik yapmak istiyorum,Yıllara ait bilgileri aynı Klasör fakat dosyaya gireceğim,Bordrolar olarak hazırladığım bir dosya içindeki ARM sayfasına getirmek istiyorum,2009-2010-2011 olarak hazırladığım dosyalar çalışma sırasında kapalı olacak

 

[M.ACAR]

Korhan hocam yardımcı olurmusunuz

 

[M.ACAR]

Bu konu hakkında yardımcı olabilirmisiniz.

 

[Levent Menteşoğlu]

Aşağıdaki kodu Bordro sayfanızdaki bir butona bağlayarak çalıştırın.

Sub verial()
[ARM!A3:IT33].ClearContents
Set baglanti = CreateObject("ADODB.Connection")
yol = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\" & [bordro!d7] & ".xls" & ";Extended Properties=""Excel 8.0;HDR=no;IMEX=1"";"
baglanti.Open yol
Set rs = baglanti.Execute("[" & [bordro!d8] & "$A3:IT65536]")
[ARM!a3].CopyFromRecordset rs
rs.Close
baglanti.Close
End Sub

 

[M.ACAR]

Sayım:Levent bey yardımınız için öncelikle çok teşekkür ederim,

1.sütundaki verileride getirebilirmiyiz.