Создать и использовать массив для выбора листов - PullRequest
0 голосов
/ 02 июля 2019

Первый пост здесь, поэтому извиняюсь, если я ошибаюсь, я в лучшем случае энтузиаст-любитель.

Я пытаюсь автоматически создать массив из списка имен листов, а затем выбрать эти листы, чтобы позволить мне печатать в PDF.

В основном, пытаясь автоматически воспроизвести следующий код без необходимости заходить в VBA для каждого нового созданного листа.

    Sheets(Array("Jobs", "5125", "5225", "5228", "5230", "5232", "5234", "5245", "5249", "5251")).Select

Одна из моих многочисленных попыток создать этот массив:

    Dim strarry() As String
    Dim qtyrows As Long
    Dim i As Long

    qtyrows = ThisWorkbook.Sheets("Variables").Cells(Rows.Count, 3).End(xlUp).Row
    ReDim strarry(1 To qtyrows)

    For i = 1 To qtyrows
        strarry(i) = ThisWorkbook.Sheets("Variables").Cells(i, 3).Value
    Next i

    Sheets(strarry(i)).Select

Я пробовал различные методы для создания массива, но, похоже, кавычка вокруг каждого отдельного имени листа.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...