主题：[求助]输出EXCEL报表能根据不同的模板进行合并吗？

 不能做到。你只能用vba的方式拷贝excel表格的内容进去。

http://www.foxtable.com/help/topics/2121.htm

 比如这样，意思是把sheet2的全部拷贝到sheet1的后面去，自己参考着改吧。

Dim App As New MSExcel.Application
try
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("e:\test.xls")  
    Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("sheet1")
    Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("sheet2") '指定要复制的工作表
    Dim Rg As MSExcel.Range = Ws2.UsedRange

    Rg.copy(ws1.cells(ws1.UsedRange.Rows.count+10, 1))

    Wb.Save
catch ex As exception
    msgbox(ex.message)  
finally
    App.Quit
End try

用word模板同样不能实现。都是需要把生成好的两个excel复制到合并到一个excel表格里面去的。

回复7楼，word模板也是不能合并两个报表的内容的，只能套打主表和关联表。

也可以用vba赋值内容进去，不过用vba复制word内容比复制excel内容麻烦一些。

操作word的代码，看这里

Dim app As New MSWord.Application
try
    Dim fileName = "d:\ts.doc"
    app.Documents.Open(fileName)
    Dim count = app.Documents(fileName).Characters.Count
    Dim rng As MSWord.Range = app.Documents(fileName).Range(Start:=0, End:=count)

    msgbox(rng.Text)
    'rng.Select()   '全选
    'rng.Copy()   '拷贝
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

参考 http://msdn.microsoft.com/zh-cn/library/tcyt0y1f%28v=vs.80%29.aspx

会出。