Hücrede belirtilen isimli dosyadan veri alma

[sait2020]

Merhaba arkadaşlar ;

Ben Evrak adlı klasörümde bulunan farklı excel kitaplarından aynı klasörde bulunan İcmal isimli excel kitabına veri çekmek istiyorum.Ancak ben veri çekeceğim excel kitabının ismini b2 hücresinde belirtip, o belirttiğim isimdeki dosyadan verileri almak istiyorum. Bu şekilde formül yada makro ile veri alınabilir mi ?

 

[Erdem Akdemir]

Merhaba,

Dediğiniz işlem yapılır ama verilerin icmal dosyasına nasıl işleneceğini belirlemek için örnek dosya gerekli.
Formül ile yapılır ama dosyaların açık olması gerekir.

 

[sait2020]

Merhaba,

Dediğiniz işlem yapılır ama verilerin icmal dosyasına nasıl işleneceğini belirlemek için örnek dosya gerekli.
Formül ile yapılır ama dosyaların açık olması gerekir.

Merhaba dosyayı ekledim

 

[sait2020]

Arkadaşlar yardım edebilecek kimse var mı?

 

[Erdem Akdemir]

Merhaba,

Tagdaki kodu kullanabilirsiniz. Kırmızı ile işaretlediği yere evraklarım klasörünün adresini yazarsanız kod sizde çalışacaktır.

Sub getir()
If Cells(Rows.Count, "c").End(3).Row > 1 Then
Range("c2:e" & Cells(Rows.Count, "c").End(3).Row).ClearContents
End If

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

[COLOR="Red"]yol = "C:\Users\kullanıcı\Desktop\Evraklarım\"[/COLOR]
dosya = Dir(yol & Range("b2") & ".xls*", vbNormal)

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & dosya & ";extended properties=""Excel 12.0;hdr=yes"""

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

Range("c2").CopyFromRecordset rs

End Sub