[已解决]新建一个指定工作表数量的工作簿

tianqixueyu

各位大侠：
     我现在的需求是：要新建一个工作表数量为6的工作簿，也就是说WORKBOOK.ADD的属性包含：sheet1-sheet6。
请教各位了。知道的麻烦说一下。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-20 08:44

1. Sub sixworksheet()
   
2.     Dim i As Byte
   
3.     i = 6 - Worksheets.Count
   
4.     If i > 0 Then
   
5.         Worksheets.Add Count:=i
   
6.     End If
   
7. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

直接把数量调到6就行了。

hwc2ycy

1. Sub sixworksheet()
   
2.     Dim i As Byte
   
3.     i = 6 - Worksheets.Count
   
4.     If i > 0 Then
   
5.         Worksheets.Add Count:=i
   
6.     End If
   
7. End Sub

复制代码

hwc2ycy

对于在工作符内添加或删除过工作表的情况下，序号就会有不连贯的现象。

tianqixueyu

hwc2ycy 发表于 2013-3-20 08:45
对于在工作符内添加或删除过工作表的情况下，序号就会有不连贯的现象。

你好早啊，我还以为这么早应该没人呢，谢谢了，新工作簿生成之后我不会去删除添加的工作表，只是要把其他工作簿的内容复制到这个工作表中去。