用vb给excel表增加工作簿，并修改其名称

Question

我现在有一个excel表模板，里面有四个工作簿，现在我需要用vb给其填写内容，每一份资料都有四页，格式与模板中一致，因此，模板中四页是基础，填写第二份资料时，就需要将模板中四个工作簿追加至已经填写好第一份的excel表的后面，如何实现呢，谢谢，我主要不会增加工作簿，并修改其名称
我想调用的是一个excel表中模板中的sheet，把他复制至当前表中

Answer 1

如果你的问题是添加工作表：
复制工作表到最后：
Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)
重命名最后一张工作表（新加的工作表）：
Sheets(Sheets.Count).Name = "c"

Answer 2

从网上抄的，你看看吧
增加sheet工作表VB.NET code

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

xlApp = New Excel.Application
xlBook = xlApp.Workbooks.Add
xlSheet = xlBook.Worksheets.Item(xlBook.Worksheets.Count)

Answer 3

你是打字打错了还是怎么的，是工作表还是工作簿啊。如果是工作表能理解你想要干什么，如果是工作簿我就有点糊涂了。。。不明白你的目的，在的话就百度联系我，我帮你做。。。