Makrolarla baska calisma kitaplarindan veri nasil aktarilir

[dennisf06]

Elimde her gün icin tutulmus ayri calisma kitaplari var. Istedigim ise bu calisma kitaplarindaki bilgileri herhangi bir gün icin ana kitapta görebilmek. Tesekkür ederim.

 

[Levent Menteşoğlu]

Bir tanede veri alacağınız dosyalardan eklermisiniz. Ayrıca veri alınacak dosyaların bulunduğu klasörün yolunuda verirseniz iyi olur.

 

[dennisf06]

Mesala dosya masaüstünde-Kaynak dosyasinin icinde-11.05.2008 adli kitap olsun. Kitabin icinde 11 nolu sayfadaki bilgiler olsun. Tesekkür ederim Levent bey.

 

[Levent Menteşoğlu]

Sorunuzun çözümü basit, ancak dosyanızda 11 adet sayfa var. Verilerin alınacağı sayfa adı her dosyada aynımı aynı ise adı nedir?

 

[dennisf06]

Evet her dosyada ayni.

 

[Levent Menteşoğlu]

Çalışma isimli dosyanızda bir buton oluşturup aşağıdaki kodu bu butona bağlayarak çalıştırın. Tabii öncelikle kod içindeki kırmızı renkli yerlerdeki veri alınacak dosya yolu ile sayfa adınızı kendi dosyanızdakine göre değiştirin.

Sub verilerial()
Set baglanti = CreateObject("ADODB.Connection")
yol = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[COLOR=red]e:\deneme\[/COLOR]" & [c3] & ".xls;Extended Properties=""Excel 8.0;HDR=no;IMEX=1"";"
baglanti.Open yol
Set rs = baglanti.Execute("[[COLOR=red]sayfa11[/COLOR]$c6:c65536]")
[c6].CopyFromRecordset rs
End Sub

 

[dennisf06]

Tesekkür ederim Levent bey her sey icin.