Excel-VBA复制工作表到新工作簿方法

'方法一：复制工作表另存为新的工作簿
Sub copySaveAs()
    Worksheets("模板").Copy
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\小龙女.xlsx"
    ActiveWorkbook.Close SaveChanges:=True
End Sub
'方法二：复制工作表为新的工作表，写入数据，再移动工作表另存为新的工作簿
Sub MoveSaveAs()
    wsh_num = Worksheets.Count
    Worksheets("模板").Copy After:=Worksheets(wsh_num)
    with Worksheets(wsh_num + 1)
        '=====些处写入数据====
    end with
    Worksheets(wsh_num + 1).Move
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\小龙女.xlsx"
    ActiveWorkbook.Worksheets(1).Name = "模板"
    ActiveWorkbook.Close SaveChanges:=True
End Sub
'方法三：新建工作簿，再复制工作表到新工作簿中
Sub AddCopySaveAs()
    Path = ThisWorkbook.Path & "\"
    Set newwb = Workbooks.Add
    With ThisWorkbook
        .Worksheets("模板").Copy Before:=newwb.Worksheets(1)
        '=====些处写入数据====
        newwb.Worksheets("模板").Range("A1") = .Worksheets("设置").Range("A4")
    End With
    newwb.SaveAs Path & "小龙女.xlsx"
    newwb.Close True
End Sub