Dosyaları açmadan bilgi alma

[bayram]

Farklı yerlerdeki dosyalardaki bilgiyi bir sayfada toplama için aşağıdaki şekilde makro yazdım. Bilgim buna yetiyor, sizden ricam hedefdeki dosyaları açmadan bu bilgi alabilirmiyim?

AY = Cells(2, 2)
For T = 0 To 60
YOL = Cells(4 + T, 2)
Workbooks.Open Filename:= _
"P:\İmalat\MAKİNA DURUÞLARI\makina duruşları\" & YOL & ".XLS"
Worksheets(AY).Select

D1 = Cells(38, 2)
D2 = Cells(38, 3)
D3 = Cells(38, 4)
D4 = Cells(38, 5)
D5 = Cells(38, 6)
D6 = Cells(38, 7)
D7 = Cells(38, 8)
D8 = Cells(38, 9)
ActiveWorkbook.Save
ActiveWindow.Close
Windows("makina duruşları.xls").Activate

Worksheets("DURUÞLAR").Cells(4 + T, 2) = D1
Worksheets("DURUÞLAR").Cells(4 + T, 3) = D2
Worksheets("DURUÞLAR").Cells(4 + T, 4) = D3
Worksheets("DURUÞLAR").Cells(4 + T, 5) = D4
Worksheets("DURUÞLAR").Cells(4 + T, 6) = D5
Worksheets("DURUÞLAR").Cells(4 + T, 7) = D6
Worksheets("DURUÞLAR").Cells(4 + T, 8) = D7
Worksheets("DURUÞLAR").Cells(4 + T, 9) = D8
Worksheets("DURUÞLAR").Cells(4 + T, 10) = YOL
Next T

 

[abazya]

Bu linkteki başlıklarda cözüm bulacağını umuyorum.

http://www.excel.web.tr/viewtopic.php?t=8128

 

[gkseren]

İzninizle ben de şu linki vereyim ;

"ayrı sayfalardaki bilgilerin toplamı" başlığı altında,

http://www.excel.web.tr/viewtopic.php?t=12095