Как получить несколько ручек выбранных листов в книге с помощью Excel VBA API

Question

Существует способ выбрать несколько листов Excel, а затем выполнить с ними какое-либо действие, например Печать. Однако, учитывая рабочую книгу, как мне узнать, какие листы выбраны. Существует свойство vba Application-> ActiveSheet, которое дает нам текущий активный лист, но я не мог найти способ получить несколько листов для этого.

Answer 1

Это то, что вы хотите?

Option Explicit

Sub Sample()
    Dim ws As Worksheet
    Dim SelectedSheets() As String
    Dim n As Long, i As Long

    n = 0
    For Each ws In ActiveWindow.SelectedSheets
        ReDim Preserve SelectedSheets(n)
        SelectedSheets(n) = ws.Name
        n = n + 1
    Next

    For i = LBound(SelectedSheets) To UBound(SelectedSheets)
        '~~> This will give you the list of selected sheets
        Debug.Print SelectedSheets(i)        
    Next i

    '~~> The collection can also be used as below
    'Sheets(SelectedSheets).Copy
    'Sheets(SelectedSheets).Select   ' e.g., to re-select them later
End Sub

Sid