Excel |
您所在的位置：网站首页 › 工作簿中新建工作表 › Excel |
Excel
|
在工作中我们常常会在一个工作簿的一个工作表中输入数据，再另存为一个新的工作簿。 如：在文件“自动工具.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留此备用 |
【本文地址】
今日新闻 |
推荐新闻 |