vba - 运行时错误下标超出范围

Question

基本上我试图将一张工作表从一个工作簿复制到另一个工作簿。这样做时，我收到一个名为 subscript out of range 的错误。

Sub cp()
Dim ws As Worksheet, wb As Workbook
'Target workbook
Set wb = Workbooks("Desktop:\Book2.xlsb")
'Source workbook
For Each ws In Workbooks("Desktop:\Book1.xlsb")
ws.copy After:=wb.Sheets(wb.Sheets.Count)
Next ws
End Sub

Answer 1

如果文件已经打开，那么只需执行以下操作:

Set wb = Workbooks("Book2.xlsb")

同样，

For each ws in Workbooks("Book1.xlsb").Worksheets

另请注意，您需要指出 .Worksheets集合在上面的语句中。 For each ws in Workbooks("Book1.xlsb")将不起作用，即使工作簿包含工作表，也没有像这样的隐含迭代，您需要指定要循环的集合。