Excel VBA Sheets(Array()).Select 下标超出范围

Excel VBA Sheets(Array()).Select Subscript out of range

ExcelVBA.

中的这一小段代码有点问题

我想要做的就是 select 工作簿中的多张纸并将它们导出为一个 PDF。 我有很多 Sheet 不想隐​​藏或四处移动,所以在我的代码的前面我循环并将特定名称保存在一个数组中。我遇到了这个错误,所以我想我会简单地对他们的名字进行硬编码,看看它是否有效。

但即使使用硬编码名称,我也得到 'Subscript out of range error',所以一定是其他地方出了问题。

wb.Sheets(Array("Sheet 1", "Sheet 2", "Sheet 3", "Sheet 4", "Sheet 5")).Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, _ ............

是否存在与上述声明相关的已知错误? (我只包括前两行,因为它不会执行超过第一行) 或者有什么建议可以阻止此错误的发生吗?

注意:我更改了 Sheet 名称,因为它们与敏感数据有关。然而,一个例子是 "S&C vendor1"

务必正确拼写工作表名称:

Sub dural()
   Set wb = ActiveWorkbook
   wb.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
End Sub

默认工作表名称中没有space。

感谢大家的帮助。结果是我不小心把它放在了一个循环中,一定是选择了多次,然后 运行 out of 运行ge。

谢谢大家的帮助。