kapalı dosyalardan veri çekmek

[GursoyC]

Merhaba,
gerek bu forumda gerekse yabancı forumlarda kapalı excel dosyalarından veri çekmekle ilgili bir çok örnek mevcut. çoğunu inceledim kendime uyarlamaya uğraştım ama bir türlü yapamadım.

Bir klasör içerisinde 30 tane excel dosyam var. Başka bir excel dosyasının bir sütununa ekteki gibi diğer dosyaların isimlerini yazdım.
yanlarına o dosyanın "1" isimli sayfasının E53 hücresinin değerini getirmesi için yazılacak kod konusunda yardımcı olur musunuz?

Klasör içeriğinin ekran görüntüsü ve dosya ektedir.

Saygılarımla.

 

[Erdem Akdemir]

Merhaba,

Verilerin alındığı örnek bir dosyada ekler misiniz.
Uzantıların xlsm olduğuna eminsiniz değil mi?

 

[GursoyC]

Buyrunuz.
Evet hepsi xlsm uzantılı sayın Kuvari.

Saygılarımla,

 

[Orion1]

ExecuteExcel4Macro diye forumda arama yapınız.

 

[Orion1]

ekli dosyayı inceleyiniz.

Sub excel4makro()
Dim deg
deg = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[20180522_örnek.xlsm]1'!R53C5")
MsgBox deg
End Sub

 

[GursoyC]

Çok teşekkürler sayın Orion. Tam istediğim değil ama bu kodlar da işimi görür.
Saygılarımla,