卡住试图通过我的工作簿中的工作表的一个子集的数组循环
我被困在试图创build一个数组，或我可以用来循环通过工作簿中的工作表子集的某种types的对象。 创buildExcel可以循环的工作表列表的最佳方法是什么？ 在我脑海中，我在想，好吧，我只是创build一个数组，并将其设置为与我需要的工作簿的名称相同。 但是，当我尝试的时候，Excel抱怨没有一个对象。 数组不是Excel中的对象吗？
另外，我应该如何声明一个数组是一个工作表的列表？ 变异？ 串？
有人能给我一些想法吗？
这是我下面的代码。 现在，请忽略我使用三种不同的粘贴types的事实。 那是因为我很难让Excel粘贴我所需要的东西。 我会稍后再细化。
Sub CopyMacro3() Dim CurrentSheet As Worksheet Dim vSheets As Variant Set pasteCell = Range("A2") vSheets = Array("CAS-J30F-70LTV", "CAS-J30F-80LTV") For Each CurrentSheet In vSheets CurrentSheet.Activate Range("A1:T80").Copy Worksheets("print").Activate pasteCell.Select Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False CurrentSheet.Activate Range("A1:T80").Copy Worksheets("print").Activate pasteCell.Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False CurrentSheet.Activate Range("A1:T80").Copy Worksheets("print").Activate pasteCell.Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Set pasteCell = pasteCell.Offset(0, 20) Next End Sub 你并不需要一个variables – 你可以使用：
for each currentSheet in Sheets(Array("CAS-J30F-70LTV", "CAS-J30F-80LTV"))