Question

vba如何copy一个sheet 并paste到一个新建的sheet

如何写这段代码，copy一个sheet并paste到另一个新建的sheet，新建的sheet名可以自由选取。

Answer 1

1、在电脑上打开软件创建一个项目，并添加poi的jar包。

2、将一个excel表格的sheet复制到另一个excel表格中，需要先获得原excel表格和新excel表格存放的路径。

3、可以看到一下将原excel表格的sheet复制到新创建excel表格的方法。

4、运行项目，在控制台可以看到已经读取原excel表格sheet的内容了。

5、在电脑上找到存放新excel表格的路径，可以看到已经新创建了一个excel文件。

6、将新excel表格打开，可以看到已经成功将原有的excel表格中的sheet复制过来了。

Answer 2

ActiveWorkbook.Sheets("sheet1").Copy after:=Worksheets(Worksheets.Count) '新建的sheet在最后
ActiveSheet.Name = "新建的sheet名"

Answer 3

Cells.Copy
Sheets("Sheet2").Paste
Application.CutCopyMode = False