Altbilgiyi Başka Bir Dosyadan Alsın

[ZuCChiNi]

Hazırladığım Excel dosyasında altbilgiyi hazırladığım bir txt, xls ya da başka bir dosyadan alabilir miyim?

 

[hamitcan]

Sub BaskaBirExcelSayfasindakiBilgiUstBilgiOlsun()
 DosyaIsmi = "altbilgi" ' Dosya ismini kendinize göre uyarlayın.
 yol = "'" & ThisWorkbook.Path & "\[" & DosyaIsmi & "]Sayfa1'!"
 T = ExecuteExcel4Macro(yol & Range("A1").Address(True, True, xlR1C1))
 ActiveSheet.PageSetup.CenterHeader = T
End Sub

 

[ZuCChiNi]

Teşekkürler.
Denedim; ama olmadı.
Boş bir zamanımda tekrar deneyeyim.

 

[hamitcan]

Dosya eklerseniz çözüm daha kolay olacaktır.