Печать

[Porutchikova Marina]

В папке находится большое количество книг Excel. Нужно распечатать один лист каждой книги, не открывая Excel. Как в макросе перебирать имена всех книг папки?

[Sedge]

Что-то вроде этого...

Код: Выделить всё

Dim sFileName As String
sFileName = Dir("d:\temp\*.xls")
With Application
    Do While Not sFileName = ""
      .Workbooks.Open (sFileName)
      With .Workbooks(sFileName)
        .Worksheets("Лист1").PrintOut
        .Saved = True
        .Close
      End With
      sFileName = Dir
    Loop
End With