Değerli Dostlar Selamlar,
Sayın Korhan Ayhan Üstadın yazdığı
Konu olan dosyalar word dosyası olsaydılar nasıl bir değişiklik gerekirdi.
Ayrıca bu dosyaları yazdırdıktan sonra klasörü temizlemem gerekiyor. Daha sonra gelecek dosyalar için.
Sayın Korhan Ayhan Üstadın yazdığı
kodlarla bir dosya içerisindeki excel dosyaları yazdırılabiliyor.Sub DOSYALARI_YAZDIR()
Columns(1).Clear
Set Klasör = CreateObject("Scripting.FileSystemObject").GetFolder("C:\ExcelOrn\").Files
For Each Dosya In Klasör
If InStr(Dosya.Name, ".xls") > 0 Then
X = X + 1
Cells(X, 1) = Dosya.Name
Workbooks.Open Filename:=Dosya
Dim Sayfa As Worksheet
For Each Sayfa In Worksheets
Sayfa.PrintOut
Next
ActiveWorkbook.Close True
End If
Next
MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub
Konu olan dosyalar word dosyası olsaydılar nasıl bir değişiklik gerekirdi.
Ayrıca bu dosyaları yazdırdıktan sonra klasörü temizlemem gerekiyor. Daha sonra gelecek dosyalar için.