Question

下标越界 高手帮忙

Sub 恢复保存()
name0 = ActiveWorkbook.Name
j = Sheets.Count
For i = 1 To j
Sheets(1).Visible = -1
Sheets(1).Move
Sheets(1).Move after:=Workbooks(name0).Sheets(j - 1)
Next
End Sub
用excel编辑器提示下标越界

Answer 1

取消语句Sheets(1).Move，因为Sheets(1).Move会将Sheets(1)移动到新建工作薄。
Sub 恢复保存()
name0 = ActiveWorkbook.Name
j = Sheets.Count
For i = 1 To j
Sheets(1).Visible = -1
' Sheets(1).Move
Sheets(1).Move after:=Workbooks(name0).Sheets(j - 1)
Next
End Sub

Answer 2

我在EXCEL2003试过没有错误。