Excel Печать рабочих листов по имени

Question

У меня есть таблица Excel 2007, и я хотел бы написать процедуру VBA для печати отдельных таблиц по имени. Как мне это сделать?

Например, Я хотел бы напечатать "FirstSheet","ThirdSheet", и "FourthSheet", но не "SecondSheet".

Answer 1

Если вы знаете имя листа, просто вызовите функцию PrintOut следующим образом:

Sheets("Name").PrintOut

Для небольшого количества листов это намного проще!

Answer 2

Для этого не нужно выполнять цикл, достаточно одной строки кода:

Sheets(Array("FirstSheet", "ThirdSheet", "FourthSheet")).PrintOut Copies:=1

Answer 3

Public Sub PrintByName(Names As Variant)

  Dim s As Worksheet
  Dim i As Integer

  If IsArray(Names) Then
    For Each s In ActiveWorkbook.Worksheets
      For i = 0 To UBound(Names)
        If StrComp(s.Name, Names(i), vbTextCompare) = 0 Then
          s.PrintOut
        End If
      Next i
    Next s
  End If

End Sub

Звоните как:

PrintByName Array("FirstSheet", "ThirdSheet", "FourthSheet")

Вложенный цикл не является оптимальным с точки зрения производительности во время выполнения. С ограниченным количеством листов, которые может содержать книга Excel, я думаю, что это незначительно. Однако было бы лучше использовать Collection для хранения желаемых имен листов вместо Array.

Answer 4

Должно работать что-то похожее на следующее:

Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
        If (sh.Name = "Sheet1") Then
           sh.PrintOut
        End If
Next sh