Farklı excelden veri almak hk

[himmety]

arkadaşlar merhaba
kapalı olan excelden alttaki komutlar ile veri alıyorum. ancak burada belirtiğim report.xls dosyası olmak zorunda burayı benim a1 hücresi veya metin kutusuna yazacağım kelime harf vs ile veriyi çektirebilirmiyim
Örn: A1 hücresine fatura2 yadığımda aynı klasördeki fatura 2 den veriyi alsın daha sonra yine aynı klasördeki fatura3 yazdığımda buradan veri çeksin
yardımlarınız için şimdiden teşekkürler.

Application.ScreenUpdating = False
yol = ThisWorkbook.Path & "\report.xls"
Workbooks.Open (yol)
'Tanımı
Workbooks("report.xls").Sheets("report").Range("a18:a50").Copy _
Workbooks("Hızlı kalem.xlsm").Sheets("Föy").Range("a2")


Workbooks("report.xls").Close True
Application.ScreenUpdating = True
MsgBox " Bilgiler aktarıldı "

 

[anemis]

farklı isimli dosyalarda aynı sheet lerin olması ve aynı hücrelerde verilerin olması gerekli. makrolar hakkında bir fikrim yok ama report yazısının hücreye bağlanması çok zor olmasa gerek.

 

[himmety]

farklı isimli dosyalarda aynı sheet lerin olması ve aynı hücrelerde verilerin olması gerekli. makrolar hakkında bir fikrim yok ama report yazısının hücreye bağlanması çok zor olmasa gerek.

merhaba ilgin için teşekkürler verileri aktarmakta sorun yaşamıyorum. benim istediğim a1 hücresine yazdığım isimdeki dosyadan verileri aktarmak, a1 e yazdığımı buluyor sayfasını açıyor fakat aktarmakta hata veriyor.