Birden fazla dosyanbın çıktısının alınması

[sayverdi]

Herkese Merhaba;
Başka bir program ile bir klasorun içerisine yaklaşık 500 excel dosyasının transferini yaptık. Simdi bu excel dosyalarının her birinin çıktısının alınması isteniyor. Bu konuda yardımcı olabilirmisiniz. Dosya kapalıyken print alabiliyormuyuz, yoks aonce acıp sonra print sonra close mu yapacagız , bilmiyorum, simdiden tesekkurler,
ilk sayfanın cıktısnı alabilecegim sekilde vba olarak yardımcı olursanız sevinirim

 

[sayverdi]

asagıdaki sekilde bu işi hallettim, herkese teşekkürler...
x="C:\......\Desktop\MusteriListesi.xls"
Set xlApp = CreateObject("Excel.application")
xlApp.Workbooks.Open(x)
Set xlsheet = xlApp.Workbooks(1).Worksheets(1)
xlsheet.Range("A114").PrintOut 'Copies:=1
xlapp.activeworkbook.Close
xlapp.quit
:icelim: