Question

vba代码中，提示下标越界，哪里越界，如何解决？

Sub 拆分到工作簿()
Dim wk As Workbook, ss$, k%
Application.DisplayAlerts = False
For Each sht In Workbooks("122").Sheets
Set wk = Workbooks.Add
k = k + 1
Workbooks(1).Sheets(k).Copy Workbooks(2).Sheets(1)
ss = ThisWorkbook.Path & "\" & sht.Name & ".xlsx"
wk.SaveAs ss
wk.Close
Next
Application.DisplayAlerts = True
MsgBox "拆分工作簿完成！"
End Sub

Answer 1

按我的理解
Workbooks(1).Sheets(k).Copy Workbooks(2).Sheets(1)
应该改为
sht.Copy wk.Sheets(1)
然后把 k=k+1 这行删掉即可

Answer 2

看具体的语句，如果是cells、sheets等的引用，那是引用的行列、工作表不存在造成的，鼠标放在引用的括号里面，看提示的值就明白了。如果报错语句是对一个数组的使用，那是引用的数组下标超过了定义的范围。 解决办法：适当的修改语句。