时间戳

首页 > 解决方案 > 创建并使用数组来选择工作表

excel - 创建并使用数组来选择工作表

问题描述

第一次在这里发帖，如果我弄错了，我很抱歉，我充其量是一个热情的业余爱好者。

我正在尝试从工作表名称列表中自动创建一个数组，然后选择这些工作表以允许我打印到 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

我尝试了各种方法来创建数组，但似乎没有在每个单独的工作表名称周围加上引号。

标签： excelvba

解决方案

推荐阅读