在工作中我们常常会在一个工作簿的一个工作表中输入数据，再另存为一个新的工作簿。
如：在文件“自动工具.xlsx”中有一个工作表为“模板”。我想在“模板”工作表中输入数据，再另存为一个新的文件为“小龙女.xlsx”
【知识点】
下面是本个收藏的代码，三种方法，以备用
【代码】
代码语言：javascript复制'方法一：复制工作表另存为新的工作簿
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留此备用
