Question

jxl如何根据模板sheet生成新的sheet，要求可以在一个workbook里循环生成多个sheet？

Answer 1

亲，在Sheet名称上点击右键，选择“移动或复制”，勾选下面的“建立副本”，确定。

 

追问

我是要用程序去实现的

追答

这样可以不？

附件已上传，动画演示和代码如下。

 

 

Sub sc()
Dim sn As String
Dim i, n As Integer
Dim inp As Double
inp = Application.InputBox(Prompt:="请输入复制多少份：", Type:=1)
If inp <> False Then
    n = inp
    sn = ActiveSheet.Name
    For i = 1 To n
        Sheets(sn).Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = "Sheet" & Sheets.Count
    Next
End If
End Sub