Question

VB 操作excel 删不掉工作表？？？

VB 操作excel 删不掉工作表？？？
只要工作表里有数据，该工作表就删不掉？

定义对象、打开工作簿步骤省略...
工作簿里有三张表分别为：
Sheet1 要保留的表
Sheet2 空白表，要删除的表
Sheet3 有数据，要删除的表

现在用以下方法：
1、 for n=2 to 3
Set objWorkSheet = objWorkbook.Sheets(2) '每次都删除第2张表
objWorkSheet.Delete
next
方法2、
…
objExcel.Sheets(2).Select
ActiveWindow.SelectedSheets.Delete
…
方法3、设置Sheets(2)为活动表，然后删除活动表

这三种方法执行的结果是一样的：只是删除Sheets(2)而删除
Sheets(3)时删不掉，但程序不报错；而要是往Sheets(2)写入数据后再执行，结果同样是删不掉。郁闷好几天了，网上查了好多资料，但介绍的方法试过了都是一样的结果。请高人指点。
只有20分，全给了。

Answer 1

有数据的工作表删除时会弹出对话框警告
关掉这个提示就好了

在删除前后分别添加语句
Application.DisplayAlerts = False

Application.DisplayAlerts = True

Answer 2

你试试这个代码：
Sheets(2).Select
ActiveWindow.SelectedSheets.Delete
Sheets(3).Select
ActiveWindow.SelectedSheets.Delete

或：
Worksheets(2).Delete
Worksheets(3).Delete