Başka Excel Dosyasından Veri Aktaran Buton

[quantum_aso]

Merhaba;
Aynı klasörde bulunan a.xlsx ve b.xlsx dosyalarımız olsun.
a dosyasında bir buton yapmak istiyorum bu butona bastığımda b dosyasındaki örneğin A ve B kolonlarındaki tüm verileri(ne kadar varsa) a dosyasındaki A ve B kolonuna yerleştirsin. Yardımlarınızı bekliyorum. Teşekkür ederim.

 

[Orion1]

b.xls deki veri alacağınız sayfa adı Sayfa1 dir.

Sub b_veri_al()
Dim conn As Object, rs As Object
Application.ScreenUpdating = False
Set conn = CreateObject("AdoDb.Connection")
Set rs = CreateObject("AdoDb.Recordset")
conn.Open "Provider=Microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & _
"\b.xls;extended properties=""excel 8.0;hdr=no;"""
rs.Open "Select * from [Sayfa1$A:B];", conn, 1, 1
Range("A:B").ClearContents
Range("A1").CopyFromRecordset rs
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
Application.ScreenUpdating = True
MsgBox "Veriler b.xls dosyasından akatarıldı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[quantum_aso]

cevap için teşekkürler kodu henüz deneyemedim ama ufak bir sorum daha olacak
sorum A ve B kolonları yerine A,C,F kolonlarındaki değerler için olsaydı kod nasıl değişecekti acaba?

 

[polis-53]

arkadaşlar aynı mantıkla bunu daha gelişmiş yapabilirmiyiz örneğin bir klasörun içinde 50 ye yakın excel dosyam var bu dosyalardaki veri al mantığıyla verileri toplayarak alabilirmiyiz

 

[mancubus]

arkadaşlar aynı mantıkla bunu daha gelişmiş yapabilirmiyiz örneğin bir klasörun içinde 50 ye yakın excel dosyam var bu dosyalardaki veri al mantığıyla verileri toplayarak alabilirmiyiz

aşağıdaki linkte bunun için eklenti (add-in) var.

http://www.rondebruin.nl/merge.htm