excel 中如何删除多个sheet？？？在线

[luhangyu]

vI = 2
Do While vI<= 20
Set xlsheet = xlbook.Worksheets(vI)
xlsheet.delete
vI = vI + 1
Loop

为什么当第二次执行Set xlsheet = xlbook.Worksheets(vI) 时就出错？（我要实现的功能就是用程序自动删除多余的sheet）

[DawnPine]

vi=2
Do While Worksheets.Count > vi
Worksheets(vi+1).Delete
Loop

试试这个

[DawnPine]

顺便问一句
我测试的时候,当执行到delete这句时会弹出对话框,你是如何处理的?

[DVS]

有必要用它吗？按住CTRL，选择要删除的若干个工作表，然后快捷菜单--删除不就成了？

[aperyx]

在開始時加入此句
Application.DisplayAlerts = False　　‘不顯示excel的警告

[sporter523]

楼上的方法真的不错

[Siounex]

因为你在删除一个sheet后，sheet就往前移了，所以就会导致定位出错。根据你的要求，试试看这个：

vI = 2
startNum＝vI '起始的删除页

Do While vI<= 20
Application.DisplayAlerts = False '去除删除提示警告
workbooks("workBookName").sheets(startNum).delete
vI = vI + 1
Loop
Application.DisplayAlerts = True

[pt2519515]

vI = 2
for vI=20 to 2 step -1
Set xlsheet = xlbook.Worksheets(vI)
xlsheet.delete
next vI