主题：[求助]选择Reports文件夹里面的多个excle报表合并

如果是一个xlsx一个sheet的话，你可以做一个总的模板文件，把三个模板分别放在三个sheet里面即可。

如果是把三个xlsx放到一个sheet里面，参考

sheet1、sheet2拷贝到sheet3中去

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("sheet1") '指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("sheet2")
Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("sheet3")

Ws1.UsedRange.Copy
ws3.Cells(1,1).Select
ws3.paste
Ws2.UsedRange.Copy
'ws3.Cells(1,Ws1.UsedRange.Columns.Count).Select '横向拷贝
ws3.Cells(Ws1.UsedRange.Rows.Count,1).Select '纵向拷贝
ws3.paste

'Wb.Save
app.Visible = True
'App.Quit

首先，做一个总的模板文件，把三个模板分别放在三个sheet里面；

然后，生成得到报表文件 test.xlsx

最后，拷贝各个sheet的文件到一个sheet里面去（参考2楼代码）

1、总模板和你平时的模板一样，只是有3个sheet（你平时的基本是1个sheet）

2、拷贝你原来的模板，到总模板里面去

3、根据总模板生成excel报表即可，代码和你单独的报表的代码一模一样

这么简单也不会？

做一个excel模板，添加3个sheet，然后拷贝你原本的模板到各个sheet里面去。

1、先不要写代码，这一步你做了没有？【做一个excel模板，添加3个sheet，然后拷贝你原本的模板到各个sheet里面去】，然后生成excel报表。

2、在做第一步的基础上，再谈代码怎么写。