[已解决]怎么批量新建工作表？

afad12

怎么快速新建30个工作表，工作表名1 2 3 4 5.......

最佳答案

月排行榜 / 总排行榜

爱疯

2015-2-13 09:34

Sub test()
    Dim n, i
    n = 30
    Application.SheetsInNewWorkbook = n
    Workbooks.Add
    For i = 1 To n
        Sheets(i).Name = i
    Next i
    Application.SheetsInNewWorkbook = 3
End Sub

跳转到最佳答案楼层

爱疯

Sub test()
    Dim n, i
    n = 30
    Application.SheetsInNewWorkbook = n
    Workbooks.Add
    For i = 1 To n
        Sheets(i).Name = i
    Next i
    Application.SheetsInNewWorkbook = 3
End Sub

afad12

爱疯 发表于 2015-2-13 09:34
Sub test()
    Dim n, i
    n = 30

能不能解释每行代码？

爱疯

选择中不懂的地方再按F1，就可查看该内容的帮助了。

afad12

爱疯 发表于 2015-2-13 09:34
Sub test()
    Dim n, i
    n = 30

代码现在试不起来，你这代码是在一个工作簿里新建30个工作表还是新建30个工作簿？

爱疯

是单独新建一个工作簿，并在该工作簿里新建30个工作表

afad12

爱疯 发表于 2015-2-13 09:42
是在一个工作簿里新建30个工作表

Workbooks.Add
看到这句代码我以为是新建工作簿，代码还是不明白？

dsmch

是工作簿吧……

1. Sub Macro1()
   
2. Application.ScreenUpdating = False
   
3. Application.DisplayAlerts = False
   
4. For i = 1 To 10
   
5.     With Workbooks.Add
   
6.         .SaveAs Filename:=ThisWorkbook.Path & "" & i & ".xls"
   
7.         ActiveWorkbook.Close 1
   
8.     End With
   
9. Next
   
10. Application.DisplayAlerts = True
    
11. Application.ScreenUpdating = True
    
12. End Sub

复制代码