运行时错误9下标越界
Sub abc()
'运行前先打开这个有"禁用宏就关闭"的工作簿
t = InputBox("输入工作簿名称*.xls")
Seta = Workbooks(t)
a.Activate
'显示宏工作表
s = 0
For Each sh In excel4macroSheets
sh.Visible = 1 '显示宏表
sh.Delete '删除
s = s + 1
Next
MsgBox "删除了" & s & "个宏表"
'删除各表中的自动运行"名称"
On Error Resume Next
For i = 1 To Sheets.Count
Sheets(i).Names("Auto_Activate").Delete
Next
MsgBox "完毕,请保存这个工作簿"
End Sub你是不是贴错代码了,或是贴错错误信息了,从你的代码来看,应该不会有下标越界错误,就算后面的For循环可能出问题,前面也有On Error Resume Next语句,是不可能由于运行时错误而终断的.
下一篇:运行时错误9下标越界
上一篇:按键精灵中下标越界怎么解决啊?
热门标签: