激活不同的工作簿，下标超出范围

Question

我在这里感到非常沮丧。 Ling workbooks("Book2.xlsx").Activate在以下代码中给出了Subscript out of range错误

Sub Macro1()
'
' Macro1 Macro
'
Dim i As Long, j As Integer, lastrow1 As Long, lastrow2 As Long, mntname As String
i = 1
lastrow1 = Range("A" & Rows.Count).End(xlUp).Row

'
Do While i < lastrow1
j = month(Range("A" & i))
mntname = monthname(j)
Rows(i & ":" & i).Copy
Workbooks("Book2.xlsx").Activate
Sheets(mntname).Range("A" & Rows.Count + 1).PasteSpecial
Workbooks("Book2.xls").Activate
i = i + 1
Loop
End Sub

Book2 is已打开并可以使用了。 A是床单。 突出显示时mntname正确转换为sting值，这是Book2

中的一个工作表

任何人都可以告诉我有什么问题以及如何解决它？

Answer 1

只是

Workbooks("Book2").Activate.

工作簿的名称仅为Book2，Book2.xls是文件的名称。