Çözüldü Kapalı Excel den veri alma kodu Revize

Hocam iki Exceli birden yükledim Ali cimri hocamın çözümü linki aşağıdadır. Fakat Diğer Excele uyarlayamadım kodu yardımcı olursanız çok sevinirim .....

HTML: satırını
HTML: olarak değiştirin.

Satın Alicimri Hocam değiştirdim fakat verileri getirmiyor. lütfen hocam bakabilir misiniz. yeni yüklemiş olduğum excel göre düzenleyebilirmisiniz. çok teşekkür ederim. çok sağolun.

Ali hocam daha önceki hazırlamış olduğun kod veri çektiğim excel de 2 sayfa vardı. yeni yüklemiş olduğum excel sadece 1 sayfa var. örneği yüklemiştim. lütfen yarımcı olabilirmisiniz.

Arkadaşlar lütfen yardımcı olabilir misiniz. çok teşekkür ederim.

Merhaba,
Set Sy1 = ActiveWorkbook.ActiveSheet 'Burada bağlandığınız(kapalı excel dosyasının hangi sayfası olduğu tanımlanıyor.)
şayet Örnek.xlsx dosyasının Sayfa1 adlı sayfasını kullancaksanız;
Set Sy1=workbooks("Örnek.xlsx").worksheets("Sayfa1") olarak tanımlayabilirsiniz.

Bu da kayıtları getireceğiniz dosya
Set Sy2 = Workbooks(1).ActiveSheet
Bunu da dosyanızın adı ve sayfanızın adı şeklinde tanımlayabilirsiniz.
Set Sy2=workbooks("ANADOSYA.xlsx").worksheets("VeriGetir") gibi

Daha sonra da getireceğiniz satır sütun ya da aralık bilgileri ile beraber kayıtlarınızı çekebilirsiniz.

Sy2.range("A1").value=Sy1.range("A1").value
(Örnek.xlsx dosyasının Sayfa1 isimli sayfasının A1 hücre değerini ANADOSYA.xlsx dosyasının VeriGetir isimli sayfasının A1 hücresine getir.)
gibi.

Caylak Hocam dendim verileri getirmiyor.

Ali cimri hocam çok teşekkür ederim Allah Yolunu açık etsin inşallah. Yarın iş yerinde denerim ve dönüş yaparım.

Ali Hocam çok teşekkür ederim.çok sağolun.