[已解决]删除工作簿中的三个工作表的代码

要用就学

已打开了工作簿“样表”并将“麻花”工作簿中的sheet1至sheet10以外所有的工作表复制到“样表”工作簿中，请问删除“样表”工作簿中的sheet1至sheet3这三个工作表，代码写在“麻花”工作簿sheet1中

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-12 07:14

1. Sub tse()
   
2.     Dim i As Integer
   
3.     With Workbooks("样表.xls")
   
4.         Application.DisplayAlerts = fase
   
5.         Application.ScreenUpdating = False
   
6.         For i = 1 To 3
   
7.             .Worksheets("Sheet" & i).Delete
   
8.         Next
   
9.         Application.DisplayAlerts = True
   
10.         Application.ScreenUpdating = True
    
11.     End With
    
12.     MsgBox "删除操作完成"
    
13. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub tse()
   
2.     Dim i As Integer
   
3.     With Workbooks("样表.xls")
   
4.         Application.DisplayAlerts = fase
   
5.         Application.ScreenUpdating = False
   
6.         For i = 1 To 3
   
7.             .Worksheets("Sheet" & i).Delete
   
8.         Next
   
9.         Application.DisplayAlerts = True
   
10.         Application.ScreenUpdating = True
    
11.     End With
    
12.     MsgBox "删除操作完成"
    
13. End Sub

复制代码

hwc2ycy

是样表.xls还是样表.XLSX，视自己的实际情况修改。

要用就学

hwc2ycy 发表于 2013-7-12 07:15
是样表.xls还是样表.XLSX，视自己的实际情况修改。

谢谢提醒！

要用就学

hwc2ycy 发表于 2013-7-12 07:14

谢谢您的指教，再请教怎么将工作簿“样表”重命名为“种植”或者将工作簿“样表”复制一个，最后关闭“样表”工作簿并不保存对“样表”工作簿的修改，代码怎么修改

hwc2ycy

workbooks("样表.xls").saveas filename:="种值.xls",fileformat:=xlWorkbookNormal

SaveCopyAs
将指定工作簿的副本保存到文件，但不修改内存中的打开工作簿。

要用就学

hwc2ycy 发表于 2013-7-12 10:05
workbooks("样表.xls").saveas filename:="种值.xls",fileformat:=xlWorkbookNormal

SaveCopyAs

现在把“样表”工作簿所要的事，在您指导下已基本完成，最后是我想把“样表”这个工作簿里面除sheet1至sheet10以外的工作表全部移动到新建的工作簿。以写代码的工作表（也就是“样表”工作簿sheet10)b6-b10单元格的值为新建的工作表名字，b6,b7,b8,b9,b10，的值是连续的数字，“样表”shee10.[b6]有值时，新建的工作簿名字=[b6] ,如果“样表”sheet10.[b6:b9]值分别为102,103,104,105.那么新建的工作簿名字就是“102-105”，请问代码怎么写谢谢