急sheet增加

Question

我现在有模板sheet5我写了些东西现在，我想把sheet5的内容另存并新建到sheet6中 不知道如何操作

Answer 1

    Sheets("Sheet5").Copy After:=Sheets(5)
    Sheets(6).Name = "Sheet6"

Answer 2

如此我的sheet5,模板数据变了 3楼说的
我打开sheet5写入了数据，另存为.xls时sheet5还是模板的样子。
如果我
 Sheet5.Copy after:=Sheets(5)
  ActiveSheet.Name = “sheet6”
sheet5的内容变了
如何可以 sheet5模板不变呢？急

Answer 3

Private Sub Command1_Click()
    Dim xlapp1 As Excel.Application
    Dim xlbook1 As Excel.Workbook
    Dim xlsheet1 As Excel.Worksheet    Set xlapp1 = CreateObject("Excel.Application")    Set xlbook1 = xlapp1.Workbooks.Open("d:\test2.xls")    Set xlsheet1 = xlbook1.Worksheets(3)
    xlsheet1.Copy After:=xlsheet1
    Set xlsheet1 = xlbook1.Worksheets(4)
    xlsheet1.Name = "Sheet4"
    
    xlapp1.Quit
    Set xlapp1 = NothingEnd Sub